AccessTr.neT
Tabloda Güncelleme - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Tabloda Güncelleme (/konu-tabloda-guncelleme.html)



Tabloda Güncelleme - idrisy - 10/09/2012

Sayın Hocalarım; EK'teki dosyada tablodaki verileri güncellemek istiyorum. Ancak birtürlü başaramadım . Yardımlarınızı bekliyorum.


Cvp: Tabloda Güncelleme - ozanakkaya - 10/09/2012

Bu soruya çözüm bulunabilmesi için deneme2s.html sayfasının olması gerekiyor. Lütfen bu dosyayı ekleyiniz.


Cvp: Tabloda Güncelleme - idrisy - 10/09/2012

Hocam; unutmuşum. deneme2s.html sayfası Ekli halini ekledim. Yapmak istediğimin iternetten aldığım verileri tabloya aktarmak. Aktarırken eğer o kişinin verileri varsa o verileride güncellemek istiyorum. Verileri alabiliyorum ancak güncellemeyi yapamadım. Yardımlarınızı bekliyorum


Cvp: Tabloda Güncelleme - ozanakkaya - 12/09/2012

guncelle fonksiyonunu aşağıdaki ile değiştir.

Function guncelle()
Dim strSQl As String
Dim rstkayit As ADODB.Recordset

strSQl = "SELECT * FROM tblygs "
Set rstkayit = New ADODB.Recordset
rstkayit.Open strSQl, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
With rstkayit
.Find "[tck]=" & Me![TcKimlik]
If Not rstkayit.EOF Then
.Fields("BabaAdi") = BabaAdi.Value
.Fields("AnaAdi") = AnaAdi.Value
.Fields("DogumYeri") = DogumYeri.Value
If Cinsiyet = 0 Then
.Fields("Cinsiyet") = "Kız"
ElseIf Cinsiyet = 1 Then
.Fields("Cinsiyet") = "Erkek"
End If
.Fields("DogumTarihi") = DogumTarihi.Value
.Fields("NufusIli") = NufusIli.Value
.Fields("NufusIlcesi") = NufusIlcesi.Value
.Fields("CiltNo") = CiltNo.Value
.Update
Else
.AddNew
.Fields("Adi") = Adi.Value
.Fields("Soyadi") = Soyadi.Value
.Fields("BabaAdi") = BabaAdi.Value
.Fields("AnaAdi") = AnaAdi.Value
.Fields("DogumYeri") = DogumYeri.Value
If Cinsiyet = 0 Then
.Fields("Cinsiyet") = "Kız"
ElseIf Cinsiyet = 1 Then
.Fields("Cinsiyet") = "Erkek"
End If
.Fields("DogumTarihi") = DogumTarihi.Value
.Fields("NufusIli") = NufusIli.Value
.Fields("NufusIlcesi") = NufusIlcesi.Value
.Fields("CiltNo") = CiltNo.Value
.Update
End If
End With
End Function



Cvp: Tabloda Güncelleme - idrisy - 12/09/2012

ozanakkaya hocam çok teşekkür ederim. Eline sağlık.