Ado 'le Kayit Runtime 3001 Hatasi

Ado 'le Kayit Runtime 3001 Hatasi - 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ığı: Ado 'le Kayit Runtime 3001 Hatasi (/konu-ado-le-kayit-runtime-3001-hatasi.html)

Sayfalar: 1 2

Ado 'le Kayit Runtime 3001 Hatasi - Oğuz Türkyılmaz - 16/03/2020

Merhaba
Otomatik sayi olan ID alaninda ADO ile kaydet tiklandığında hata aliyorum. Çözümü konusunda bilgi vermenizi rica ederim.
[Resim: do.php?img=9873]

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

Cvp: Ado 'le Kayit Runtime 3001 Hatasi - berduş - 16/03/2020

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

find komutunu yukardaki gibi düzenleyip dener misiniz?
Me![ID_TXT] kodundan önce ve sonra neden çift tırnak ( " ) eklemişsiniz?

Cvp: Ado 'le Kayit Runtime 3001 Hatasi - Oğuz Türkyılmaz - 16/03/2020

(16/03/2020, 21:31)berduş yazdı:
           .Find "[ID]=" & Me![ID_TXT]
find komutunu yukardaki gibi düzenleyip dener misiniz?
Me![ID_TXT] kodundan önce ve sonra neden çift tırnak ( " ) eklemişsiniz?

asagida metin tipinde alan için " ' " seklinde idi ID alani Sayi oldugu icin cift tirnak icinde yazdim.

strSQL = "SELECT * FROM T_Uye order by uyeno"
Set rstkayit = New ADODB.Recordset
rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
With rstkayit
.Find "[TcNo]=" & "'" & Me![TcNo_TXT] & "'"
If Not rstkayit.EOF Then

Cvp: Ado 'le Kayit Runtime 3001 Hatasi - Oğuz Türkyılmaz - 16/03/2020

[Resim: do.php?img=9877]

Ayni hatayi verdi. Sn@berduş

Cvp: Ado 'le Kayit Runtime 3001 Hatasi - berduş - 16/03/2020

1. gönderdiğiniz örnekte öyle değildi çift tırnak içinde tek tırnak yoktu sadece önüne ve sonuna birer tane çift tırnak eklenmişti
2. is ID alanı metin değil ki uzun tamsayı yani tırnak kullanılmaz
3. yine denedim bende hata vermedi
ID girdiğiniz metin kutusu gizli ve boş
görünür yapıp sayıyı ben girdim sorunsuz düzenleme yaptı

Cvp: Ado 'le Kayit Runtime 3001 Hatasi - feraz - 16/03/2020

.Find "[TcNo]=" & TcNo_TXT.value

Kodlara bakarak yazdım deneyemedim.