Sayın mehmet hocam bende bir soru sorsam acaba ilgilinebelirmisiniz?
Amacım kısaca ADO ile Kayıt Güncelleme işlemini Tablodaki tüm kayıtlara yapmak.


Public Sub Komut508_Click()
'Personel_genel isminde bir tablom var bu tablodaki P_sira alanındaki değerleri yine aynı tablomda bulunan
'P_Ssira no ile tek tek değiştrimek istiyorum ama ADO kullanarak. Aşağıdaki kodla tüm tabloya aynı anda nasıl güncelleme yapabilirim

'Alttaki kod yalnız üzerinde bulunduğumuz kaydı güncelliyor.
'ama ben bir komutla tablodaki bütün P_sira alanına güncellesin istiyorum...

Dim rs1 As New ADODB.Recordset
Dim Sqlaltform As String

Sqlaltform = "SELECT * FROM Personel_genel "
rs1.Open Sqlaltform, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

With rs1
.Update
.Fields("P_sira") = Dlookup ("P_Ssira", "Personel_genel", "P_sira=P_sira")
.Update
End With
rs1.Close
DoCmd.Close
End Sub