Private Sub btnLOGIN_Click()
'パスワードが合っているかチェックする
If Me![PASS] <> Me![USER_ID].Column(2) Then 'コンボボックスの３列目
MsgBox "パスワードが違います、確認して下さい"
Me![PASS] = "" '元の文字を消す
Me![PASS].SetFocus 'フォーカスを移動する
Exit Sub '途中で処理を抜ける
End If
'管理者とオペレータを判断してフォームを開く
Dim stLinkCriteria As String
If Me![USER_ID].Column(3) = True Then 'コンボボックスの４列目
DoCmd.OpenForm "F_MENU_K" '管理者用
Else
DoCmd.OpenForm "F_MENU_OP" 'オペレータ用
End If
End Sub
前半でパスワードのチェックを行ってます。
ポイントは、コンボボックスの
Me![USER_ID].Column(2)
です。
複数列から構成されているコンボボックスで、
.Column(0) (1)...と選択されている列を取出すことが出来ます。
※０から始まっているのに注意して使ってみてください。
If Me![PASS] <> Me![USER_ID].Column(2) Then
で入力されたパスワードが合っているかチェックして
<>の違う時に、
MsgBox "パスワードが違います、確認して下さい"
Me![PASS] = "" '元の文字を消す
Me![PASS].SetFocus 'フォーカスを移動する
Exit Sub '途中で処理を抜ける
とメッセージ表示、フォーカスをパスワードにあて、関数を抜けてます。
パスワードのチェックがＯＫだったら、
次は開くフォームをF_KUBUNの値で切り替えます。
ここもコンボボックスでF_KUBUNが４列目のデータとして取出せるので、
If Me![USER_ID].Column(3) = True Then
でチェックして、
DoCmd.OpenForm "F_MENU_K" '管理者用
と
DoCmd.OpenForm "F_MENU_OP" 'オペレータ用
を切り替えて表示してます。
最後は、Accessの終了処理
~~~~~~~~~~~~~~~~~~~~~~~~
Private Sub btnCLOSE_Click()
'終了の確認
If MsgBox("終了しますか?", vbYesNo) = vbYes Then
DoCmd.Quit
End If
End Sub
Private Sub コマンド9_Click()
On Error GoTo Err_コマンド9_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "F_MEMU_K"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_コマンド9_Click:
Exit Sub
Err_コマンド9_Click:
MsgBox Err.Description
Resume Exit_コマンド9_Click
End Sub
次は、ログインボタンを押された時の処理を記述します。
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
開くのコマンドはこんな感じで作ってくれます