私はMicrosoft Accessのログインフォームにこのパスワードの確認に関する助けを必要としています...これは学校のプロジェクトのためであることを理解してください、私はここでいくつかの丈夫なソリューションを作成しようとはしていません。 ;)このパスワード認証コードはどのように機能していませんか?
ログインフォームには、「ユーザー」と呼ばれるユーザーのテーブルからレコードを検索するユーザー名選択用のコンボボックスがあり、ユーザーのパスワード(「Text8」と呼ばれる) )。
だからこれは私が持っているコードです:
Option Compare Database
Private Sub Command13_Click()
If IsNull(Me.Text8) Or Me.Text8 = "" Then
MsgBox "You must enter a Password.", vbExclamation
Me.Text8.SetFocus
Exit Sub
End If
End Sub
私は、フォームビューにパスワードフィールドを空白のままにして、ボタンをクリックして切り替えると、何も起こらない...
私はこれが考え出したら私はコードを展開し、入力されたユーザー名/パスワードを取得し、 "Users"テーブル内のレコードを検索して一致があるかどうかを調べるようにします。もしあれば、アクセスが許可されます。
これは[イベントプロシージャ]に設定されていて、 'Private Sub Command13_Click() 'の早い段階でブレークポイントを設定しようとしましたが、それでも実行されません。私の質問? – Dan
あなたのコードはうまく動作します。バックアップしてコンパクトにして修理できますか?それでも問題が解決しない場合は、逆コンパイルすることができます(http://www.granite.ab.ca/access/decompile.htm)。まだ動作しない場合は、ここに戻ってください。 – Fionnuala
すべてのヘルプありがとう@Remou - 私はちょうど "コンパクトで修理"を試みたが役に立たなかった。私はITのレッスンに約1時間半かかるので、学校のコンピュータで動作するかどうかを確認します。それがなければ私はここに返信します。 – Dan