string - if else 中的字符串声明错误

Question

我有 Camp 作为字符串。当我写这段代码时，我得到一个错误：

*Me.BoatDesc =< the expression you entered refer to an object that is close*

这是我的代码

private Sub Save_Click()

 Dim Camp As String

 If Me.BoatDesc = "Camp" Then

 Me.Amount = Me.Amount * 12

 End If

如果我错了，请纠正我。

Answer 1

您使用的是 VBA，而不是 VB.Net。这里有一些注意事项

这是一个简单的表单，它会在代码运行时打开。代码将通过单击“保存”运行。请注意，MS Access 绑定表单的默认设置是保存，因此您可能希望使用不同的名称。

这是设计视图中的表单，请注意有一个名为 BoatDesc 的控件和另一个名为 Amount 的控件，这只能从属性表中看到。

保存按钮有一个[Event Procedure]，就是代码。

请注意，代码属于我正在使用的表单 Form2，并且 Option Explicit 出现在顶部。这意味着我不能有未命名的变量，因此很难弄错名称。

这是保存按钮运行的代码。

Option Compare Database
Option Explicit

Private Sub Save_Click()
    ''Do not mix up strings, variables, controls and fields
    ''If you want to know if a control, BoatDesc, equals
    ''the string "camp", you do not need this
    ''Dim Camp As String

    If Me.BoatDesc = "Camp" Then
       Me.Amount = Me.Amount * 12
    End If
End Sub