Melding na uitvoeren access opdracht

[Smartguy]

Wat is de code voor het laten zien van een melding na het uitvoeren van een opdracht. Dus als ik bijvoorbeeld in een formulier op "Verwijderen" klik dat dan eerst de melding "Weet u het zeker?" verschijnt met de opties 'ja / nee.

Of is dit niet zo simpel als ik denk?

Alvast bedankt

 

[Anne-Marie]

hier een oude oplossing

Dit is een oude oplossing van een paar jaar geleden. Misschien heb je er iets aan:

If msgbox("Weet je zeker dat je het wilt?", vbYesNo, "Belangrijke vraag") = vbYes Then
'Voer hier de code uit die je wilt uitvoeren
Else
'Doe hier wat je wilt als op Nee gedrukt is
End If

Suc6

 

[Smartguy]

Hmmm, ben niet zo'n script mannetje. Maar stel dus ik heb deze code, hoe moet het er dan uit zien te komen als ik wil dat bij het verwijderen van een record eerst een melding verschijnt. Bij deze code verwijst het private sub veld naar het function veld welke de record verwijdert. Deze code heb ik niet zelf bedacht.

Private Sub verwijderen_knop2_Click()
   If Not (fDelCurrentRec(Me)) Then
        MsgBox "An Error occurred!"
    End If
    
End Sub
_____________________________________

Function fDelCurrentRec(ByRef frmSomeForm As Form) As Boolean
    On Error GoTo Err_Section
    
    With frmSomeForm
        If .NewRecord Then
            .Undo
            fDelCurrentRec = True
            GoTo Exit_Section
        End If
    End With
    
    With frmSomeForm.RecordsetClone
        .Bookmark = frmSomeForm.Bookmark
        .Delete
        frmSomeForm.Requery
    End With
    fDelCurrentRec = True
Exit_Section:
    Exit Function

Err_Section:
    fDelCurrentRec = False
    Resume Exit_Section
End Function

Dit zou dus zo iets moeten worden?:

If msgbox("Weet je zeker dat je deze record wilt verwijderen?", vbYesNo, "Belangrijke vraag") = vbYes Then 

Function fDelCurrentRec(ByRef frmSomeForm As Form) As Boolean
    On Error GoTo Err_Section
    
    With frmSomeForm
        If .NewRecord Then
            .Undo
            fDelCurrentRec = True
            GoTo Exit_Section
        End If
    End With
    
    With frmSomeForm.RecordsetClone
        .Bookmark = frmSomeForm.Bookmark
        .Delete
        frmSomeForm.Requery
    End With
    fDelCurrentRec = True
Exit_Section:
    Exit Function

Err_Section:
    fDelCurrentRec = False
    Resume Exit_Section
End Function

Else 

.undo '< Klopt dit?'


End If

 

[paul.jacobs]

je kan het ook met een macro maken