Kirana2014
Gebruiker
- Lid geworden
- 21 okt 2020
- Berichten
- 55
Beste allemaal,
De gebruiker selecteert (door te markeren) de records met de recordkiezer. Ik moet VBA-code toevoegen aan een verwijderknop waarmee alle geselecteerde records worden verwijderd. Als ik dat doe, wordt alleen het eerste record verwijderd.
Hoe maak ik van de gemarkeerde records de actieve records en verwijder ik ze allemaal tegelijk?
De gebruiker selecteert (door te markeren) de records met de recordkiezer. Ik moet VBA-code toevoegen aan een verwijderknop waarmee alle geselecteerde records worden verwijderd. Als ik dat doe, wordt alleen het eerste record verwijderd.
Hoe maak ik van de gemarkeerde records de actieve records en verwijder ik ze allemaal tegelijk?
Code:
Private Sub Command493_Click()
Dim strPasswd
Dim stDocName As String
Dim stLinkCriteria As String
On Error GoTo Err_Command6_Click_Error
strPasswd = InputBox("Enter Password", "Restricted Form")
If strPasswd = "" Or strPasswd = Empty Then
MsgBox "No Input Provided", vbInformation, "Required Data"
Exit Sub
End If
If strPasswd = "12345" Then
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdDeleteRecord
Else
MsgBox "Sorry, you do not have access to this form", vbOKOnly, _
"Important Information"
Exit Sub
End If
Exit_ErrorHandler:
Exit Sub
Err_Command6_Click_Error:
If Err.Number = 2501 Then
MsgBox "Delete action cancelled"
Resume Exit_ErrorHandler
Else
MsgBox "Error " & Err.Number & " (" & Err.Description & _
") in procedure Command6_Click of VBA Document Form_T2 at Line " & Erl
Resume Exit_ErrorHandler
End If
End Sub
Bijlagen
Laatst bewerkt: