G
Guest
I wish to compare two tables and based on the existance of data I want to
insert data into table 2.. I am using the following code for this. but It
says type mismatch near set rs1 = "select ..."
Pls help
Private Sub CmdImpDB_Click()
Dim SQL As String
Dim cn As Connection
Dim rs As Recordset
Dim rs1 As Recordset
Set cn = CurrentDb.Connection
Set rs1 = "select * from tbl_wc_wcands_kpwcmatch"
Do While rs1.EOF = False
SQL = rs1!REC_ISN
Set rs = "select * from kpwcmaster,tbl_wc_wcands_kpwcmatch where
kpwcmaster.rec_isn = '" & SQL & "'"
If rs.EOF Then
DoCmd.RunSQL "insert into kpwcmaster select * from
tbl_wc_wcands_kpwcmatch where rec_isn='" & SQL & "'"
End If
rs1.MoveNext
Loop
End Sub
Madhuri
insert data into table 2.. I am using the following code for this. but It
says type mismatch near set rs1 = "select ..."
Pls help
Private Sub CmdImpDB_Click()
Dim SQL As String
Dim cn As Connection
Dim rs As Recordset
Dim rs1 As Recordset
Set cn = CurrentDb.Connection
Set rs1 = "select * from tbl_wc_wcands_kpwcmatch"
Do While rs1.EOF = False
SQL = rs1!REC_ISN
Set rs = "select * from kpwcmaster,tbl_wc_wcands_kpwcmatch where
kpwcmaster.rec_isn = '" & SQL & "'"
If rs.EOF Then
DoCmd.RunSQL "insert into kpwcmaster select * from
tbl_wc_wcands_kpwcmatch where rec_isn='" & SQL & "'"
End If
rs1.MoveNext
Loop
End Sub
Madhuri