前提
accessのvbaを使用して検索フォームを作成しようと思っています。
しかしSQLを実行しようと思ったらエラーが出てきて解消できません。
発生している問題・エラーメッセージ
コンパイルエラー ユーザ定義型は定義されていません
該当のソースコード
access
1Private Sub 実行_Click() 2 Dim SQL As String 3 Dim rs As Recordset 4 5 Me!テキスト0 = Null 6 7 SQL = "SELECT * FROM sample;" 8 9 Set rs = CurrentDb.OpenRecordset(SQL) 10 Do Until rs.EOF 11 Me!テキスト0 = Me!テキスト0 & rs![馬名] & vbCrLf 12 rs.MoveNext 13 Loop 14 Set rs = Nothing 15End Sub 16
試したこと
このプログラムは以下の動画のプログラムを切り取り実行しました。
https://www.youtube.com/watch?v=OhuKdvqD0Jk
ネットで調べたら参照設定がいけないと思い少しいじりましたのですが、エラーは治りませんでした。以下は参照設定のチェックが付いている部分です。
既存の設定
Visual Baasic For Applications
Microsoft Access 16.0 Object Library
OLE Automation
Microsoft Access Wizard Control Library 8.2
新しく追加した設定
Microsoft Office 16.0 Object Library
回答2件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2022/10/14 03:25