非連結のテキストボックスを2つ作成し、そのテキストボックスに、それぞれIDとパスワードを入力することにより「TOP」という名前のフォームを開くログイン用のフォームを作成しています。
・このログイン用のフォーム名は「ログイン」。
・フォームの中にあるID入力用のテキストボックス名は“txtNamePass”
・同じくパスワード入力用のテキストボックス名は“txtCountPass”
・IDとパスワードを入力した後に開くフォームは「TOP]。
この「ログイン」という名前のフォームにある“txtCountPass”の「更新後処理」の所に以下のコードを記述したところ、IDとパスワードを入力後、「TOP」のフォームは開くのですが、「ログイン」のフォームが閉じないままになってしまいます。
どのように書き直したらいいか御存知の方がいらっしゃったら御教示下さい。
Private Sub txtCountPass_AfterUpdate()
Dim TextBoxA As TextBox
Dim TextBoxB As TextBox
Set TextBoxA = Me.txtNamePass ' --- A
Set TextBoxB = Me.txtCountPass
Const NamePass = "@@@@" ' --- B
Const CountPass = "*****"
If TextBoxA = NamePass Then ' --- C
If TextBoxB = CountPass Then ' --- D
DoCmd.OpenForm "TOP" ' --- E
DoCmd.Close , "ログイン"
Else
MsgBox "パスワードが異なります。", vbOKOnly + vbCritical
End If
Else
MsgBox "IDが異なります。", vbOKOnly + vbCritical
End If
End Sub
No.1ベストアンサー
- 回答日時:
> どのように書き直したらいいか
「E」の次の行を、以下のようにしてください:
(現在)
DoCmd.Close , "ログイン"
(修正案1)
DoCmd.Close acForm,"ログイン"
(修正案2)
DoCmd.Close acForm,Me.Name
「Close」の第1引数と第2引数は、双方を省略するか(→アクティブなオブジェクトが閉じられる)、
双方を指定する必要があります。
(今回は、双方を省略すると、アクティブになったばかりの「Top」フォームが閉じられてしまう
はずなので、双方を指定)
素早く&適切な回答と解説ありがとうございます。
ファイルは職場のパソコンですので、明日の朝一番に試してみたいと思います。
うまく作動したら回答の受付は締め切らせて頂きます。
取り急ぎお礼まで、ありがとうございました!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
YahooのIDがロックされてしまい...
-
「フォームを作成できませんで...
-
【Access】規定のシートを「デ...
-
フォームの高さを数値で指定し...
-
Access2003 フォーム入力中に...
-
ACCESS クロス集計クエリの抽...
-
デフォルトでチェックボックス...
-
ファイルへのアクセスエラーが...
-
アクセスのレコードをフォーム...
-
AccessのOLEオブジェクトのファ...
-
Accessのフォームで開く時のウ...
-
Accessのフォームを改ページしたい
-
ACCESSでオートメーションエラー
-
access vba 開いていないフォー...
-
Accessで、フォームからフォー...
-
Excelのデータフォームの設定変更
-
MSワード 年齢を計算表示でき...
-
【急いでおります!】Access200...
-
Access テキストボックスの通貨型
-
フォームなどに半角カナで入力...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
YahooのIDがロックされてしまい...
-
「フォームを作成できませんで...
-
フォームの高さを数値で指定し...
-
Accessで、フォームからフォー...
-
帳票フォームのなかにリストを...
-
MSワード 年齢を計算表示でき...
-
デフォルトでチェックボックス...
-
Accessフォームを開くときに決...
-
ACCESSでオートメーションエラー
-
アクセス フォームをリクエリ...
-
Accessのフォームで開く時のウ...
-
アクセスで複数列にまたがる同...
-
アクセスで同じフォームを違う...
-
ACCESS クロス集計クエリの抽...
-
フォームなどに半角カナで入力...
-
エクスポートされたエクセルの...
-
access vba 開いていないフォー...
-
大至急!アクセスのフォームを...
-
エクセルで各セルをダブルクリ...
-
アクセスのレコードをフォーム...
おすすめ情報