Discussion:
In einem Formular per Code einen Datensatz löschen
(zu alt für eine Antwort)
Michelle_Dubois_Keller
2005-01-12 14:28:04 UTC
Permalink
Hallo,

habe Access97 unter Win2000!

Kann ich folgenden Befehl durch Basic Code ersetzen um den aktuellen
Datensatz im Formular zu löschen!
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70

Danke

michelle
Karl Donaubauer
2005-01-12 14:27:18 UTC
Permalink
Post by Michelle_Dubois_Keller
habe Access97 unter Win2000!
Kann ich folgenden Befehl durch Basic Code ersetzen um den aktuellen
Datensatz im Formular zu löschen!
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
Das ist doch eh schon Basic Code. ;-)
Eine bissel leserlichere Variante ist
RunCommand acCmdDeleteRecord
--
HTH
Karl
********* Ich beantworte keine Access-Fragen per Email. *********
Access-FAQ: http://www.donkarl.com
Michelle_Dubois_Keller
2005-01-12 14:44:20 UTC
Permalink
Hallo,

und Danke genau dies habe ich gesucht!

michelle
Post by Karl Donaubauer
Post by Michelle_Dubois_Keller
habe Access97 unter Win2000!
Kann ich folgenden Befehl durch Basic Code ersetzen um den aktuellen
Datensatz im Formular zu löschen!
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
Das ist doch eh schon Basic Code. ;-)
Eine bissel leserlichere Variante ist
RunCommand acCmdDeleteRecord
--
HTH
Karl
********* Ich beantworte keine Access-Fragen per Email. *********
Access-FAQ: http://www.donkarl.com
Henry Habermacher [MVP Access]
2005-01-13 05:09:20 UTC
Permalink
Hallo Michele
Post by Michelle_Dubois_Keller
habe Access97 unter Win2000!
Kann ich folgenden Befehl durch Basic Code ersetzen um den aktuellen
Datensatz im Formular zu löschen!
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
Wenn Du es ohne DoCmd oder Access Menübefehle, also mit reinem VBA/DAO
machen willst, gibt's diese Möglichkeit:

Private Sub cmdDelete_Click()
Dim rs As Recordset
Set rs = Me.RecordsetClone
If Me.NewRecord Then
Me.Undo
Else
rs.Bookmark = Me.Bookmark
rs.Delete
End If
Set rs = Nothing
Me.Refresh
End Sub

Gruss
Henry
--
Keine E-Mails auf Postings in NGs senden!
Don't send e-mails to postings in newsgroups!
KB: http://support.microsoft.com/default.aspx
FAQ: http://www.donkarl.com (neu mit Suchfunktion!)
OH: Online Hilfe von Microsoft Access (Taste F1)
Downloads: http://www.dbdev.org
Michelle_Dubois_Keller
2005-01-13 11:13:46 UTC
Permalink
Danke,

die Lösung gefällt mir noch besser!


michelle
Post by Henry Habermacher [MVP Access]
Hallo Michele
Post by Michelle_Dubois_Keller
habe Access97 unter Win2000!
Kann ich folgenden Befehl durch Basic Code ersetzen um den aktuellen
Datensatz im Formular zu löschen!
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
Wenn Du es ohne DoCmd oder Access Menübefehle, also mit reinem VBA/DAO
Private Sub cmdDelete_Click()
Dim rs As Recordset
Set rs = Me.RecordsetClone
If Me.NewRecord Then
Me.Undo
Else
rs.Bookmark = Me.Bookmark
rs.Delete
End If
Set rs = Nothing
Me.Refresh
End Sub
Gruss
Henry
--
Keine E-Mails auf Postings in NGs senden!
Don't send e-mails to postings in newsgroups!
KB: http://support.microsoft.com/default.aspx
FAQ: http://www.donkarl.com (neu mit Suchfunktion!)
OH: Online Hilfe von Microsoft Access (Taste F1)
Downloads: http://www.dbdev.org
Loading...