Allah razı olsun hocam,istediğimden fazlası bile olmuş.Hayırlı akşamlar.
Kayıt eklemek-silmek ve değiştirmek
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
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.
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Pardon sayın alpeki99 hocam. Tamam sorumu iptal ediyorum..
Konuyu Okuyanlar: 1 Ziyaretçi