access 初心者です。

質問

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![性]　　が見つかりません

どのように解釈すれば良いのでしょうか？

ちなみに、サブフォームに入れているテキストボックスの「[性]を　同じサブフォーム内の[患者番号]から検索がしたいです。

初歩的なことで申し訳ございません。よろしくお願いします。

回答No.1

bin-chan · ベストアンサー

> Me![性] = Rs![性]
「指定された患者番号でレコードを取得して、内容を表示」はわかるけど
テーブル構造もFormの項目も提示が無いので推測。
きっとどちらか、あるいは両方が定義されていない。

ホントに「性」ですか？姓名の「姓」が正解じゃないですか？
この手のものなら「性別」と定義していそうに思います。

お礼

大変ありがとうございました。

単純に漢字のミスでした・・・・