Create table query

[Synkro]

Hello all, I'm new to the newsgroup.

Hoping you can help me with a little problem I'm having. Is there anyway
of allowing my create table query to run without generating prompts, and
without changing the options in access. I like to have the notifications
on, but I have a table which is auto deleted and recreated every 3 Minutes
for our MapPoint linked data.And the "You are about to add the records'
messages are enough to drive you silly.

Any workaround you know of??

Cheers, Chris

 

[John Vinson]

Hello all, I'm new to the newsgroup.

Hoping you can help me with a little problem I'm having. Is there anyway
of allowing my create table query to run without generating prompts, and
without changing the options in access. I like to have the notifications
on, but I have a table which is auto deleted and recreated every 3 Minutes
for our MapPoint linked data.And the "You are about to add the records'
messages are enough to drive you silly.

Any workaround you know of??

Cheers, Chris

Use the Execute method of a Querydef object:

Dim db As DAO.Database
Dim qd As DAO.Querydef
Dim prm As Parameter
On Error GoTo Proc_Error
Set db = CurrentDb
Set qd = db.Querydefs("YourMakeTableQueryName")
For Each prm In qd.Parameters ' if it's a parameter query
prm.Value = Eval(prm.Name)
Next prm
qd.Execute dbFailOnError
Proc_Exit:
Exit Sub
Proc_Error:
<handle the error condition>
Resume Proc_Exit
End Sub

John W. Vinson[MVP]