if else中的字符串声明错误

时间:2013-03-19 22:21:00

标签: string vba ms-access-2007

我有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

如果我错了,请纠正我。

1 个答案:

答案 0 :(得分:0)

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

这是一个简单的表单,它将在代码运行时打开。单击“保存”将运行代码。请注意,MS Access绑定表单的默认值是保存,因此您可能希望使用其他名称。

a simple form

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

form design view

保存按钮有一个[事件过程],即代码。

save button property

请注意,代码属于Form2,我正在使用的表单,以及Option Explicit字样出现在顶部。这意味着我不能拥有未命名的变量,因此更难以找到错误的名称。

code picture

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

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