ACCESSのVBAでの条件式について

ACCESS　2010を利用しています

Dim e As String
Dim f As String
e = "■エリア分類:" & Me.[エリア_分類]
f = " ■型式:" & Me.[型式]

a = "<メモ>" & vbCrLf & e & vbCrLf & f
Me!メモ = a
Me!メモ.SetFocus

メモ欄のテキストボックスに
■エリア分類:茨城
■型式:AAAA

と表示されます。

型式はコンボボックスになっており、”利用無”　も選択できるようになっています。
利用無の場合は、メモに"■型式"を表示させてくないのです。

その場合なのコードですが、

if me.[型式] <>”利用無”　then ⇒　もし、型式が利用無以外なら
*******************　　　 ⇒　メモに■型式:～～　と表示させる
end if ⇒　利用無ならなにもしない。

この********のコードが書けません。

ご教示をお願いします。

No.1 ベストアンサー 回答者： bonaron 回答日時： 2015/12/01 00:40

こんばんは。

a = "<メモ>" & vbCrLf & e

If me.[型式] <> ”利用無” Then '⇒　もし、型式が利用無以外なら
　　a = a & vbCrLf & f　　　　'⇒　メモに■型式:～～　と表示させる
End If 　　　'⇒　利用無ならなにもしない。

この回答へのお礼

ありがとうございました。
上記コードを参考にして、完成しました。

お礼日時：2015/12/02 00:04