Insert sequence of numbers in table

[amrut]

I am using following code to add records to temporary table.

Dim i, j As Long
Dim strSQL as String
For i = 1 To Me.RowMax
For j = 1 To Me.ColMax
strSQL = "INSERT INTO [tempCounter] ([RowCount],[ColCount]) VALUES (" & i & "," & j & ");"
CurrentDb.Execute strSQL,dbFailonerror
Next j
Next i

The upper limits for RowCount and ColumnCount will be always provided through this form only.
Can the above be achieved through an APPEND query ?

[orange]

This

Dim i, j As Long

doesn't do what you think.

It will result in j as Long, but i will be Variant.
You must explicitly DIM variables in vba.

Dim i as Long, j as Long
OR
Dim i as long
Dim j as long

[amrut]

Thanks for pointing out the error.

Dim i as Long, j As Long
 Dim strSQL as String
 For i = 1 To Me.RowMax 
For j = 1 To Me.ColMax 
strSQL = "INSERT INTO [tempCounter] ([RowCount],[ColCount]) VALUES (" & i & "," & j & ");" 
CurrentDb.Execute strSQL,dbFailonerror
 Next j 
Next i

Can above be achieved by a Query ?