[ACCESS] MsgBox wil niet

[midget]

Ik heb op het moment een klein probleem met MS Access 97.
Ik heb een knop Sluit deze roep ik aan vanuit een formulier, nu krijg ik netjes of ik af wil sluiten ja of nee.
Alleen bij beide keuzes gaat het formulier dicht.
Dit omdat ik denk een koppeling in mijn VB code niet goed heb.
Jullie een idee?

Code:

PHP:

Private Sub Sluit_Click()

On Error GoTo Err_Sluit_Click

    Dim Msg, Style, Title, Response
    'Tekst die wordt weer gegeven
    Msg = "Weet u zeker dat u wilt stoppen met zoeken?"
    'Geeft een Ja en Nee knop
    Style = vbYesNo
    Title = "Wacht op keuze..."
    Response = MsgBox(Msg, Style, Title)
    Style = vbOKOnly
    Title = "En het is geworden..."
    If Response = vbYes Then
    Msg = "Ja"
    Response = MsgBox("U heeft gekozen voor " & Msg & "!" & Chr(13) & "Tot ziens!", Style, Title)
    Else
    Msg = "Nee"
    Response = MsgBox("U heeft gekozen voor " & Msg & "!" & Chr(13) & "Succes met zoeken", Style, Title)
    End If

    DoCmd.Close
    
Exit_Sluit_Click:
    Exit Sub

Err_Sluit_Click:
    MsgBox "U heeft een fout gemaakt bij het afsluiten van dit formulier"
    Resume Exit_Sluit_Click
    
End Sub

[Reut]

jo, ik denk dat uw .Close statement hiervoor verantwoordelijk is....
denk je ook niet

Als je em niet wilt sluiten, roep dan gelijk Exit_Sluit_Click: aan

[midget]

Reut schreef op 30 oktober 2002 @ 16:53:
jo, ik denk dat uw .Close statement hiervoor verantwoordelijk is....
denk je ook niet

Ja dat denk ik ook, maar als ik die weghaal sluit ie nog niet.
Als ik voor ja kies. Wat moet ik er dus aan veranderen?

[Reut]

goto Exit_Sluit_Click als niet wilt sluiten..

(very basic hoor)

[midget]

Reut schreef op 30 oktober 2002 @ 16:56:
goto Exit_Sluit_Click als niet wilt sluiten..

(very basic hoor)

Thanks sorry heb er denk gewoon over heen gelezen bedankt.

[Reut]

Op deze manier krijg je overigens wel een spaghetti zooitje. Je moet al die Goto 's vermijden.

Beter kun je aan de hand van de waarde in Msg het betreffende formulier sluiten.

[KompjoeFriek]

[zeik mode]
Eigenlijk moet ik want ik doe dit zelf ook, maar ik kan 't niet laten...
In dit stuk code:

PHP:

If Response = vbYes Then 
Msg = "Ja" 
Response = MsgBox("U heeft gekozen voor " & Msg & "!" & Chr(13) & "Tot ziens!", Style, Title) 
Else 
Msg = "Nee" 
Response = MsgBox("U heeft gekozen voor " & Msg & "!" & Chr(13) & "Succes met zoeken", Style, Title) 
End If

gebruik je een variabele Msg om Ja of Nee op te slaan, maar voert wel 2x bijna de zelfde code uit.
probeer dat b.v. zo te doen:

PHP:

If Response = vbYes Then 
  Msg = "U heeft gekozen voor Ja!" & Chr(13) & "Tot ziens!" 
Else 
  Msg = "U heeft gekozen voor Nee!" & Chr(13) & "Succes met zoeken" 
End If 
Response = MsgBox(Msg,Style, Title)

Scheelt wel iets code hè? en leer je zelf ook de goede gewoonte van het inspringen aan
[/zeik mode]

[Verwijderd]

Reut schreef op 30 oktober 2002 @ 17:02:
Op deze manier krijg je overigens wel een spaghetti zooitje. Je moet al die Goto 's vermijden.

Beter kun je aan de hand van de waarde in Msg het betreffende formulier sluiten.

Reut heeft groot gelijk, want dacht je van onderstaande code

code:

[Verwijderd]

Verwijderd schreef op 31 oktober 2002 @ 15:58:
[...]


Reut heeft groot gelijk, want dacht je van onderstaande code

code:

<?
Private Sub Sluit_Click() 

On Error GoTo Err_Sluit_Click 

    Dim Msg, Style, Title, Response 
    'Tekst die wordt weer gegeven 
    Msg = "Weet u zeker dat u wilt stoppen met zoeken?" 
    'Geeft een Ja en Nee knop 
    Style = vbYesNo 
    Title = "Wacht op keuze..." 
    Response = MsgBox(Msg, Style, Title) 
    Style = vbOKOnly 
    Title = "En het is geworden..." 
    If Response = vbYes Then 
    Msg = "Ja" 
    Response = MsgBox("U heeft gekozen voor " & Msg & "!" & Chr(13) & "Tot ziens!", Style, Title) 
    DoCmd.Close 
    Else 
    Msg = "Nee" 
    Response = MsgBox("U heeft gekozen voor " & Msg & "!" & Chr(13) & "Succes met zoeken", Style, Title) 
    End If 
     
    Exit Sub 

Err_Sluit_Click: 
    MsgBox "U heeft een fout gemaakt bij het afsluiten van dit formulier" 
    Resume Exit_Sluit_Click 
     
End Sub
?>

[ocke]

Visual Basic:

private sub sluit_click()
  if inputbox("Wilt u stoppen") = vbok then
    msgbox "Tot ziens"
    docmd.close
  end if
  msgbox "Succes met zoeken"
end sub

Euh is volgens mij werkt dit ook al hoor --^

[Verwijderd]

Uh, inputbox is geen msgbox hoor, ocke... bijna goed

[Verwijderd]

ocke schreef op 31 oktober 2002 @ 22:34:

Visual Basic:

private sub sluit_click()
  if inputbox("Wilt u stoppen") = vbok then
    msgbox "Tot ziens"
    docmd.close
  end if
  msgbox "Succes met zoeken"
end sub

Euh is volgens mij werkt dit ook al hoor --^

Niet meteen vertellen hoe het moet

[ocke]

Visual Basic:

private sub sluit_click()
  if msgbox("Wilt u stoppen",20) = vbyes then
    msgbox "Tot ziens"
    docmd.close
  end if
  msgbox "Succes met zoeken"
end sub

Zo dan (die doet het, getest )