初めまして。
Access初心者でとても困っています。
Access2000で他の入力者が裏をいじれないようにShiftキーの設定をしていました。
ネットで教えて頂いた構文で動いていたのですが
Public Function ShiftkeyChange(st As Boolean)
Dim DB As Database
Dim PRO As Property
Dim BLN As Boolean
Set DB = CurrentDb
BLN = False
For Each PRO In DB.Properties
If PRO.Name = "AllowBypassKey" Then
PRO = st
BLN = True
Exit For
End If
Next PRO
If BLN = False Then
Set PRO = DB.CreateProperty("AllowBypassKey", dbBoolean, st)
DB.Properties.Append PRO
End If
Set PRO = Nothing
DB.Close
Set DB = Nothing
End Function
Access2007に変更したら型が一致しませんと出て動かなくなりました。
DAOとADOの違いだということまではわかったのですが、参照設定でMicrosoft Offic 12.0 Access database engine object をチェック、Microsoft Visual Basic for Applications Extensibility5.3をチェックしています。
構文で直さないといけない箇所が分かりません。
型式が一致しないとでるのはFor Each PRO In DB.Propertiesです。
教えて頂きたいです。。。とても困っています。
No.2ベストアンサー
- 回答日時:
アクセス2016で確認したところDAOの参照がされてましたので
Dim DB As Database
Dim PRO As Property
を
Dim d As DAO.Database
Dim pro As DAO.Property
と明示的にDAOのプロパティとすればいいかもしれません
明示無しのPropertyでは他の参照をとってきてるかもしれません。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ACCESS DAO で不要なテーブルのフィールド(列)の削除 4 2022/06/23 12:13
- その他(プログラミング・Web制作) pythonでDBのカラム名で取得したオブジェクトの値を表示したい 1 2022/05/13 03:41
- PowerPoint(パワーポイント) エクセルのマクロについて教えてください。 1 2022/03/25 17:03
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/02/22 08:53
- Access(アクセス) 実行時エラー3131 FROM 句の構文エラーです について 7 2022/06/13 15:45
- Visual Basic(VBA) このVBAでExcelアプリケーションを作成は必要ですか? 3 2023/07/19 21:13
- Visual Basic(VBA) countifsについての質問 3 2023/03/08 13:45
- Visual Basic(VBA) outlook マクロが終了しません。 1 2022/09/02 11:14
- Access(アクセス) アクセス テーブルの空白を変数に置換するボタンが作りたい 4 2022/07/08 11:19
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ワードに「URL」を貼り付けると...
-
エクセルのカーソル位置表示色...
-
APIを使う時は参照設定は不要?
-
Wordで行送りがmm単位にならない
-
エクセルのページ設定を保存したい
-
Wordでこのような三角が出てく...
-
エクセルで薄く透ける文字を入...
-
XChange Viewerで文字サイズの変更
-
印刷用紙の中央に点線をいれた...
-
Word差し込み印刷で2ページ以降...
-
ワードで定型レイアウトを崩さ...
-
スケッチスタイルの有効化
-
【エクセル】コメントの初期(...
-
googleマップを半径表示させる...
-
ワードでCO2(二酸化酸素) ...
-
月60時間以上の時間を求める
-
例えはワードで「10の3乗」...
-
Excelの集計がSUM関数で、1円...
-
WORD中の赤色文字を、通常の黒...
-
差し込み印刷で反映されないフ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ワードに「URL」を貼り付けると...
-
【Wordの初期化についてお願い...
-
APIを使う時は参照設定は不要?
-
ヘッダーとフッターがクリック...
-
Windows 10の標準アプリ「アラ...
-
参照の設定について教えて下さい。
-
エクセルのカーソル位置表示色...
-
Word2000、オートコレクト、オ...
-
outlook設定方法
-
スクリーンセーバの設定・解除...
-
Access2000VBAでOLE/DDEタイム...
-
クイックアクセスツールバーの...
-
2.7 ?2.8?
-
Excelの共有ファイルについて2...
-
Wordで「バックスラッシュ」を...
-
このソフトからのおしらせを受...
-
Outlook タイムゾーン設定から...
-
エクセルの編集オプション セル...
-
Access2000でのShift有効無効を...
-
最新のJoyToKeyについて
おすすめ情報