No.3ベストアンサー
- 回答日時:
>Dim myDB As Databaseでコンパイルエラーで『ユーザ定義型は定義されていません。
』のエラーが出るのですがどうしたら良いでしょうか…?Dim myDB As Database → Dim myDB As DAO.Database
Dim myTB As TableDef → Dim myTB As DAO.TableDef
このように DAO. を付けてみたらどうですか?
それでもエラーが出るようでしたら、Accessのバージョンと、VBAエディタ のツールにある「参照設定」で
チェックの入っている項目を教えてください。
Access2000か2002でしたら、参照設定で Microsoft DAO 3.6 Object Library にチェックが入っていないのかも。。。。
No.2
- 回答日時:
フィールド名を検索する部分ですが、以下の方法ではどうでしょうか?
レコードの表示に関しては、どのように表示させたいのか、もう少し具体的に書いていただけると
回答も出やすいのではと思います。
例えばテーブルAに日付型のフィールドが1しかない場合はそのフィールド名を見つけ、
そのフィールド名の中からフォームで指定された日付のレコードを抽出してはどうでしょうか。
Dim myDB As Database
Dim myTB As TableDef
Dim TBcnt As Integer
Dim I As Integer
Set myDB = CurrentDb
Set myTB = myDB.TableDefs!テーブルA
'テーブルのフィールド数も変動すると仮定して、フィールド数を取得
TBcnt = myTB.Fields.Count
For I = 0 To TBcnt - 1 Step 1
'フィールドの型が日付型だったらフィールド名を取得
If myTB.Fields(I).Type = dbDate Then
Debug.Print myTB.Fields(I).Name
End
End If
Next
テーブルAに日付型のフィールドが複数ある場合はフォームで指定された日付を探すしかないと思います。
Dim myDB As Database
Dim myRS As Recordset
Dim TBcnt As Integer
Dim myDATE As Date
Dim I As Integer
Set myDB = CurrentDb
Set myRS = myDB.OpenRecordset("テーブルA", dbOpenTable)
'フォームから日付を取得
myDATE = Me.Txt日付
TBcnt = myRS.Fields.Count
myRS.MoveFirst
Do Until myRS.EOF
For I = 1 To TBcnt - 1 Step 1
If myRS(I) = myDATE Then
Debug.Print myRS.Fields(I).Name
End If
Next
myRS.MoveNext
Loop
この回答へのお礼
お礼日時:2017/05/18 14:41
すみません。
Dim myDB As Databaseでコンパイルエラーで『ユーザ定義型は定義されていません。』のエラーが出るのですがどうしたら良いでしょうか…?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) Accessフォーム 一部のレコードだけを抽出する方法について 1 2022/06/28 18:45
- Access(アクセス) アクセスの更新クエリでカレントレコードのみ更新したい 1 2022/06/02 23:32
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- その他(データベース) 更新クエリをリンクデータベーステーブルに実行し実行時エラー3362固有インデックスに重複する値が含ま 1 2022/09/21 11:44
- Access(アクセス) Accessテーブルの結合で別々のテーブルのフィールドを組み合わせて値を出す方法について 2 2022/07/20 19:43
- Access(アクセス) Accessテキストボックス内に2つのフィールドの値を比較して大きい方の値を表示させる方法 1 2022/09/09 10:50
- Excel(エクセル) 【vba】日付の形式が勝手に変わってしまう。 1 2022/09/29 10:54
- Access(アクセス) Accessでセレクタをダブルクリックで別フォームで詳細表示 3 2022/12/20 10:36
- Access(アクセス) AccessVBAで降順にするテーブル作成クエリを使用して作成したテーブルを削除し同一のテーブル作成 1 2023/01/06 11:17
- Access(アクセス) Accessの参照フィールドの列がずれてしまいます 1 2023/07/19 15:00
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ExcelのデータをコピーでACCESS...
-
ACCESSで400以上のフィールドが...
-
Access 昇順・降順で並び替え...
-
SQLServer2005のSQL文での別名...
-
INSERT INTO ステートメントに...
-
accessのレポートで元になるテ...
-
accessで重複を防ぎたい
-
ACCESSでの改行コード
-
Accessでテーブルの値をテキス...
-
Accessのフィールド数が255しか...
-
ACCESSでオートナンバーを任意...
-
電話番号のデータの書式を変換...
-
Accessで、固定アルファベット+...
-
アクセスのテーブルデータをCSV...
-
Access:リンクテーブルマネー...
-
Access VBAにて Betweenの書き方
-
アクセスで複数行の一括入力す...
-
アクセス エラーを数値「0」に...
-
ODBC--リンクテーブル'XXXX'で...
-
ACCESS2000「定義されているフ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Accessでテーブルの値をテキス...
-
アクセス エラーを数値「0」に...
-
ACCESSでの改行コード
-
Accessのフィールド数が255しか...
-
accessのレポートで元になるテ...
-
Accessで、固定アルファベット+...
-
INSERT INTO ステートメントに...
-
Access 昇順・降順で並び替え...
-
ExcelのデータをコピーでACCESS...
-
SQLServer2005のSQL文での別名...
-
ACCESSで400以上のフィールドが...
-
アクセス VBAで列の入れ替...
-
IT用語について質問です。 以前...
-
【Access】フォームで自動計算...
-
accessで重複を防ぎたい
-
ACCESSでテーブルのチェックを...
-
ACCESSで和暦を西暦に・・・
-
アクセス メモ型 255文字...
-
主キーはオートナンバー型のID...
-
ACCESSでオートナンバーを任意...
おすすめ情報