Şu kodu düzeltebilirmisiniz eklenecek tablonun ismi Defterler

Private Sub Komut64_Click()

Dim ciltserinumara As Integer

Dim ciltilksayfaNO As Integer

Dim SondefterIlkSayfa As Integer

Dim gondermetarihi As Date

Dim gondermeno As Integer

Dim ambartarihi As Date

Dim ambarno As Integer

ciltserinumara = Me.txtCiltSeriNO

ciltilksayfaNO = Me.txtCildilkSayfa

SondefterIlkSayfa = Me.txtAdeti

gondermetarihi = Me.txtGonderimTarihi

gondermeno = Me.txtGonderimNo

ambartarihi = Me.txtAmbaraGirTar

ambarno = Me.txtAmbarNo

    If ciltilksayfaNO <= SondefterIlkSayfa Then

        ciltilksayfaNO = ciltilksayfaNO + 50

            insert into defterler ( CildinSerisi,Cildin İlk SahifeNosu,_

                GonderimYaziTarih,GonderimYaziNO,AmabaraGirisTar,AmbaraGirBelgeNo)



                values (ciltserinumara,ciltilksayfaNO,gondermetarihi,_

                    gondermeno,ambartarihi,ambarno)

        Else

    End If

End Sub