いつもお世話になっております。
Access2000のVBAでコードの質問があります。
連結されていないフォームでテーブルからレコードセットで呼び出して、フォームのテキストボックスに表示されるようになっているのですが、
終了時間が表示されているときは下記のコードのとおり
返却処理に進みそうでない時は保存処理にするようにしたいのですが、その終了時間（時間）がテキスとボックスに表示されているかどうかの識別方法を教えていただけませんか？要するにワイルドカードのようなもので今は＊にしているんですが、動きません。テーブルの終了時間のフィールドは日付型で半角表示です。
ぜひ教えていただけませんか？
Public Sub 識別処理()
If (Me.終了時間.Value = "*") Then
If MsgBox("返却ですよね？", vbYesNo) = vbYes Then
Call 返却処理
End If
Else
Call 保存処理
End If
End Sub
Access2000のVBAで初歩的な質問があります。
「tblShi」というテーブルがあります。
フォームにボタン「btn1」を作り、
デザインビューでボタンのプロパティを開いて
イベントのクリック時のところで、
「ビルダの選択」をコードビルダにしました。
そして「Private Sub btn1_Click()」の中に、最初に
Dim db As Database
という記述をしています。
このフォームを開いてボタンを押すと、なぜか
コンパイルエラー
ユーザ定義型は定義されていません
というエラーが表示されてしまいます。
たしかにコードを書いているときに、
Dim db As
のところまで入れると、小さいウィンドウの中に
たくさん候補が表されますが、
その中に「Database」というのがないです。
「QueryDef」とか「Workspace」とかもありませんでした。
（「Recordset」はありまして、それはコンパイルが通ります）
いろいろな解説を見ても、やはり最初はどれも
「Database」型を宣言しているようなんですが…
何がよくないのでしょうか。
もしわかる方がいらっしゃったら教えてください。
アクセス２０００のVBAの質問です。どうぞよろしく。
●「取引銀行」テーブルをつくりました。銀行名、支店名、口座番号を入力してつくりました。 フィールド名も上記の通りです。
●フォームをつくり、口座番号入力用テキストボックス（テキスト０）、銀行名を表示するテキストボックス（テキスト２）、支店名表示用テキストボックス（テキスト４）の３つを作りました。
●入力用テキストボックスに１つ口座番号を入れると、その口座番号の銀行名をテキスト２に表示し、支店名をテキスト４に表示するにはどうコーディングすればいいのでしょうか。
Option Compare Database
Public db As database
Public qd As querydef
Private Sub テキスト0_AfterUpdate()
Set db = CurrentDb
Set qd = db.querydef("SQL_Q")
Dim strText As String
strText = テキスト0.Text
qd.SQL_Q = "SELECT 銀行名 FROM 取引銀行 " _
& "WHERE 口座番号 = '" & strText & "'"
Me.RecordSource = "SQL_Q"
テキスト2.SetFocus
Me!テキスト2.ControlSource = "銀行名"
（支店名表示部分は略す）
End Sub
ある本の例を見て上記のように組んで実行しましたが、銀行名は表示されません(#NAMEのエラー)
入力した口座番号がstrTextにセットされているのは確認できました。
またRecordSourceとControlSourseの区別がよく理解できていません。値集合タイプ、値集合ソースというのはなぜテキストボックスの
プロパティにないのでしょうか。
