Question

我在VBA中有这段代码：

Private Sub cmdAdd_Click()
    'when we click on button Add there are two options
    '1. for insert
    '2. for update
    If Me.Barcode & "" = "" Then
        'this is for insert new
        'add data to table
        CurrentDb.Execute "INSERT INTO tab_barcodeki([date], [time], category, barcode) " & _
                " VALUES(" & Me.Date & ",'" & Me.Time & "','" & _
                Me.Category & "','" & Me.Barcode & "')"
    Else
        'otherwise (Tag of barcode store the id of liquid to be modified)
        CurrentDb.Execute "UPDATE tab_barcodeki " & _
                " SET [date]=" & Me.Date & _
                ", [time]='" & Me.Time & "'" & _
                ", category='" & Me.Category & "'" & _
                ", barcode='" & Me.Barcode & "'" & _
                " WHERE barcode=" & Me.Barcode.Tag

    End If

    'clear form
    cmdClear_Click
    'refresh data in list on form
    tab_barcodekisubform.Form.Requery
End Sub

当我编译时，我找不到编译错误，方法或数据成员。我已经检查了表列和文本框的名称，文本框链接是相同的。你知道解决方案吗？

由于

Answer 1

将Me.Date等引用替换为Me!Date。

这适用于Me.Date，Me.Time，Me.Barcode，Me.Category。

将Me.Barcode.Tag替换为Me!Barcode.Tag。

您可以使用.仅引用真实属性。因此Me.Date预计表单具有Date属性 - 并且它没有，因此您会收到错误。在引用表单成员的名称时，请使用!而不是dot。

VbA Access编译：找不到方法或数据成员

1 个答案: