You refer to the parameter?
Along the lines of
Code:
Dim strSQL As String
strSQL = _
"INSERT INTO Comments (ProjectID, Owner, Comment, Date) SELECT p0, p1, p2, p3"
With CurrentDb.CreateQueryDef("", strSQL)
.Parameters(0)=Me.ProjectID
.Parameters(1)=Me.Newowner
.Parameters(2)=Me.NewComments
.Parameters(3)=Me.newdate
.Execute dbFailOnError
End With
Another way is using Eval()
Code:
Private Sub Command82_Click()
dim db as dao.databases
dim p as parameter
set db=currentdb
with db
with .querydefs("qryDeleteRecsFromTempImport")
for each p in .parameters
.value = eval(.name)
next
.execute
end with
with .querydefs("qryImportClaimsFromCYBER")
for each p in .parameters
.value = eval(.name)
next
.execute
if .RecordsAffected <> 0 Then
msgbox .RecordsAffected & " Claims successfully imported from CYBER."
else
mgbox "No Claims were imported from CYBER."
end if
end with
end with
end sub
Not my code, but arnelgp's on another forum.
HTH