AccessTr.neT

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

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

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

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

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