saygideger abiler,
Acces te ado kullanarak kayit ekleme mevcut kaydi degistirme veya silma yapabilmem gerekiyor,yardimci olursanir sevinirim..
formda düzenlemeye calistim,örnekte kayit eklemeyi hallettim,ama digerlerinde takildim:-(
Saygilar
mümtaz
onu inceledim ama biraz karisik geldi,yeni ögrenen ben icin
acep birisi göndermis oldugum data üzerinde yapabilirmi cok mutmain olacagim
saygilar
ö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
saygıdeğer mumcos, sorun çözüldümü acaba?