在文本框中使用 dlookup答案

【问题标题】：using dlookup in a text box在文本框中使用 dlookup
【发布时间】：2012-03-07 05:20:53
【问题描述】：

当用户在组合框中选择一个项目时，我正在尝试使用 dlookup 更新文本框，我无法在文本框的控制源中执行 dlookup，因为我需要将其存储在表格中，所以我在默认情况下这样做价值。

这是 dlookup，但它不起作用：

=DLookUp([Ground Clearance_inches],"tbVehicles","[Vehicle]=[Forms]![Cover Data]![vehicle]")

请注意，Ground Clearance_inches 是 tbVehicles 表中的数字数据类型。

【问题讨论】：

标签： ms-access

【解决方案1】：

应该是这样的

Private Sub vehicle_AfterUpdate() 
    ''Vehicle is a number
    Me.MyTextBoxNameHere = _
       DLookUp("[Ground Clearance_inches]","tbVehicles","[Vehicle]= " _
       & [Forms]![Cover Data]![vehicle]) 

    ''Vehicle is text 
    Me.MyTextBoxNameHere = _
       DLookUp("[Ground Clearance_inches]","tbVehicles","[Vehicle]= '" _
       & Replace([Forms]![Cover Data]![vehicle], "'","''") & "'") 

    ''If the current form is [Cover Data] then 
    Me.MyTextBoxNameHere = _
       DLookUp("[Ground Clearance_inches]","tbVehicles","[Vehicle]= '" _
       & Replace(Me.[vehicle], "'","''") & "'") 
End Sub

【讨论】：

【解决方案2】：

我不确定它是否在默认值中，但在 VBA 中，where 子句将是 "[Vehicle]=" & [Forms]![Cover Data]![vehicle] 为什么不将它放在组合框的 OnUpdate 事件中？

【讨论】：

这是我需要做的，但它给出了错误：Private Sub vehicle_AfterUpdate() = DLookUp([Ground Clearance_inches],"tbVehicles","[Vehicle]= " &[Forms]![Cover数据]![车辆]) 结束子