querydef........

[tom taol]

table1 has 2 fields.

Query1 is following.
=============== ==========
INSERT INTO Table1 ( fld1, fld2 )
SELECT [parFld1] AS Expr1, [parFld2] AS Expr2
FROM Table1;


Private Sub Command0_Click( )
Dim qd As QueryDef
Set qd = CurrentDb.Query Defs("Query1")
qd.Parameters(" parFld1") = "aa"
qd.Parameters(" parFld2") = 7
qd.Execute
End Sub

but, that does not working.
how?..




*** Sent via Developersdex http://www.developersdex.com ***

[RoyVidar]

Re: querydef....... .

"tom taol" <tom@yahoo.comw rote in message
<44e2e433$0$340 69$815e3792@new s.qwest.net>:

table1 has 2 fields.
>
Query1 is following.
=============== ==========
INSERT INTO Table1 ( fld1, fld2 )
SELECT [parFld1] AS Expr1, [parFld2] AS Expr2
FROM Table1;
>
>
Private Sub Command0_Click( )
Dim qd As QueryDef
Set qd = CurrentDb.Query Defs("Query1")
qd.Parameters(" parFld1") = "aa"
qd.Parameters(" parFld2") = 7
qd.Execute
End Sub
>
but, that does not working.
how?..

See if the following query works better

INSERT INTO table1 ( test, n2 )
VALUES (parFld1, parFld2);

--
Roy-Vidar