Parameter type append query dialog box - how to abort smoothly?

[MLH]

I have the following code in an Access 97 procedure:

MySQL = "INSERT INTO tblVehicleNames (VehicleMake) SELECT [Enter the
make] AS [NewMakenModel];"
DoCmd.SetWarnings False
DoCmd.RunSQL (MySQL)
DoCmd.SetWarnings True

When it runs, a dialog box instructing me to "Enter the make". It
is expecting me to type in something like "Chevy Caprice". The dialog
box has 2 buttons: OK and Cancel. If I enter nothing at all and click
"OK", nothing happens. No record is appended to tblVehicleNames and
no error occurs. However, if I click "Cancel", error #2766 occurs. Why
does "Cancel" result in an error when "OK" does not?

[Wolf]

Use an inputbox to ask them the make before you build your sql string.
Like this;

Dim strRetVal as String, mySQL as String

strRetVal = Inputbox("Enter the make")

If Len(strRetVal) > 0 Then 'only proceed if they enter something
mySQL = "INSERT INTO tblVehicleNames(VehicleMake) VALUES ('" &
strRetVal & "')"
DoCmd.Setwarnings False
DoCmd.RunSQL (MySQL)
DoCmd.SetWarnings True
Else ' If you want, you can tell them what they did wrong
msgbox "Must enter a vehicle make"
End If

This code is not pretty but it gives you the general idea.

[MLH]

Good suggestion, Wolf. Many thx!
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Use an inputbox to ask them the make before you build your sql string.
Like this;

Dim strRetVal as String, mySQL as String

strRetVal = Inputbox("Enter the make")

If Len(strRetVal) > 0 Then 'only proceed if they enter something
mySQL = "INSERT INTO tblVehicleNames(VehicleMake) VALUES ('" &
strRetVal & "')"
DoCmd.Setwarnings False
DoCmd.RunSQL (MySQL)
DoCmd.SetWarnings True
Else ' If you want, you can tell them what they did wrong
msgbox "Must enter a vehicle make"
End If

This code is not pretty but it gives you the general idea.