アクセス２０００の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の区別がよく理解できていません。値集合タイプ、値集合ソースというのはなぜテキストボックスの
プロパティにないのでしょうか。
下記のマクロをExcel95とExcel2000で動かすと結果（フォーマット）が違ってきます。
何処をどの様に修正すれば良いか教えてもらえないでしょうか。
言語の意味も出来たら教えてもらえますか。よろしくお願いします。
尚、省略している所があります。（言語は800文字以上は遅れませんので）
Sheets("印刷").Select
Dim gyo, cout, st, a, burank, st2, burank2
Dim total As Integer
Dim tt As String
cout = 1
Range("a3").Select
total = 2
Do
total = total + 1
burank = Worksheets("印刷").Cells(total, 25).Text
Loop While burank <> ""
total = total - 2
For a = 3 To total
If a = 3 Then
Range(Cells(a, 3), Cells(a, 26)).Select
With Selection.Borders(xlBottom)
.Weight = xlHairline
End With
Else
'
burank1 = Worksheets("印刷").Cells(a + 1, 2).Text
st = Worksheets("印刷").Cells(a, 1).Text
If st = "" And burank1 <> "" Then
'
Range(Cells(a, 2), Cells(a, 2)).Select
ActiveCell.Formula = "小 計"
'
With Selection
.HorizontalAlignment = xlCenter
End With
gyo = a + 1
Range(Cells(a, 1), Cells(a, 26)).Select
With Selection.Borders(xlLeft)
.Weight = xlThin
'
End With
Access97を使用しております。
現在↓のような形で禁止文字を設定しておりますが、大英字全角のＡでも
小英字半角のaでも全て禁止文字として認識されてしまいます。
＞＞たぶんUnicodeのせいだと・・・(泣)
これを例えば小半角英字の「a」のみを禁止文字として認識させるにはどの
ような方法があるのでしょうか？ご教授お願い致します。
Dim R As Integer
Dim strChk As String
Dim strMoji As String
'禁止文字チェック
strMoji = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz "
Me.txtMsg = ""
For R = 1 To Len(Me.内容)
strChk = Mid$(Me.内容, R, 1)
If InStr(strMoji, strChk) <> 0 Then
Me.txtMsg = "入力禁止文字「 " & strChk & " 」が使用されています。"
Exit Sub
Exit For
End If
Next R
