Question

我在postgreSql中创建了数据库，并使用微软访问表单处理前端应用程序。我想按一下按钮发送查询：

Private Sub Command5_Click()
Dim strSQL As String
strSQL = "INSERT INTO public_failedestimate (est_num,issue_date) SELECT est_num,issue_date FROM public_estimate WHERE est_num=1 ;"
DoCmd.RunSQL strSQL
End Sub

它在调试时有效，但是当我点击按钮时却没有。顺便说一句，它位于按钮的点击事件上。 THX

Answer 1

你有什么应该工作。如果表单绑定记录集中的当前记录有可能是脏的，那么您需要确保在运行此代码之前将记录写入表中。

您可以在RunSQL命令之前添加这3行代码

If me.dirty = true then
   Me.dirty = false
End if

热门将SQL查询从Access表单传递到外部数据库？

1 个答案: