Question

我的表单包含＆＃34; DateProduced＆＃34;领域。绑定到它的表被称为＆＃34; Report＆＃34;。

我尝试将更新后事件添加到此字段，并希望此事件更新＆＃34; DateProduced＆＃34;如果ID与两者都匹配，则数量表中的字段。

我！[Text0]显示报告字段中的ID

我！[Text4]显示DateProduced from Report字段。

事件代码如下。

Private Sub Text4_AfterUpdate()
Dim strSQL As String

strSQL = "UPDATE Quantity " _
& "SET [DateProduced] = (#" & Me![Text4] & "#) " _
& "WHERE ID = (" & Me![Text0] & ")"

DoCmd.RunSQL strSQL
End Sub

但我不能成功。

Answer 1

对于有效日期可以互换dd / mm的值，该日期格式将失败。它应该是：

Private Sub Text4_Exit(Cancel As Integer)

    Dim strSQL As String

    strSQL = "UPDATE Quantity " _
    & "SET [DateProduced] = #" & Format(Me!Text4.Value, "yyyy\/mm\/dd") & "# " _
    & "WHERE [ID] = " & Me![Text0].Value & ";"

    DoCmd.RunSQL strSQL

End Sub

注意：您应该将Text0等的名称更改为有意义的名称。

Answer 2

我使用以下代码。 THX

Private Sub Text4_Exit(Cancel As Integer)
Dim strSQL As String
strSQL = "UPDATE Quantity " _
& "SET [DateProduced] = #" & Format(Me.Text4.Value, "dd-mm-yyyy") & "#" _
& "WHERE [ID] = (" & Me![Text0] & ");"

DoCmd.RunSQL strSQL

End Sub

更改字段时更新另一个表

2 个答案: