Access Hata

1 2 3
08/01/2020, 22:08

feraz

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.


08/01/2020, 22:12

feraz

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
08/01/2020, 22:24

berduş

  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?
08/01/2020, 22:29

feraz

(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
08/01/2020, 22:30

berduş

Dosyanızı indirip inceleyemedim sadece o kışım hatalı gibi geldi
08/01/2020, 22:32

feraz

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
1 2 3