Melding bij bepaalde invoer

[oosterbaan S S]

Hallo,

Wie kan mij het helpen met het volgende:

Op een een formulier heb ik een keuzelijst met invoervak "werknemers"

Nu wil ik dat bij de keuze van een bepaalde werknemer (zeg maar: piet) er een messagebox verschijnt. Bij de keuze van andere werknemers mag de melding niet verschijnen.

Er zal dus - via de opbouwfunctie voor programmacode - een stukje vba oeten worden geschreven, maar daar ben ik dus niet zo'n ster in

Bedankt alvast :thumb:

 

[Guus2005]

Klik bij de properties van je combobox het event OnSelect aan.
Nadat je een keuze hebt gemaakt wordt dit event afgevuurd (zo heet dat).
Er wordt een procedure (sub) voor je aangemaakt waarin je de volgende code kan zetten

private sub cmbKeuze_OnSelect()
    if cmbKeuze = "Piet" then
        msgbox "Uw keuze was Piet",, App.Title
    end if
end sub

HTH
Weest gegroet,
Guus

 

[oosterbaan S S]

Beste Guus,
Bedankt voor je reactie, maar er gaat iets mis met je voorstel.

Bij "kiezen"in mijn keuzelijst heb ik het volgende ingevoerd:

Private Sub Superieur_Enter()
If Superieur = "vosse,,john" Then
MsgBox "Uw keuze was Vosse,,john", , App.Title
End If

End Sub

Ik krijg nu een foutmelding bij App.Title namelijk: een variabele in niet gedefinieerd.
Wat doe ik verkeerd??

 

[Guus2005]

Sorry, mijn fout. Dit is een VB manier om de titel van je applicatie in de caption van je message box te krijgen.
maak ervan:

 MsgBox "Uw keuze was Vosse,,john"

en dan zou het moeten werken. Je krijgt in ieder geval op dat gebied geen foutmeldingen meer.

HTH
Weest gegroet,
Guus

 

[oosterbaan S S]

Beste Guus,

Inderdaad, nu werkt het prima.
Hartelijk dank. Het is maar een simpele regel maar als je in VBA niet zo thuis bent is hulp erg welkom.
Groet - Stephan