Access データベース分割でバックエンドファイルにパスワードをかけたとき、VBAでテーブル・クエリの情報を参照するには

Access(2007~2016)で社内用データベースを作成しています。

処理の速さ・ファイルの壊れにくさ等の観点から、データベース分割を行い、ユーザー配布用のフロントエンドファイル(フォーム操作用)とバックエンドファイル(テーブル用)に分割しました。

また、ユーザーから見られたくないテーブルがいくつかあるため、以下の記事を参考にしてバックエンドファイルにパスワードを設定しました。
■参考：テーブルデータを保護する

こちらの記事では、フロントエンドファイルのフォーム・レポートを開く際にバックエンドファイルに外部接続を行っているようです。
記事に従いフォーム・レポートの表示は実装できたのですが、VBAでテーブル・クエリを参照したい場合はどうすればよいのかわからず、こちらで質問させていただくことにしました。

例えば、作成中のAccessでは、フロントエンドファイルを開くとログインフォームが表示され、以下のようなコードを書いてログイン処理を行っています。


Private Sub Btn_LogIn_Click()
Dim Res

    If IsNull(Me.Cmb_UserName) Then
        MsgBox "登録したメールアドレスを入力してください"
        Me.Cmb_UserName.SetFocus
        Exit Sub
    End If
 
    If IsNull(Me.Txt_パスワード) Then
        MsgBox "パスワードを入力してください"
        Me.Txt_パスワード.SetFocus
        Exit Sub
    End If
 
    Res = DLookup("パスワード", "Q_パスワード", "email='" & Me.Cmb_UserName & "'")
    If IsNull(Res) Then
        MsgBox "該当するIDはありません。正しいIDを入力してください。"
        Me.Cmb_UserName.SetFocus
        Exit Sub
    End If
 
 
    If Res = Me.Txt_パスワード Then   'emailとパスワードが合致したとき
      
            If DLookup("管理者", "Q_パスワード", "email='" & Me.Cmb_UserName & "'") = True Then 'ログインユーザーが管理者だった場合(クエリ「Q_パスワード」を参照)
            
                DoCmd.OpenForm "F_管理者メニュー"   '管理者用のメニューを開く
                Forms![F_管理者メニュー]![Txt_ログイン中のユーザー名] = Me.Cmb_UserName.Value  '従業員名をメニューの「ログインユーザー」欄に自動で表示
                Forms![F_管理者メニュー]![Check_管理者] = True 'フォーム「F_メニュー」の管理者判定用チェックボックスにチェックを入れる
                DoCmd.Close acForm, "F_ログイン" 'ログインフォームを閉じる
                
            Else
            
                DoCmd.OpenForm "F_一般メニュー"   '一般従業員用のメニューを開く
                Forms![F_一般メニュー]![Txt_ログイン中のユーザー名] = Me.Cmb_UserName
                Forms![F_一般メニュー]![Check_管理者] = False
                DoCmd.Close acForm, "F_ログイン" 'ログインフォームを閉じる
                
            End If
    
    Else
        MsgBox "パスワードが異なります。", vbOKOnly + vbCritical
        Me.Txt_パスワード.SetFocus
    End If


End Sub

ここで、「DLookup("パスワード", "Q_パスワード", "email='" & Me.Cmb_UserName & "'")」の部分で、「パスワードが正しくありません」とのエラーが出てしまいます。

バックエンドファイルにパスワードをかけたとき、フロントエンドファイルのVBA記述でテーブル・クエリを参照したい場合は、どういった方針で参照を行えばよいのでしょうか？

行動規範の内容に同意します

回答2件

ベストアンサー

DLookup はカレントデータベースのテーブル、リンクテーブル、クエリしか参照できません。
参考にしたリンク先の方法はリンクテーブルを使わない方法ですのでDLookupは使えません。
下記のような方法を使ってください。

案1

下記を参考にして、データベースを開いて、さらにテーブルをレコードセットで開いて検索するという方法にする。

White Tiger - DAOを使用してパスワードで保護されたデータベースを開く方法

案2

ログインフォームのレコードソースに、リンク先の方法でレコードソースにSQLを設定して接続する。
フォームの「レコードセット」プロパティは「スナップショット」に設定して更新や削除できないようにしておく。
フォームのRecordsetCloneプロティでレコードセットを取得してそのレコードセットに対して検索する。

案1でも案2でも、レコードセットの検索は、下記を参考に。

Microsoft Access VBA - DAO でレコードを検索する方法

投稿2020/10/26 07:26

編集2020/10/26 07:28