Custom Insert Statement

[kosmokramer]

I am working on some forms, and when I try the "Add New Record" method that pops up as one of the options in the actions for a new command button, it does not work for my form. Some fields it does not even let me enter information into at all. So, what I am going to do is create a whole new form for inserting into the database, leave the fields unbound and just use an Insert to grab the information off the form and insert it.

So, how do you write an Insert statement for the form? I know how to do one in Visual Basic 6.0, but since this version of VB is in Access (and is with the database already), you wouldn't have to write a connectionstring and all that stuff would you? Also, would the insert statement be the same? Something like this:

Insert into myTable (firstRow, secondRow, thirdRow) Values (firstField.text, secondField.text, thirdField.text)

 

[smedvid]

Here is one approach ... htwh,

Dim ThisDB as DAO.Database
Dim lcSQL as String

Set ThisDB = CurrentDB

lcSQL = "Insert into MyTable "
lcSQL = lcSQL & "(Field1, Field2,..."
lcSQL = lcSQL & "VALUES (...."

Thisdb.Execute lcSQL, dbFailOnError

Steve Medvid
"IT Consultant & Web Master"

http://www.saveourfarm.com

Chester County, PA Residents
Please Show Your Support...

 

[PHV]

Something like this:
DoCmd.RunSQL "Insert into myTable (firstRow, secondRow, thirdRow) Values ('" & firstField.text & "','" & secondField.text & "','" & thirdField.text & "')"
Don't use single quotes for numeric fields.

Hope This Help, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884