質問編集履歴

1

・VBAコードの追加 ・やりたいこと、実現したいことの追記

2021/04/12 02:19

投稿

kuppakarubi
kuppakarubi

スコア0

test CHANGED
File without changes
test CHANGED
@@ -16,7 +16,9 @@
16
16
 
17
17
  そのフォームの担当者名のテキストボックスに
18
18
 
19
+ ログインした氏名をフォームのレコードソースの
20
+
19
- ログインした氏名を転記したいと考えています。
21
+ フィールドに入力したいと考えています。
20
22
 
21
23
 
22
24
 
@@ -28,7 +30,7 @@
28
30
 
29
31
  ・No(主キー)→ 条件にてMinを使用しています。
30
32
 
31
- ・担当者名(Null)
33
+ ・担当者名(Null) →非連結のテキストボックスです。
32
34
 
33
35
 
34
36
 
@@ -50,11 +52,87 @@
50
52
 
51
53
 
52
54
 
55
+ 担当者割り振り用のフォームは以下の内容です。
56
+
53
57
  ```ここに言語名を入力
54
58
 
59
+ Private Sub
60
+
55
- Forms![Form名]![テキスト名]
61
+ 担当者_Click() Forms![Form名]![テキスト名]
62
+
63
+ End Sub
64
+
65
+ ```
56
66
 
57
67
 
68
+
69
+ なお、ログインフォームのVBAコードは以下の通りとなります。
70
+
71
+ ログインフォームはログイン後、 Me.Visible = Falseにて隠した状態となるようにしています。
72
+
73
+ ```
74
+
75
+ Private Sub cmdRogIn_Click()
76
+
77
+ Dim Res
78
+
79
+ If IsNull(Me.txtID) Then
80
+
81
+ MsgBox "氏名を入力してください"
82
+
83
+ Me.txtID.SetFocus
84
+
85
+ Exit Sub
86
+
87
+ End If
88
+
89
+
90
+
91
+ If IsNull(Me.txtPass) Then
92
+
93
+ MsgBox "パスワードを入力してください"
94
+
95
+ Me.txtPass.SetFocus
96
+
97
+ Exit Sub
98
+
99
+ End If
100
+
101
+
102
+
103
+ Res = DLookup("Pass", "T_ID_pass", _
104
+
105
+ "氏名='" & Replace(Me.txtID, "'", "''") & "'")
106
+
107
+ If IsNull(Res) Then
108
+
109
+ MsgBox "該当する氏名はありません。正しい氏名を入力してください。"
110
+
111
+ Me.txtID.SetFocus
112
+
113
+ Exit Sub
114
+
115
+ End If
116
+
117
+
118
+
119
+ If Res = Me.txtPass Then
120
+
121
+ DoCmd.OpenForm "F_メニュー" '----ID,pass合致でフォームを開く。
122
+
123
+ Me.Visible = False 'Visible = False
124
+
125
+
126
+
127
+ Else
128
+
129
+ MsgBox "パスワードが異なります。", vbOKOnly + vbCritical
130
+
131
+ Me.txtPass.SetFocus
132
+
133
+ End If
134
+
135
+ End Sub
58
136
 
59
137
  ```
60
138