öncelikle kullandığın dil ado değil dao dur ondan dolayı ado sana karışık gelmiştir dao ile güncelleme silme ekleme vs vs ado ile çok az benzerlik göstersede farklıdır.
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
ve örneğinde ektedir yalnız unutma bunlar sadece silme ve düzenleme (değiştirme) bu kodlar bu haliyle bırkılmamalıdır silme veya editleme kodlarında seçilen isim tabloda yoksa yani NoMatch ise uyarı versin vs vs kısımlarıda tamamlaman gerekir ayrıca accessin kendi yardımında dao yada ado ilgili bir çok kod var onları incelemeni tavsiye derim
ö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
Deneme.rar
(Dosya Boyutu: 25,76 KB | İndirme Sayısı: 85)
meşhur çin atasözü "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz
Cevapla
#1
