2012-03-14 3 views
0

私は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"テーブル内のレコードを検索して一致があるかどうかを調べるようにします。もしあれば、アクセスが許可されます。

答えて

2

コードが実行されていないために何も起こらないと思われます。コマンドボタンのクリックイベントが[event procedure]

に設定されていることを確認します。ブレークポイントを設定し、コードをステップ実行することにより、コードに確実に到達できます。これを行うには、適切な行、例えば最初の行にcusorを置き、F9を押します。今すぐ、コマンドボタンをクリックすると、コードがすべて機能している場合、つまり、サブに達した場合、コードウィンドウが開き、F8キーを押してコードをステップ実行できます。

あなたのコードには何も問題はありませんが、私はいつもコントロールのために分かりやすい名前を使うことをお勧めします。

+0

これは[イベントプロシージャ]に設定されていて、 'Private Sub Command13_Click() 'の早い段階でブレークポイントを設定しようとしましたが、それでも実行されません。私の質問? – Dan

+0

あなたのコードはうまく動作します。バックアップしてコンパクトにして修理できますか?それでも問題が解決しない場合は、逆コンパイルすることができます(http://www.granite.ab.ca/access/decompile.htm)。まだ動作しない場合は、ここに戻ってください。 – Fionnuala

+0

すべてのヘルプありがとう@Remou - 私はちょうど "コンパクトで修理"を試みたが役に立たなかった。私はITのレッスンに約1時間半かかるので、学校のコンピュータで動作するかどうかを確認します。それがなければ私はここに返信します。 – Dan

関連する問題