Access2003を使用しています。
単純な質問かもしれませんがよろしくお願いします。
ログイン画面を作成しておりログイン自体はできたのですが、ログインしたときに
ログイン画面を自動的に閉じたいのですが、うまくいきません。
現在の仕様では、ログイン画面(frm_ログイン)とメイン画面(frm_main)があり
ログインに成功するとメイン画面が開くようになっています。
ーー以下VBAコードーー
Private Sub rogin_Click()
Dim a
If IsNull(Me.[UserName]) Then
MsgBox "IDが未入力です"
Me.[UserName].SetFocus
ElseIf IsNull(Me.[password]) Then
MsgBox "パスワードが未入力です"
Me.[password].SetFocus
Else
a = DLookup("パスワード", "tbl_ユーザー", "ユーザー名='" & Me.[UserName] & "'")
If IsNull(a) Then
MsgBox "該当する ユーザー名 は存在しません"
Me.[UserName].SetFocus
ElseIf StrComp(a, Me.[password], vbBinaryCompare) = 0 Then
On Error GoTo Err_rogin_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frm_main"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Else
MsgBox "パスワードが違います"
Me.[password].SetFocus
End If
End If
Exit_rogin_Click:
Exit Sub
Err_rogin_Click:
MsgBox Err.Description
Resume Exit_rogin_Click
End Sub
ーー以上ーー
長くなって申し訳ないのですが、どのようにすればログイン後にログイン画面（frm_ログイン)を閉じるようにできるのでしょうか？
よろしくお願いします。
お礼
お早い回答ありがとうございます。 早速試したところできました。 こんな簡単なことがわからなかったとはお恥ずかしいです(^_^;)アセアセ... もっと勉強しなくてはいけませんね。