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.
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
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?
Dosyanızı indirip inceleyemedim sadece o kışım hatalı gibi geldi
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