Formulier 'zoeken en bewerken'

[kenneth123]

Hallo!
Ik ben een excel bestand aan het maken om via een formulier personeelsleden in te voegen.
Deze knop heb ik aangemmaakt en deze werkt.
Nu wil ik een 2e knop aanmaken dat een formulier zou moeten openen en waar men via een 'keuzelijst' iemand uit het huidige bestand moet kunnen selecteren om zijn gegevens te bewerken.
Dus als men op een naam klikt in het formulier, dat al zijn andere gegevens ook tevoorschijn komen en dat deze bewerkt/aangepast kunnen worden.
Heeft iemand hier een voorbeeldje van zodat ik verder aan de slag kan? Want zit momenteel hiermee vast..

Bekijk bijlage PERSONEELSBESTAND VOORBEELD.xlsm

Alvast bedankt!

 

[SjonR]

Zou je dan niet eerst het tweede userform inrichten met alle controls die je nodig hebt?

 

[edmoor]

De snelste en simpelste manier om dat te doen is dit achter die tweede knop:

Sheets("Gegevens").ShowDataForm

 

[SjonR]

Hier een opzet op basis van je voorbeeld. Ik heb er zelf maar even 4 textboxen in gezet.

 

[kenneth123]

Ja, dat is het ongeveer.. Bedankt!!
Is het ook mogelijk om in die keuzelijst te zoeken op naam + voornaam (in hetzelfde vak)?
En er zou dan nog een zoek knop bij moeten zodat ik niet in een leeg vak moet klikken alvorens de gegevens tevoorschijn komen, ook nadat ik op toevoegen heb geklikt zouden de velden terug leeg moeten zijn.
Al probeer ik dat nog wel uit te zoeken..

Bedankt alvast!

 

[gast0660]

Probeer het eens zo.

 

[HSV]

For i = 1 To 5
     If Me("T_0" & i) = "" Then
       MsgBox "Gelieve een " & Me("L_0" & i).Caption & " in te voeren", vbCritical, "Fout!"
       Exit Sub
       End If
    Next i

i.p.v.

If Trim(T_01.Value) = "" Then
    T_01.SetFocus
    MsgBox "Gelieve een NAAM in te voeren", vbCritical, "Fout!"
    Exit Sub
End If
If Trim(T_02.Value) = "" Then
    T_02.SetFocus
    MsgBox "Gelieve een VOORNAAM in te voeren", vbCritical, "Fout!"
    Exit Sub
End If
If Trim(Me.T_03.Value) = "" Then
    T_03.SetFocus
    MsgBox "Gelieve een IDENTIFICATIENUMMER in te voeren", vbCritical, "Fout!"
Exit Sub
End If
If Trim(Me.T_04.Value) = "" Then
    T_04.SetFocus
    MsgBox "Gelieve een SAP NUMMER in te voeren", vbCritical, "Fout!"
    Exit Sub
    End If
If Trim(T_05.Value) = "" Then
T_05.SetFocus
MsgBox "Gelieve een LOGIN in te voeren", vbCritical, "Fout!"
Exit Sub
End If