Melding bij bepaalde invoer

Status
Niet open voor verdere reacties.

oosterbaan S S

Gebruiker
Lid geworden
13 mrt 2005
Berichten
128
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:o

Bedankt alvast :thumb:
 
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
Code:
private sub cmbKeuze_OnSelect()
    if cmbKeuze = "Piet" then
        msgbox "Uw keuze was Piet",, App.Title
    end if
end sub

HTH
Weest gegroet,
Guus
 
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??:confused:
 
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:
Code:
 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
 
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
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan