Skip to main content

AccessTr.neT


Ado 'le Kayit Runtime 3001 Hatasi

Oğuz Türkyılmaz
Oğuz Türkyılmaz
11
789

Ado 'le Kayit Runtime 3001 Hatasi

Çözüldü #1
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]
b-
[Resim: do.php?img=9874]
c-
[Resim: do.php?img=9875]
d-
[Resim: do.php?img=9876]

Visual Basic Code
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
.rar Gelen Evrak Error 3001.rar (Dosya Boyutu: 131,9 KB | İndirme Sayısı: 3)
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#2
Visual Basic Code
           .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?
Cevapla
#3
(16/03/2020 21:31)berduş Adlı Kullanıcıdan Alıntı:
Visual Basic Code
           .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
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#4
[Resim: do.php?img=9877]

Ayni hatayi verdi. Sn@berduş
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#5
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ı
Cevapla
#6
Visual Basic Code
.Find "[TcNo]=" & TcNo_TXT.value

Kodlara bakarak yazdım deneyemedim.
Son Düzenleme: 16/03/2020, 22:17, Düzenleyen: feraz.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da