| |
はじめまして、オフィス全般のインストラクターをしおりますあきらと申します。
教室ではVBAなどはもちろんやってないのですが、少し興味があり最近趣味で始めました。
と言っても英語なのでまったく意味がわかりませんが＾＾；
実はアクセスのVBAで、テーブルに入っているデータをエクスポートする際に
1.はい、いいえ、の選択ダイアログボックス画面を出す
2.いいえを押したら終了（アクセスではなく、確認ダイアログボックスを）
3.はいを押した場合に「パスワード入力してください」と表示する
この3.番のところでパスワードを入力しても「****」な感じで表示したいのですが
可能でしょうか？
とりあえず今作ったやつを記載しています。
素人なので、的外れなことを聞いているかもしれないし、質問がアバウトすぎてわかりにくいかもしれませんが、よろしくおねがいします（＿ｍ＿）
Sub エクスポート処理()
If MsgBox("エクスポートする？？", vbQuestion + vbYesNo, ) = vbNo Then Exit Sub
DoCmd.TransferSpreadsheet acExport, 8, "住所データベース", "C:\住所.xls", True, ""
Const mypwd = "1129"
Dim pwd As String
pwd = InputBox("パスワードを確認")
If pwd = mypwd Then
MsgBox "エクスポート完了", vbOKOnly,
Else
MsgBox "パスワードが違います。", vbCritical
Exit Sub
End If
End Sub
一応これでできたのですが、パスワード打てばそのまま表示されてしまうので・・・・
|
|
あきら
- 06/2/17(金) 2:30 -
