ユーザーごとにフォームを設定したい

Question

前提・実現したいこと

ここに質問の内容を詳しく書いてください。
会社ごとにID・PWを設定し、開くフォームをそれぞれ設定したいです。
現在ネットから引っ張ってきたVBAを入れておりますが、全くVBAが未知、初心者です。
ID・PWが入っているテーブル内で一致すれば◯◯が開く。というのはわかるのですが
ID・PWが入っているテーブルの◯◯会社IDでログインしたら◯◯フォーム。
✕✕会社IDでログインしたら✕✕フォーム。というように作りたいです。

現在のVBA

Private Sub コマンド10_Click()
Dim Res
If IsNull(Me.txtID) Then
MsgBox "IDを入力してください"
Me.txtID.SetFocus
Exit Sub
End If

If IsNull(Me.txtPass) Then
MsgBox "パスワードを入力してください"
Me.txtPass.SetFocus
Exit Sub
End If

Res = DLookup("Pass", "ユーザー別ID・PWテーブル", "LoginID='" & Me.txtID & "'")
If IsNull(Res) Then
MsgBox "該当するIDはありません。正しいIDを入力してください。"
Me.txtID.SetFocus
Exit Sub
End If

If Res = Me.txtPass Then
DoCmd.OpenForm "○○会社"
DoCmd.Close acForm, "ログイン画面"
Else
MsgBox "パスワードが異なります。", vbOKOnly + vbCritical
Me.txtPass.SetFocus
End If
End Sub

Answer 1

質問内容が不明瞭なので、やりたい事と一致しているか疑問ですが、ログインIDの内容で開くフォームを切り替えたいのだと解釈しました。

If Res = Me.txtPass Then
  If Me.txtID = "◯◯会社ID"
    DoCmd.OpenForm "○○会社"
  else
    DoCmd.OpenForm "✕✕会社"
  End If
  DoCmd.Close acForm, "ログイン画面"
Else
  MsgBox "パスワードが異なります。", vbOKOnly + vbCritical
  Me.txtPass.SetFocus
End If

分岐が多いなら、[Select Case ステートメント](https://docs.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/select-case-statement?f1url=https%3A%2F%2Fmsdn.microsoft.com%2Fquery%2Fdev11.query%3FappId%3DDev11IDEF1%26l%3Dja-JP%26k%3Dk(vblr6.chm1008810)%3Bk(TargetFrameworkMoniker-Office.Version%3Dv16)を使用するとすっきりします。

If Res = Me.txtPass Then
　Dim wフォーム名
  Select Case Me.txtID
  case "AAA" 
     wフォーム名 = "A社フォーム"
  case "BBB" 
     wフォーム名 = "B社フォーム"
  case "CCC" 
     wフォーム名 = "C社フォーム"
  End Select
  DoCmd.OpenForm wフォーム名
  DoCmd.Close acForm, "ログイン画面"
Else
  MsgBox "パスワードが異なります。", vbOKOnly + vbCritical
  Me.txtPass.SetFocus
End If

Comments

[abcs]

質問が雑で申し訳ございません、、
【会社別ID・PWテーブル】
[社名]　[ID]　　[PW]　 　[表示フォーム]　
A社　　AAA　　1111　　A社顧客フォーム
B社　　BBB　　2222　　B社顧客フォーム
C社　　CCC　　3333　　C社顧客フォーム

ログイン画面にID・PW入力設定をし、それぞれのID・PWを入れると
指定したフォームのみ表示させるということです。

[sazi]

追記しました

[abcs]

うわーーー！知識３％くらいなのでめちゃくちゃ興奮してます！ｗできました！有難うございます！！

Answer 2

こんにちは。よろしくおねがいいたします。
ものすご～く簡単なものを作ってみました。

今、このようなシートに、各種の定義がしてあるとします。
そして、このシートに書いてあるように、FORM_AやFORM_Bとかが作ってあるものとします。

それで、これを利用するVBAコードは、以下のようなものです。

Option Explicit

Sub IDPWMatch_And_OpenForm()

Dim MyID As String
Dim MyPW As String

Dim MyFormName As String

MyID = Application.InputBox("IDを入力してください")
MyPW = Application.InputBox("PWを入力してください")

Dim SearchRange As Range
Dim FoundIDPWSet As Range

'IDPWとその対象のフォーム名を定義した範囲です
Set SearchRange = ThisWorkbook.Worksheets("IDPWリスト").Range("D2", Range("D2").End(xlDown))

'Findを使ってサーチします
Set FoundIDPWSet = SearchRange.Find(what:=MyID & MyPW, lookat:=xlWhole)

If FoundIDPWSet Is Nothing Then
    MsgBox "IDとPWが間違っています"
Else
  '検索でヒットしたセルの右のセルにあるフォーム名を得ます
   MyFormName = FoundIDPWSet.Offset(0, 1).Value
  'そのフォーム名のフォームを開きます
   UserForms.Add(MyFormName).Show
End If

End Sub

これでたとえばA株式会社のID/PW、"AAAAA"と"11111"を、インプットボックスで入力してあげると、

このように該当のフォームが開きます。

※本当に業務に使う場合は、こんな雑なのではダメでしょうね。セキュリティ対策をちゃんと行ってくださいね。

Comments

[Y.H.]

質問はAccessですよ。

[AkiSaito]

あぁ本当だ。気が付きませんでした。失礼いたしました。