分割フォームの列を非表示にする

Question

メインフォームには2つのボタンがあります。そのうちの1つは、ユーザーがフィードバックを記録するためのもので、もう1つは私が入り、そのフィードバックのメモ/ステータス更新を追加することです。両方のボタンは、分割フォームビューで同じフォームを開きます。ユーザーがボタンをクリックしたときに特定の列を非表示にしたい場合は、管理ボタンをクリックしてください。私が試したこと：どちらのボタンも同じフォームを開きますが、フォームが開かれる前に、真の（ユーザボタンの場合）かブール変数の場合（私のボタンのための）いずれかにpublic subが呼び出されます。次に、ロード時のプロシージャが起動すると、変数の値がチェックされ、列を非表示にするかどうかが判断されます。ここではそのコードは次のとおりです。

Option Compare Database 

Public booFeedback    As Boolean 

Public Sub FeedBackBoolean1() 
booFeedback = False 
End Sub 


Public Sub FeedBackBoolean2() 
booFeedback = True 
End Sub 

次にフォーム自体は、それがこのコードを実行するロードするとき：

Private Sub Form_Load() 

Call cmdRemoveFilter_Click 
If booFeedback = False Then 
    Me.colPriority.ColumnHidden = True 
    Me.colWorkEffort.ColumnHidden = True 
    Me.colStatus.ColumnHidden = True 
    Me.colDeliveryDate.ColumnHidden = True 
    Me.colStatusComments.ColumnHidden = True 
Else 
    Me.colPriority.ColumnHidden = False 
    Me.colWorkEffort.ColumnHidden = False 
    Me.colStatus.ColumnHidden = False 
    Me.colDeliveryDate.ColumnHidden = False 
    Me.colStatusComments.ColumnHidden = False 

End If 
End Sub 

結果は（私は非表示にするには探していた列がある表示されませんが、コードが正しく実行されます正しく隠されていない）。デザインモードにして閉じて保存すると、次回実行時にコードが正常に動作することがわかりました。しかし、他のボタンをクリックすると、前回の実行時と同じ結果になります。また、私は誰もそれをクリックすることができないように管理ボタンに疑似パスワードを入れました。今のところセキュリティについてはあまり心配していません。実行中booFeedbackの値が何であるか、

今

Me.colPriority.ColumnHidden = Not booFeedback 
Me.colWorkEffort.ColumnHidden = Not booFeedback 
Me.colStatus.ColumnHidden = Not booFeedback 
Me.colDeliveryDate.ColumnHidden = Not booFeedback 
Me.colStatusComments.ColumnHidden = Not booFeedback 

デバッグ、設定されたブレークポイント：スタータ用

Answer 1

は、コードを簡略化することができ、そして、そうでない場合には必要ありませんか？期待通りでない場合は、コードロジックを確認してください。まあ、booFeedbackとその2つのサブシステムが一般的なモジュールにある場合、私は失敗の理由は見ません。

ユーザーが管理者権限を持っているかどうかを判断し、適切なフィールドを表示/非表示にするかどうかを判断する、フォームとフォームの背後にあるコードを単純に開くボタンがあります。 WindowsユーザIDと権限レベルを格納するusersテーブルを持つことができます。その後、コードはシステムからユーザーのWindows IDを取得し、テーブルに記録することができます。管理者ユーザーIDをハードコードすることもできます。 WindowsユーザーIDをEnviron（ "USERNAME"）で取得します - それに正確に入力してください。

booFeedback = ENVIRON（ "USERNAME"）= "adminWindowsUsername"

これは、分割されたデータベース設計ですか？ナビゲーションペインは隠されていますか？ファンクションキーが無効になっているため、ユーザーはペインを展開できませんか？右クリックのショートカットメニューが無効になっていますか？ dbを開いたときにこれらのプロジェクト設定を無効にするシフトキーバイパスについて、あなた（そして多分ユーザー）は気付いていますか？