续子窗体数据源的问题？

yanlj518

Private Sub Command0_Click()
Dim SQL, SQL2, qr
On Error GoTo 1
qr = MsgBox("确定要追加记录吗？", vbOKCancel + vbAbortRetryIgnore + vbDefaultButton1, "追加记录")
SQL = "INSERT INTO b1( 学号, 姓名 )  SELECT 学号, 姓名  FROM b2 WHERE b2.学号 not in(select 学号 from b1);"
SQL2 = "SELECT  b2.学号, b2.姓名 FROM b1 INNER JOIN b2 ON b1.学号 = b2.学号;"
If qr = 6 Then
   DoCmd.RunSQL (SQL)
  Forms![导入窗体]![zct].Form.RecordSource = SQL2
   Me.zct.Requery
  
   MsgBox "记录已经成功追加，重复记录不会导入。"
End If
1 If Err.Number = 2501 Then Cancel = True
End Sub
单击后让子窗体得到黑体的记录源，不知为什么不执行？

yanlj518

等待…………

yanlj518

等待中

rjacky

已经成功执行了呀[:46]

点击子窗体后数据源就已改变为黑体部分，只不过显示的结果和原先的一样而已

你自己可以在   Me.zct.Requery  这句下面，加个 MsgBox Forms![导入窗体]![zct].Form.RecordSource 看看

yanlj518

谢谢！我的思路错了。