| |
▼正伝 さん：
おはようございます。
Form2 についての説明が殆どないのですが、
「部署」というフィールドを持つ連結フォームで宜しいでしょうか？
もしそうであれば、
Private Sub コマンド1_Click()
Dim strBusyo As String
Dim strPass As String
Dim chkFLG As Boolean
strBusyo = Me.テキスト1.Value
strPass = Me.テキスト2.Value
Select Case strBusyo
Case "東"
chkFLG = (strPass = "1111")
Case "西"
chkFLG = (strPass = "2222")
Case "北"
chkFLG = (strPass = "3333")
Case "南"
chkFLG = (strPass = "4444")
End Select
If chkFLG Then
DoCmd.OpenForm "フォーム2", _
WhereCondition:="部署 = '" & strBusyo & "'"
Else
MsgBox "部署名及びパスワードをもう一度確認"
End If
End Sub
のようなコードになると思われます。
Form2 にはフィルタを掛けてあるだけですので、
ツールバーのフィルタボタンをもう一度押すと全データが見れてしまいます。
Form1 で指定したデータ以外を見せなくする為にはもう一工夫必要になりますね。
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
