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