Merhaba
Otomatik sayi olan ID alaninda ADO ile kaydet tiklandığında hata aliyorum. Çözümü konusunda bilgi vermenizi rica ederim.

b-

c-

d-

Dim rstkayit As ADODB.Recordset

Dim strSQL As String



strSQL = "SELECT * FROM T_GelenEvrak "

    Set rstkayit = New ADODB.Recordset

    rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

        With rstkayit

        

           .Find "[ID]=" & " & Me![ID_TXT] & "

           

            If Not rstkayit.EOF Then

                

                .Fields("EvrakTarihi") = Me.EvrakTarihi_TXT

                .Fields("EvrakNo") = Me.EvrakNo_TXT

                .Fields("KayitTarihi") = Me.KayitTarihi_TXT

                .Fields("GonderenKurum") = Me.GonderenKurum_TXT

                .Fields("GonderenKisi") = Me.GonderenKisi_TXT

                .Fields("Kategori") = Me.Kategori_CBO.Column(0)

                .Fields("Konusu") = Me.Konusu_TXT

                .Fields("Durumu") = Me.Durumu_CBO.Column(0)

                .Fields("EkBelge") = Me.EkBelge_TXT

                .Update

                

               Else

               

                .AddNew

                .Fields("EvrakTarihi") = Me.EvrakTarihi_TXT

                .Fields("EvrakNo") = Me.EvrakNo_TXT

                .Fields("KayitTarihi") = Me.KayitTarihi_TXT

                .Fields("GonderenKurum") = Me.GonderenKurum_TXT

                .Fields("GonderenKisi") = Me.GonderenKisi_TXT

                .Fields("Kategori") = Me.Kategori_CBO.Column(0)

                .Fields("Konusu") = Me.Konusu_TXT

                .Fields("Durumu") = Me.Durumu_CBO.Column(0)

                .Fields("EkBelge") = Me.EkBelge_TXT

                .Update

                

            End If

        End With

End If



End Sub