Loop for insert query

[printsol]

hi there
can any body help me regarding this

Dim LCounter As Integer


For LCounter = 1 To 3

DoCmd.RunSQL "INSERT INTO MarksDistribution ([class]) VALUES (1)"
MsgBox (LCounter)

Next LCounter

above query work fine for hard coded value but


i want LCounter as Value to insert in table instead of 1


Thanks

[pbaldy]

Try

DoCmd.RunSQL "INSERT INTO MarksDistribution ([class]) VALUES (" & LCounter & ")"

[printsol]

Thanks its work fine
one more thing please
how can i concatenate string along LCounter
like

DoCmd.RunSQL "INSERT INTO MarksDistribution ([class]) VALUES ("a"&" & LCounter & ")"

?

[printsol]

Thanks Dear

let me know how do i make this thread "Solved"


i did figure out
DoCmd.RunSQL "INSERT INTO MarksDistribution ([examtype]) VALUES ('a' & " & LCounter & ")"


I really Thankful to you

[pbaldy]

I'm surprised that worked but you can mark it solved in Thread Tools at the top of the thread.

[Welshgasman]

Why not just put 3 in on it's own?