Question

我有一个表单控件（地址），它使用Dlookup从表中调用信息＆＃34;数据库＆＃34;但表格被绑定到表格＆＃34; Tracker＆＃34;。 dlookup基于同一表单上的另一个控件 - ＆＃34; Name＆＃34;我需要表单来记录这个dlookup控件，以及绑定到＆＃34; tracker＆＃34;的其他控件。作为表＆＃34;跟踪器的新记录。＆＃34;

我失败的尝试：使用默认值属性将调用的数据从dlookup分配给另一个文本框，该文本框将绑定到＆＃34; tracker＆＃34;由于某种原因，这根本不起作用。也许我错过了一些能说明这种控制的东西＆＃34;地址＆＃34;选择正确的＆＃34;名称后更新？＆＃34;

代码：

Private Sub SubmitReferral_Click()
On Error GoTo Err_SubmitReferral_Click


    DoCmd.GoToRecord , , acNewRec

Exit_SubmitReferral_Click:
    Exit Sub

Err_SubmitReferral_Click:
    MsgBox Err.Description
    Resume Exit_SubmitReferral_Click

End Sub

我也试过这个 - 分配数据 - 但来自控制中的dlookup的数据＆＃34;地址1＆＃34;没有转移/复制到控制＆＃34;地址2＆＃34;

Private Sub Combo276_OnUpdate（） OnUpdate（[Address2] .Value = [Address1] .Value）

End Sub

帮助或建议？

PS - 我试图按要求编辑尽可能具体，并遵循适当的董事会礼仪。

Answer 1

仍然不确定您的字段名称等，但以下是您可以修改的示例。将'tblEmployee'更改为'database'。

我必须声明，如果您刚开始使用Access（或VBA）进行开发，则不应使用保留字的名称，否则可能会产生误导。如果命名为'tblDatabase'，那么名为'database'的表就可以了。

Option Compare Database
option Explicit

Private Sub cmdInsert_Click()
Dim strSQL  As String
Dim i       As Integer

    Debug.Print "cmdInsert; "
    i = MsgBox("Do you want to add 1 row for Employee ID: " & Me.EmpID & " to table 'tracker'?", vbYesNo, "Confirm Add")
    If i = vbNo Then
        Exit Sub
    End If

    DoCmd.SetWarnings True
    strSQL = "INSERT INTO tracker ( FirstName, LastName, Add1, City, St, Zip ) " & _
        "SELECT tblEmployee.FirstName, tblEmployee.LastName, tblEmployee.Add1, tblEmployee.City, tblEmployee.St, tblEmployee.Zip " & _
        "FROM tblEmployee " & _
        "WHERE (((tblEmployee.EmpID)=" & Me.EmpID & "));"

    DoCmd.RunSQL strSQL


End Sub

Answer 2

感谢您的帮助 - 我通过隐藏包含dlookup的字段解决了我的顾虑，并将代码放在一个按钮后面，该按钮将信息复制到绑定的字段，因此将记录到表中＆＃34; tracker＆＃34 ;

如何将未绑定的控件记录到数据库中

2 个答案: