Afsluitknop in VB

[KaY.NL]

Hallo,

Waarom sluit mijn messagebox niet af als ik de volgende code invoer?

Private Sub cmdAnnuleren_L_Click()

MsgBox ("Weet u zeker dat u wilt afsluiten?")
Exit Sub

End Sub

Bvd. Kay

 

[Erwin01]

werk je in access of Visual basic of script??

maak er in ieder geval zoiets van...

Afsluiten = vbYesNo ("Zeker afsluiten?", , "Afsluiten")

if Afsluiten = vbYes then
doCmd.Close
End If
If Afsluiten = vbNo then
Exit Sub
end if

Je was vergeten te vertellen wat de computer moet doen als er daadwerkelij op een knop geklikt word..

Rommel er maar een beetje mee

suc6

 

[KaY.NL]

Ah mooi!.. bedankt ik zal eens kijken.

Omdat ik er op school ook aan moet werken heb ik het programma in VBA gemaakt. Maar ik was nog van plan het een keer om te zetten naar een losse exe.

 

[KaY.NL]

Maar zoals je het nu doet moet er toch nog een array bij.. waar slaat anders dat vbYesNo op?

 

[Erwin01]

Geplaatst door KaY.NL
Hallo,

Waarom sluit mijn messagebox niet af als ik de volgende code invoer?

Private Sub cmdAnnuleren_L_Click()

MsgBox ("Weet u zeker dat u wilt afsluiten?")
Exit Sub

End Sub

Bvd. Kay

Met alleen een msgbox hoef je ook niet te vragen of iemand zeker weet dat hij/zij wil afsluiten... dan kun je toch alleen maar op OK klikken.

 

[KaY.NL]

Ja, klopt.. daar kwam ik ook achter. Is er een mogelijkheid om daar een knop aan toe te voegen?

 

[Erwin01]

nee, in de standaard msgboxen van VB kun je niets bewerken... (ja,misschien met kilometers lange code...) maar niet makkelijk...

er zijn wel verschillende standaard msgboxen (misschine iets naar jou keuze?):

op deze site een aantal (duitse )voorbeelden... Klik

Maar in VB of Access kun je ze natuurlijk ook zelf maken dmv een formuliertje...

 

[beheer25]

Op de door Erwin01 gemeldde site staat een handige regel:
MsgBox("Wollen wir zählen üben?", vbQuestion + vbYesNo, "Hallo!")

Je kunt wat stoeien met de knoppen door de juiste waarden bij elkaar te tellen.


Grtz,

 

[KaY.NL]

Ik zal er eens mee prutsen. Bedankt :thumb:

 

[Guus2005]

Maak er dan van:

If msgbox("Weet je het zeker ",vbQuestion + vbYesNo,app.title) = vbYes then
msgbox "Hij weet het zeker"
else
msgbox "Hij weet het niet zeker"
end if

Iets dergelijks.

Weest gegroet,
Guus