syntax error in the CREATE TABLE statement.
The crazy thing is.. it WAS working perfectly, creating the tables i needed.. i have no clue what i have changed to generate the syntax error
Code: Select all
Me.Command1.SetFocus
If IsNull(Me.Combo30) Then
MsgBox ("Cannot create a tour with no name, sorry!"), vbCritical
Call ClearThem
GoTo EndyBit
End If
'On Error GoTo Hell
Dim dbs As Database
Set dbs = CurrentDb
dbs.Execute "CREATE TABLE " & Me.Combo30 & "(ID COUNTER CONSTRAINT MyFieldConstraint PRIMARY KEY, Qnumber INTEGER, Responsible_Person CHAR);"
dbs.Close