如果其他字符串聲明錯誤

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

糾正我，如果我錯了。

來源

2013-03-19 Tukai Nancy

什麼是錯誤的確切文本？ – SLaks 2013-03-19 22:27:15

我的表格運行正常..但不顯示正確的結果只有我輸入金額文本框中顯示的值作爲結果，但不是multiple.there沒有文本錯誤，但如果Me.BoatDesc =「Camp」然後被選中時，我點對它，我看到那個錯誤，我說我的問題 – 2013-03-19 22:36:59

嘗試me.boatdesc.text =「營」 – Kasnady 2013-03-20 04:49:17

您正在使用VBA，而不是VB.Net。以下是一些注意事項

這是一個簡單的表單，它將在代碼運行時打開。代碼將通過單擊保存來運行。請注意，MS Access綁定表單的默認設置爲保存，因此您可能希望使用其他名稱。

a simple form

這是在設計視圖的形式，請注意，有一個名爲BoatDesc控制，另一個名爲金額，因爲只能從屬性表看出。

form design view

保存按鈕具有[事件過程]，這是代碼。

save button property

注意，代碼屬於Form2的，我一起工作的形式，而這句話顯式的選項出現在頂部。這意味着我不能擁有未命名的變量，所以名稱錯誤很難。

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

來源

2013-03-20 14:07:33 Fionnuala

感謝Remou..works fine .. :) – 2013-03-20 21:17:00

如果其他字符串聲明錯誤

回答

相關問題