0

私はストリングとしてキャンプを持っています。このコードを書くと、エラーが発生します。

*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

私が間違っている場合は私を訂正してください。

4

1 に答える 1

0

VB.Net ではなく、VBA を使用しています。ここにいくつかのメモがあります

これは単純なフォームで、コードが実行されると開きます。[保存] をクリックすると、コードが実行されます。MS Access のバインドされたフォームのデフォルトは保存であるため、別の名前を使用したい場合があることに注意してください。

シンプルな形

これはデザイン ビューのフォームです。プロパティ シートからのみ確認できるように、BoatDesc という名前のコントロールと Amount という名前の別のコントロールがあることに注意してください。

フォーム デザイン ビュー

保存ボタンには、コードである [イベント プロシージャ] があります。

ボタンのプロパティを保存

このコードは、私が使用しているフォームである 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
于 2013-03-20T14:07:33.597 に答える