プログラムが実行されません

質問

フォームは、メインフォームに業務No.（オートNo.）と日付（可視していない）と非連結で日付入力というフィールドがあり、日付でリンクしたサブフォームがありまあす。
日付入力フィールドにはDate関数でフォームを開いた時に今日の日付が表示されており、日付入力を変更すると他の日付も見られるようにしたいのですが、同じ日付を重複したくありません。
テーブルの業務No.　インデックス→いいえ
　　　　　日付　　インデックス→いいえ
に設定しておいて、
ＶＢＡで

Private Sub 日付検索()

Dim rs As Recordset

Set rs = Me.Recordset.Clone
rs.FindFirst "日付 = #" & Me.txt日付入力.Value & "#"

If rs.NoMatch Then
rs.AddNew
rs!日付 = Me.txt日付入力.Value
rs.Update
Me.Requery
rs.FindFirst "日付 = #" & Me.txt日付入力.Value & "#"
Me.Bookmark = rs.Bookmark
Else
Me.Bookmark = rs.Bookmark
End If

rs.Close: Set rs = Nothing

End Sub

Private Sub txt日付入力_AfterUpdate()

日付検索

という風に書きました。
Windows98 Access2000で作成したものなのですが、作成をしたパソコンではうまく出来ます。WindowsMeでもうまく出来ます。でも違うパソコンでWindows98なのに、このプログラムは無視されて日付入力の値を変更すると値が重複されてしまいます。
なぜなのでしょうか？
よろしくお願いします。

回答No.1

taka_tetsu · ベストアンサー

考えられるのはMDACのバージョンの違いでしょうかね？
はっきりとしたことは言えませんが。