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]](https://resim.accesstr.net/do.php?img=9428)
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
