neyse senin istediğin
kodlar bunlar
Kod:
Private Sub Befehl10_Click()
Dim R As Recordset, DB As Database
Dim kriter As Variant
Set DB = CurrentDb()
Set R = DB.OpenRecordset("Artikel1", dbOpenDynaset)
kriter = "Aid =" & Me.Artikelliste.Column(0)
R.FindFirst kriter
R.Delete
R.Close
DoCmd.OpenTable "Artikel1"
Me.Artikelliste.Requery
End Sub
Kod:
Private Sub Befehl16_Click()
Dim R As Recordset, DB As Database
Dim kriter As Variant
Set DB = CurrentDb()
Set R = DB.OpenRecordset("Artikel1", dbOpenDynaset)
kriter = "Aid =" & Me.Liste17.Column(0)
R.FindFirst kriter
R.Edit
R!Artikelname = Me.Metin20
R.Update
R.Close
DoCmd.OpenTable "Artikel1"
Me.Liste17.Requery
End Sub
örneiğin
accessin kendi içindeki yardımda dao silme kodu
Kod:
Sub DeleteX()
Dim dbsNorthwind As Database
Dim rstEmployees As Recordset
Dim lngID As Long
Set dbsNorthwind = OpenDatabase("Northwind.mdb")
Set rstEmployees = _
dbsNorthwind.OpenRecordset("Employees")
' Add temporary record to be deleted.
With rstEmployees
.Index = "PrimaryKey"
.AddNew
!FirstName = "Janelle"
!LastName = "Tebbs"
.Update
.Bookmark = .LastModified
lngID = !EmployeeID
End With
' Delete the employee record with the specified ID
' number.
DeleteRecord rstEmployees, lngID
rstEmployees.Close
dbsNorthwind.Close
End Sub
Kod:
Sub DeleteRecord(rstTemp As Recordset, _
lngSeek As Long)
With rstTemp
.Seek "=", lngSeek
If .NoMatch Then
MsgBox "No employee #" & lngSeek & " in file!"
Else
.Delete
MsgBox "Record for employee #" & lngSeek & _
" deleted!"
End If
End With
End Sub