ACCESS VBA INPUTBOXの質問です。

Private Sub コマンド6_Click()

Dim pw As Variant


pw = Application.InputBox(Prompt:="開発者用設定のためパスワードを記入してください",Type:=2)

If pw <> "abcdefg" Then
MsgBox "PWが違います"
Exit Sub

Else
DoCmd.OpenForm "F_入力"

End If

End Sub

メゾット、またはデータメンバーが見つかりませんとなります。



Excelなら、 Dim pw As Variant⇒ Dim pw As Rangeでできるとおもうのですが、
ACCESSは、Typeの設定ができるのでしょうか？

お手数ですが、ご教示をおねがいします。

No.1 ベストアンサー 回答者： GooUserラック 回答日時： 2019/12/25 15:54

以下を見る限り無さそうですね

https://support.office.com/ja-jp/article/InputBox-関数-17821927-28b7-4350-b7f1-4786575314d9

この回答へのお礼

ありがとうございました。

お礼日時：2019/12/25 16:09

No.3 回答者： GOMΛFU 回答日時： 2019/12/25 17:27

https://hamachan.info/win10/access/password.html

この回答へのお礼

ありがとうございました

お礼日時：2019/12/25 17:34

No.2 回答者： よろずやkinchan 回答日時： 2019/12/25 17:19

http://cswmoon.blog12.fc2.com/blog-entry-490.html

この回答へのお礼

ありがとうございました

お礼日時：2019/12/25 17:34