Insert a record in a table

[Brian]

I am tring to insert some data from a form to a table:

INSERT BOOKING([Blocked Booked], [Teacher's Initials],
[Booking Date])
VALUES(forms![SINGLE BOOKING DETAIL]![Blocked Booked],
forms![SINGLE BOOKING DETAIL]![Teacher's Initials],
[Current Date])

but get a compile error expecting: =.

Have I got the wrong format for inserting a record, or is
there another syntax problem?

I want to insert the current date in the last field. Is
there something I put instaed of current date?

The primary key of Booking is [Booking ID]with a Data Type
of AutoNumber

Thanks guys

 

[tina]

if [Current Date] is not a control on your form, then the reference is
invalid. if you want to insert the current today's date, then try Date()
instead.

hth

 

[John Vinson]

I am tring to insert some data from a form to a table:

INSERT BOOKING([Blocked Booked], [Teacher's Initials],
[Booking Date])
VALUES(forms![SINGLE BOOKING DETAIL]![Blocked Booked],
forms![SINGLE BOOKING DETAIL]![Teacher's Initials],
[Current Date])

but get a compile error expecting: =.

Have I got the wrong format for inserting a record, or is
there another syntax problem?

I suspect that you're mixing SQL and VBA - they are DIFFERENT
languages, and you can't just have a SQL statement like this inserted
into VBA code. What's the context? Is this being stored as a Query
using the SQL window, or do you have this as a line in a VBA
procedure?

If the latter, build the SQL string *as a string variable* and execute
it:

Dim strSQL As String
strSQL = "INSERT INTO BOOKING([Blocked Booked], [Teacher's Initials],
"
& "[Booking Date]) VALUES('" _
& forms![SINGLE BOOKING DETAIL]![Blocked Booked] & "', '" _
& forms![SINGLE BOOKING DETAIL]![Teacher's Initials] _
& "', #" & Date() & "#)"

DoCmd.RunSQL strSQL


String values must be delimited by ' or " and dates by #.

A couple of concerns:

- Why do this at all, instead of using a bound form?
- Putting ' in a fieldname or control name is asking for trouble, as
it may - indeed will - be interpreted as a quotemark