Private Sub 患者番号_AfterUpdate()
Dim Cn As ADODB.Connection
Dim Rs As ADODB.Recordset
Set Cn = CurrentProject.Connection
Set Rs = New ADODB.Recordset
Rs.Open "[tbl個人情報]", Cn, adOpenKeyset, adLockOptimistic
Rs.Find "[患者番号] = " & Me![患者番号]
If Rs.EOF Then
MsgBox "レコードが見つかりません。ID=" & Me![患者番号]
Else
Me![性] = Rs![性]
End If
Rs.Close: Set Rs = Nothing
Cn.Close: Set Cn = Nothing
End Sub
上記の式を見よう見まねで作成したのですが、エラーが出てしまします。
Me![性] = Rs![性] が見つかりません
どのように解釈すれば良いのでしょうか?
ちなみに、サブフォームに入れているテキストボックスの「[性]を 同じサブフォーム内の[患者番号]から検索がしたいです。
初歩的なことで申し訳ございません。よろしくお願いします。
お礼
大変ありがとうございました。 単純に漢字のミスでした・・・・