Skip to main content

AccessTr.neT


Access Hata

Access Hata

Çözüldü #1
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]
.rar Ado.rar (Dosya Boyutu: 33,99 KB | İndirme Sayısı: 4)
Cevapla
#2
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

Cevapla
#3
  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?
Cevapla
#4
(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
Cevapla
#5
Dosyanızı indirip inceleyemedim sadece o kışım hatalı gibi geldi
Cevapla
#6
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
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da