Defterler için yürüyen cilt ve sayfa numaralrının topluca tabloya kaydedilmesi

Run-time error '3134'
inset into deyiminde söz dizimi hatası veriyor

Alan isimlerini köşeli parantez içinde yazın. Metin türündeki alanlar için VALUES sonrasındaki değerleri tek tırnak içine alın. Tarih türündeki alanların # işareti içinde olması gerekir. Örnek dosyanızı ekleyin birkaç temsili değer ekleyin form ve tablolarınız hazır olsun. Kafadan ancak bu kadar yazıyoruz örnek dosya olursa en azından test edip siteye cevap yazıyoruz.

NOT : Yapılmaması gereken ölümcül hatalar konusunu mutlaka okuyun.

Öncelikle teşekkür ederim.
Valla o tırnak köşeli parantez virgüller arasında boğuldum bir bakabilir misiniz? örneği gönderiyorum.

birde o yazdığımız formülde ilk cildi eklemiyor sanırım ilk cilt sahifesine 50 ekleyip tabloya aktarıyor. if yapısının önüne aynı bir Sql ekleme koysak tekrarlar mı ife geçer mi direk. neyse önce bunu halledek sonrasına bakarız?

Dim ciltserinumara, ciltilksayfaNO, SondefterIlkSayfa, gondermeno, ambarno As Integer

Dim gondermetarihi, ambartarihi As Date

Dim ekleme As String



    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

        ekleme = "INSERT INTO defterler ([CildinSerisi],[CildinIlkSahifeNosu], [GonderimYaziTarih],[GonderimYaziNO] ,[AmabaraGirisTar],[AmbaraGirBelgeNo]) VALUES (" & ciltserinumara & " ," & ciltilksayfaNO & " , #" & Format(gondermetarihi, "mm\/dd\/yyyy") & "# ," & gondermeno & ",#" & Format(ambartarihi, "mm\/dd\/yyyy") & "#," & ambarno & ")"

        Debug.Print ekleme

        DoCmd.RunSQL ekleme

        

    End If

VALUES dan önce & işareti kullanmışsınız olmayacaktı. Ayrıca tarihleri direkt yazınca olmuyor çevirmek için Format kullanmalısınız. İşte örnek uygulama eklemenin kolaylığı burada.

formatı ne yapmam lazım

gondermetarihi = Format(Me.txtGonderimTarihi, "dd.mm.yyyy")

gondermetarihi = Format(Me.txtGonderimTarihi, "dd/mm/yyyy")

gondermetarihi = Format(Me.txtGonderimTarihi, "yyyy/mm/dd")

bunları denedim olmadı. birde if döngüsünden ilk sayfa noya 50 ekliyor ama her seferinde aynı ilk sayfanoya ekliyor yeni eklediği değeri almıyor

Tarih için :

Format(gondermetarihi, "mm\/dd\/yyyy")

şeklinde kullanmalısınız yani ay/gün/yıl şeklinde ancak aralarda \ve / şeklinde işaretlerin ikisinide kullanın.

ciltilksayfaNO = Me.txtCildilkSayfa

şeklinde değerini formdan aldırmışsınız. Eğer bu değeri tablodaki son değerin 50 fazlası yapmak istiyorsanız:

DMax("alan","tablo","şart")

ile elde edebilirsiniz. O sayıyı nereden, nasıl almak istediğinizi detaylıca yazacak olursanız yardımcı oluruz.