AccessTr.neT

Bul · 08/01/2020, 22:08

Merhaba.

Resimdeki gibi bazen hata alıyorum.
Acaba sebebi nedir?

Hata Listele Butonuna tıklayınca oluyor ve bazende Yeni Kaydet butonundada benzer hata oluyor.

Teşekkürler.

[Resim: do.php?img=9428]

Bul · 08/01/2020, 22:12

Kodlarda altta.İnternetten bulup uyarladım acaba nerde yanlışlık var?

Kod:

Option Compare Database

Dim rs As New ADODB.Recordset

Dim cn As New ADODB.Connection

Dim strSQL As String



Sub Ac()







    If cn.State = adStateOpen Then cn.Close

Set cn = Nothing

    With cn

      .Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & CurrentProject.FullName

    End With



    If rs.State = adStateOpen Then rs.Close

    With rs

        .CursorType = adOpenDynamic

        .CursorLocation = 3

        .LockType = adLockOptimistic

        .Open "Select * From Tablo1 ", cn, , , 1

    End With

    Lstbox.ColumnCount = 3

    Lstbox.ColumnHeads = True

    Set Lstbox.Recordset = rs





End Sub







Private Sub Komut11_Click() 'Kaydet



If IsNull(Me.txtAd.Value) Or IsNull(Me.txtSoyad.Value) Or IsNull(Me.txtYas.Value) Then GoTo son

    rs.AddNew

        rs(0) = txtAd.Value

        rs(1) = txtSoyad.Value

        rs(2) = txtYas.Value

    rs.Update



    Call Ac

    Call Ac

Exit Sub

son:

MsgBox "Veriler Bos Birakilamaz!!!!", vbCritical, "Hata"

    

End Sub



Private Sub Komut6_Click() 'Listele

  Call Ac

End Sub



Private Sub Lstbox_Click()

    txtAd.Value = Lstbox.Value

    txtSoyad.Value = Lstbox.Column(1, Lstbox.ListIndex + 1)

    txtYas.Value = Lstbox.Column(2, Lstbox.ListIndex + 1)

End Sub

Bul · 08/01/2020, 22:24

  If cn.State = adStateOpen Then cn.Close 

Set cn = Nothing

yerine

  If cn.State = adStateOpen Then 

cn.Close 

Set cn = Nothing

End if

şeklinde dener misiniz?

Bul · 08/01/2020, 22:29

(08/01/2020, 22:24)berduş yazdı:

  If cn.State = adStateOpen Then cn.Close 

Set cn = Nothing

yerine

  If cn.State = adStateOpen Then 

cn.Close 

Set cn = Nothing

End if

şeklinde dener misiniz?

Merhaba Set cn = Nothing

Bu kısmı silsem bile aynı hata oluyor.Yarın deneyebilirim.Bence başka bir hata var gibi Img-cray

Bul · 08/01/2020, 22:30

Dosyanızı indirip inceleyemedim sadece o kışım hatalı gibi geldi

Bul · 08/01/2020, 22:32

Kodları bulduğum internet sayfasıda altta.Orda set cn=nothing kodunuda eklememiş.Ben yinede ekledim belki hata düzelir diye .Bu kodu silsemde hata oluyor.

https://youtu.be/gaMGac0hgBM

AccessTr.neT

Access Hata

Access Hata

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

Giriş yap

Hesap oluştur

Konu Linkleri