Adding a record to a table

  • Thread starter Thread starter Steven Revell
  • Start date Start date
S

Steven Revell

Hi,

I want to use code to add a new record (made up of 4
strings and 1 date) and populate it with data i have
collected. I also need to add the record at the end of the
table.

Thanks for any help,

Steven
 
Steven said:
I want to use code to add a new record (made up of 4
strings and 1 date) and populate it with data i have
collected.
Click to expand...

In what context? If in codem you could execute an INSERT
INTO query, but there are other ways too.
I also need to add the record at the end of the table.
Click to expand...

There is no such thing as "the end of the table". The
**only** way you can see data from a table in a particular
order is to have a query that sorts the data.
 
Thanks for replying,

I want to add a record to a table using code.

The code I have performs a filesearch of all the files on
a CD or directory and ends up with 4 entries for each file
found. I want to add data for each file to a predefined
table.

Hope that makes more sense,

Cheers,
Steven
 
Steven said:
I want to add a record to a table using code.

The code I have performs a filesearch of all the files on
a CD or directory and ends up with 4 entries for each file
found. I want to add data for each file to a predefined
table.
Click to expand...

Check Help for the details of using an INSERT INTO query.
You will probably end up with something like:

Dim db As Database
Dim strSQL As String
On Error GoTo ErrHandler

Do Until nomorefiles
' Gather data from filesearch
. . .
' Now, save data to thetable
Set db = CurrentDb()
strSQL = "INSERT INTO thetable " _
& "(fieldA, fieldB, fieldC, fieldD) " _
& "VALUES(value1, value2, value3, value4)"
db.Execute strSQL, dbFailOnError
' locate next file
Loop

ExitHere:
Set db = Nothing
Exit Sub
ErrHandler:
MsgBox Err.Number & " - " & Err.Description
Resume ExitHere
End Sub
--
Marsh
MVP [MS Access]

 
Back
Top