Keuzelijst

[Leotaxi]

Zanfa11,

in deze rijnummers gezet in kolom B van ledenlijst,
1 maal werk maar nadien kunnen enkele stappen overgeslagen worden.
op deze manier wordt de box ook sneller gevuld.

mvg

Leo

 

[zanfa11]

Hallo Leo

U bent fantastisch :shocked::thumb:. Heb respect voor mensen zoals u.

Als is geen lid selecteer en druk op het knoopje wijzigen of verwijderen verschijnt er een bericht :"fout 1007 tijdens uitvoering".......Zou het mogelijk zijn om een bericht te laten verschijnen met de vermelding " selecteer eerst 1 lid"

Mvg

 

[Leotaxi]

dan wordt het zoiets


mvg
Leo

 

[snb]

Ik heb weinig waardering voor geplaatsste bestanden met wachtwoorden en/of beveiligingen.


Zonder kolom B

volstaat deze code:

Private Sub UserForm_Initialize()
    ComboBox1.List = Sheets("Ledenlijst").Cells(9, 3).CurrentRegion.Value
End Sub

de breedte van de kolommen kan in de ontwerpmodus al aan de eigenschap 'columnwidth' van de combobox worden meegegeven.

de -Change-gebeurteniscode kan beter zo geschreven worden:

Private Sub ComboBox1_Change()
  For j = 1 To 13
     Me("Textbox" & j).Text = ComboBox1.List(ComboBox1.ListIndex, j)
  Next
End Sub

NB. Streef ernaar de interaktie met een werkblad te minimaliseren.

Een uitgewerkt voorbeeld stond al lang op jullie te wachten:

http://www.snb-vba.eu/VBA_Userform_in_database.html

 

[zanfa11]

Beste SNB

Bedankt voor uw reactie.Ik heb de codes geprobeerd maar zonder resultaat. Het paswoord is "data"

Mvg

 

[snb]

Zie de bijlage

 

[zanfa11]

Beste

ik krijg de fout melding "fout 1004 tijdens uitvoering" als ik op het knoopje 'wijzigen' of 'verwijderen' klik (kolom A&B mogen vrij blijven)

Mvg

 

[Leotaxi]

ik ook,

heb sinds eerst geplaatste bestand zoveel mogelijk verkort, mede door tips van SNB
maar voor de wijzigingen op de juiste rij heb je wel die rijnummers nodig dacht ik.

mvg

Leo

 

[zanfa11]

Hey Leo

Als ik in de keuzelijst van de userform een naam wil typen dan krijg ik een fout melding, voor de rest ben ik zeer tevreden. Alles werkt snel en perfect.

Mvg

 

[snb]

Ik heb geen volledige applicatie geplaatst.
Zoals je ziet heb ik alleen Userform_initalize en combobox1_change gewijzigd.
Naar de rest heb ik niet gekeken.

Probeer het principe te begrijpen (alle gegevens staan in combobox1 ) en daarop de overige code aan te passen.

@Leotaxi

Daarvoor hebben we .listindex.

 

[Leotaxi]

Rijnummer verplaatst naar kolom P
en enkele tips van SNB verwerkt.


mvg

Leo

 

[Leotaxi]

kolommen voor lid te verwijderen niet aangepast in vorige

hier de juiste


mvg
Leo

 

[zanfa11]

Beste Leo

Hartelijk bedankt voor uw super werk.

Als ik in de keuzelijst van de userform een letter typ van een naam die niet voorkomt in de lijst dan krijg ik een fout melding. Rijnummers mogen blijven in kolom B. Sorry voor het ongemak.

Mvg

 

[Leotaxi]

Hoi Zanfa11

probleem van onbestaande namen hierbij opgelost
echter de rijnummers naar kolom B niet anders komen die in de listindex op eerste plaats
en daar heb je echt de namen nodig.


mvg

Leo

 

[zanfa11]

Beste Leo

Ik ben zeer tevreden met het bijgevoegd bestand. Indien u het probleem van onbestaande namen kunt oplossen dan is het bestand perfect voor mij. Bekijk bijlage _Opvolging ORG 25mei.xlsm

Mvg

 

[snb]

@Zanfa11

Ik krijg niet de indruk dat je hier erg veel van leert....

 

[Leotaxi]

Zanfa11,

gaat niet lukken met rijnummers op 1 ste plaats in index
als je die echt daar wilt houden wordt het geen namen ingeven, maar selecteren via box.


mvg

Leo

 

[Leotaxi]

Zanfa11,

zelfde foutmelding krijg je daar bij elke naam die je wilt ingeven
en dit komt omdat de rijnummers op 1 ste plaats in index staan


mvg

Leo

 

[zanfa11]

Hey Leo

Is het dan mogelijk om rijnummers te verzetten van kolom 'P' naar kolom 'AP' want ik ben van plan om paar kolommen bij te zetten. Bekijk bijlage _Opvolging ORG L6 (18).xlsm



Mvg

 

[Leotaxi]

dat is wel mogelijk, maar opgelet in rij 9 moeten alle kolommen tot kolom AP gevuld zijn.


mvg
Leo