Ошибка объявления строки, если есть еще

Question

У меня есть Camp as string. Когда я пишу этот код, я получаю сообщение об ошибке:

*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 и другой названный Сумма, как можно видеть только из свойств.

Кнопка сохранения есть [Процедура обработки событий], который является кодом.

Обратите внимание, что код принадлежит 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