Accessで検索して、該当しなかったら+1の方法

質問

Access2002を使用しています
まだ理解が足りない点が多いため説明不足でしたらすみませんがご教授お願います

[Ｎameテーブル]に「patientNo」フィールドがあり
[Caseテーブル]に「caseNo」「patientNo」フィールドがあります
（ふたつの「patientNo」はリレーションシップしました）

[Nameテーブル]は会社本体からのリンク（？）のため変更できず、
その中のpatientNoはすでに自動に番号がふられています
[Caseテーブル]の中のcaseNoはうち独自で各patientごとに番号があります

そこで、patientNoを入力しての[検索フォーム]を作って、
その中のテキストボックスにすでにcaseNoを表示させたいのです
つまり、すでにcaseNoがあるpatientはそのcaseNoを
caseNoがまだない時には最終番号+1にさせたいのです

自分なりにDlookupとＤMaxなのかなと・・・
If Dlookup(“caseNo”,”Caseテーブル”,”patientNo=&[forms]![検索フォーム]![patientNo])
Else
Me![caseNo]=DMax(“caseNo”,”Caseテーブル”,”patientNo=&[forms]![検索フォーム]![patientNo])+1
とやってみましたがうまくいかず・・・
理解不足のため何がなんだか分からなくなってしまいました・・・

文章も分かりづらいと思いますが宜しく御願いします

回答No.1

noname#22222 · ベストアンサー

＜caseNo 更新フォーム＞

検索するNo:[非連結_____]

___patientNo:[patientNo]
_______caseNo:[caseNo____]

レコードソース=Case
更新の許可=はい
削除の許可=いいえ
追加の許可=いいえ

・このようなフォームを用意します。
・＜検索するNo＞を入力すると、該当するレコードの[patientNo][caseNo]を表示します。
・仮に、[caseNo]が初期値=0のままであれば、[caseNo]を＜最大値+1＞にするかを聞いてきます。
・＜Ｙｅｓ＞であれば、[caseNo]を更新します。

※この場合、書くべきコードはlookupNo_AfterUpdate()イベントのみです。

Option Compare Database
Option Explicit

Private Sub lookupNo_AfterUpdate()
　　Dim Answer　 As Integer
　　Dim strWhere As String
　　Dim Msg　　　As String

　　strWhere = "patientNo =" & Me.lookupNo
　　If DCount("*", "Case", strWhere) > 0 Then
　　　　Me.FilterOn = False
　　　　Me.Filter = strWhere
　　　　Me.FilterOn = True
　　　　If Me.caseNo = 0 Then
　　　　　　Msg = "[CaseNo] が初期値です。最大値+1に変更しますか？"
　　　　　　Answer = MsgBox(Msg, vbYesNo + vbQuestion, " 確認")
　　　　　　If Answer = vbYes Then
　　　　　　　　Me.caseNo = DMax("caseNo", "Case") + 1
　　　　　　End If
　　　　End If
　　Else
　　　　MsgBox "入力された[No]は[patientNo]に登録されていません。"
　　End If
End Sub

お礼

お礼がおそくなってすみません
このような方法があるのにアクセスの奥深さが・・・
昨日から実際にやってみたのでがエラーが出てしまって・・・

「レコードがロックされているためフィルタを使用できません」と
「Me.FilterOn = True」の部分がが黄色くなってしまってます
なにとぞ宜しくおねがいします

回答No.2

noname#22222

s_husky です。

再度、質問のテーブル構造で＜caseNo更新フォーム＞を作成しテスト。
エラーは確認されません。
うーん！どこで、ロックがかかっているのでしょうか？
判りません！