こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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

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

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

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

投稿日時 - 2013-01-27 22:13:01

QNo.7914487

すぐに回答ほしいです

質問者が選んだベストアンサー

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

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

投稿日時 - 2013-01-29 22:00:07

お礼

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

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

投稿日時 - 2013-01-30 15:02:02

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問