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

Dim gondermetarihi, ambartarihi As Date



    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

        DoCmd.RunSQL "INSERT INTO defterler (CildinSerisi,Cildin İlk SahifeNosu, GonderimYaziTarih,GonderimYaziNO,AmabaraGirisTar,AmbaraGirBelgeNo) VALUES (" & ciltserinumara & " '," & ciltilksayfaNO & "," & gondermetarihi & "," & gondermeno & "," & ambartarihi & "," & ambarno & ")"

    End If