Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

5945 / 9994

←次へ　｜　前へ→


	【7259】Re:Passwordの仕方

小僧 - 06/2/12(日) 9:28 -


	引用なし

	パスワード

▼正伝さん：
おはようございます。

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 で指定したデータ以外を見せなくする為にはもう一工夫必要になりますね。

279 hits

▼

【7257】Passwordの仕方 正伝 06/2/10(金) 19:35