| |
フォームでコンボボックス（名前：適用）を作り、値集合ソースを「T適用」というテーブルにしました。
リスト外入力時イベントで下記のような記述をしました。
Private Sub 適用_NotInList(NewData As String, Response As Integer)
Dim dbs As Database
Dim rst As Recordset
Dim strText As String
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("T適用")
rst.AddNew
rst!適用 = CStr(NewData)
rst.Update
Response = acDataErrAdded
End Sub
実際にリストにない入力をすると
「コンパイルエラー ユーザー定義型は定義されていません」というメッセージで
「Dim dbs As Database」が反転表示されます。
ヘルプを見たり、いろいろなホームページを見たりしたのですが、
どれも普通に「Dim dbs As Database」を使用していて、なぜこのようなエラーになるのかがわかりません。
教えてください。
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
