Kayıt eklemek-silmek ve değiştirmek

Allah razı olsun hocam,istediğimden fazlası bile olmuş.Hayırlı akşamlar.

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

Lütfen Site Kurallarını okuyunuz. Bitmiş bir konuya yeni bir soru sormayınız. Yeni bir konu açıp sorunuzu yazın ve bu konuyu örnek vermek istiyorsanız konu adresini ekleyiniz.

Pardon sayın alpeki99 hocam. Tamam sorumu iptal ediyorum..