Im a new boy on the block and am looking for a bit of help....
Ive got this bit of code below which I have cobbled together from bits and pieces but I need to make it quicker....that table is about 700,000 rows by 14 columns and I need to reconcile the lot!!!
Private Sub Command0_Click()
Dim sql As String, fieldname As String
Dim column As Integer
column = 1
Do Until column = 15
fieldname = "Field" & column
sql = "SELECT DISTINCTROW table1.Id INTO " & fieldname & " FROM table1 LEFT JOIN table2 ON table1." & fieldname & " = table2." & fieldname & " WHERE (((table2." & fieldname & "
Is Null));"
DoCmd.RunSQL (sql)
column = column + 1
Loop
End Sub
Pls help.
Ive got this bit of code below which I have cobbled together from bits and pieces but I need to make it quicker....that table is about 700,000 rows by 14 columns and I need to reconcile the lot!!!
Private Sub Command0_Click()
Dim sql As String, fieldname As String
Dim column As Integer
column = 1
Do Until column = 15
fieldname = "Field" & column
sql = "SELECT DISTINCTROW table1.Id INTO " & fieldname & " FROM table1 LEFT JOIN table2 ON table1." & fieldname & " = table2." & fieldname & " WHERE (((table2." & fieldname & "
DoCmd.RunSQL (sql)
column = column + 1
Loop
End Sub
Pls help.