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
Visual Basic Code
  If cn.State = adStateOpen Then cn.Close 
Set cn = Nothing
yerine
Visual Basic Code
  If cn.State = adStateOpen Then 
cn.Close 
Set cn = Nothing
End if
şeklinde dener misiniz?
Cevapla
#4
(08/01/2020 22:24)berduş Adlı Kullanıcıdan Alıntı:
Visual Basic Code
  If cn.State = adStateOpen Then cn.Close 
Set cn = Nothing
yerine
Visual Basic Code
  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.


Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da