Microsoft Access VBA INSERT SQL statement -


i have created database within microsoft access , form.
have button attached form , when it's clicked want insert new record table customerheader.
there 4 fields within table 1 being autonumber. in sql statement, don't include ordernumber since autofield.
when try click button , on click event executed, error saying microsoft access cannot append records in append query.

any ideas, have looked everywhere , have not been able find solution.

private sub addorder_click()     dim mysql string     dim rownum integer     dim reccount long     dim ordernumber long     dim mybool boolean       dim todaydate date      todaydate = cdate(date)      mybool = false       msgbox todaydate      rownum = form.currentrecord     rownum = cint(rownum - 1)        'docmd.gotorecord , , acnewrec     mysql = "insert orderheader (orderdate,custnumber,printed) values (" & todaydate & "," & rownum & "," & mybool & ")"      docmd.runsql mysql      me!ordernum.requery 

you don't have around - use iso sequence format of string expression date value:

mysql = "insert orderheader (orderdate,custnumber,printed) values (#" & format(todaydate, "yyyy\/mm\/dd") & "#," & rownum & "," & mybool & ")" 

however, it's today, use:

mysql = "insert orderheader (orderdate,custnumber,printed) values (date()," & rownum & "," & mybool & ")" 

Comments

Popular posts from this blog

Command prompt result in label. Python 2.7 -

javascript - How do I use URL parameters to change link href on page? -

amazon web services - AWS Route53 Trying To Get Site To Resolve To www -