Değişken Hatası

Şu kodu çalıştırdığımda

Private Sub Komut39_Click()

    Dim strSQL As New ADODB.Connection

    Dim rstkayit As New ADODB.Recordset

    krkSQL = "SELECT *FROM tbl_kasa"

            

            rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

                With rstkayit

                    .Find "[CariBilgisi]=" & Me.CariBilgisi

                        DoCmd.RunCommand acCmdSaveRecord

                        .AddNew

                        .Fields("CariBilgisi") = Me.CariBilgisi

                        .Fields("ktarihi") = Me.Tarih

                        .Fields("giris") = Me.fatTopla

                        .Update

                        End With

                                              

                        

                   

                            

                            

End Sub

Şu hatayı alıyorum

Merhaba,

strSQL şeklinde tanımlama yapılmış ancak kod içerisinde krkSQL olarak kullanılıyor. 

Hatanın sebebi bu olabilir. Örnek uygulamayı inceleyebilirsek net fikir üretebiliriz.

(30/03/2018, 15:49)ozanakkaya yazdı: Merhaba,

strSQL şeklinde tanımlama yapılmış ancak kod içerisinde krkSQL olarak kullanılıyor. 

Hatanın sebebi bu olabilir. Örnek uygulamayı inceleyebilirsek net fikir üretebiliriz.

Teşekkürler ama olmuyor ondan değil yani

Birde, kod yapısına göre strSQL'un New ADODB.Connection değil de string olması lazım gibi.

(30/03/2018, 15:52)ozanakkaya yazdı: Birde, kod yapısına göre strSQL'un New ADODB.Connection değil de string olması lazım gibi.

 
Çok teşekkür ederim  string olayı düzeltti. 
her zaman ki gibi  muhteşemsiniz

Bir şey daha sorsam formdaki verilerin 2 tabloya da kayıt edilip edilmediğini nasıl check edebilirim ? örnek var mıdır elinizde bununla ilgili