标题: 续子窗体数据源的问题？ [打印本页] 作者: yanlj518 时间: 2008-5-19 16:51 标题: 续子窗体数据源的问题？ 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 时间: 2008-5-19 21:06
等待…………作者: yanlj518 时间: 2008-5-20 12:04
等待中作者: rjacky 时间: 2008-5-20 12:57
已经成功执行了呀[:46]