[Access/VBA]Record verwijderen

[Anoniem: 25278]

Ik ben bezig met een Access 97 en heb in een form een knop geplaatst die het huidige record verwijdert. Nou wil ik natuurlijk niet met die foeilelijke Access melding van record verwijderen werken, maar met een eigen msgbox. Dit lukt allemaal wel (zie code hieronder), maar als ik eenmaal toekom aan het echte record verwijderen dan weet ik het niet meer.... Me.RecordSet.Delete schijnt niet te werken in Access 97... Weet iemand wat er wel werkt?

code:

Private Sub btnRecordVerwijderen_Click()
On Error GoTo Err_btnRecordVerwijderen_Click
    
    If MsgBox("Wilt u de gegevens verwijderen?", vbYesNo, "Adressoort") = vbYes Then
        'Bij bevestiging, verwijder record

        Me.Recordset.Delete
        
        MsgBox "De gegevens zijn verwijderd!"
        'Ga naar het eerste record
        DoCmd.GoToRecord , , acFirst
    Else
        Me.Undo
    End If
            
    Me.Refresh
            

Exit_btnRecordVerwijderen_Click:
    Exit Sub

Err_btnRecordVerwijderen_Click:
    MsgBox Err.Description
    Resume Exit_btnRecordVerwijderen_Click
    
End Sub

[Anoniem: 53142]

[Edit] Heb nog een extra controle ingebouwd; not isnull(ID)

Ok, je wilt dus deze regels verwijderen?

'DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
'DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Je kunt onderstaande code gebruiken.

Vervang ID 3x door jouw veldnaam (primairy key in het formulier)

code:

If MsgBox("Wilt u de gegevens verwijderen?", vbYesNo, "Adressoort") = vbYes Then
    'Bij bevestiging, verwijder record

    Dim mySQL
    Dim dbs As Database
    Dim rst As Recordset

    if not isnull (me.ID) then 
        mySQL = "Select * FROM " & Me.RecordSource & " WHERE ID= " & Me.ID

        Set dbs = CurrentDb
        Set rst = dbs.OpenRecordset(mySQL)

        If rst.RecordCount > 0 Then
            rst.Delete
        End If

        rst.Close
        dbs.Close
    
        Set rst = Nothing
        Set dbs = Nothing
    
        Me.Requery
        
            MsgBox "De gegevens zijn verwijderd!"

    else
        MsgBox "Geen huidig record!"

    end if
     
else    
    MsgBox "Niet weggegooid!"
End If

[Anoniem: 25278]

Het werkt.. Bedankt!

[Anoniem: 53142]

Vergeet niet mijn laatste wijziging; not isnull (me.ID). Code is gewijzigd.

[Anoniem: 25278]

Het is als volgt geworden:

code:

Private Sub btnRecordVerwijderen_Click()
On Error GoTo Err_btnRecordVerwijderen_Click
    
    Dim mySQL
    Dim dbs As Database
    Dim rst As Recordset
    
    'Is er wel een record geselecteerd?
    If Me.CurrentRecord = False Then
        MsgBox "Er is geen record geselecteerd."
    Else
        'Bij bevestiging gaan we over tot verwijderen
        If MsgBox("Wilt u de gegevens verwijderen?", vbYesNo, "Adressoort") = vbYes Then
        
            'Ophalen uit de database om de recordset te vullen
            mySQL = "Select * FROM tblAdresSoort WHERE ads_ID= " & Me.ads_ID
            Set dbs = CurrentDb
            Set rst = dbs.OpenRecordset(mySQL)
            
            'Als dit record inderdaad bestaat
            If rst.RecordCount > 0 Then
                rst.Delete
            End If
            
            'Opruimen
            rst.Close
            dbs.Close
            
            Set dbs = Nothing
            Set rst = Nothing
            
            'Melding van verwijderen
            Call MsgBox("De gegevens zijn verwijderd.", vbOKOnly)
            
            'Scherm verversen
            Me.Requery
        End If
    End If

            

Exit_btnRecordVerwijderen_Click:
    Exit Sub

Err_btnRecordVerwijderen_Click:
    MsgBox Err.Description
    Resume Exit_btnRecordVerwijderen_Click
    
End Sub

Me.ID werkte niet...

[Anoniem: 53142]

CurrentRecord is natuurlijk ook mogelijk. Ziet er goed uit.