Accessで、DoCmd.FindRecordがオートナンバーを間違える

質問

Access2003　XPです。
タイトルを短くと思ったら変な文章になってしまいました。
内容は、サブフォームにデータシートで表示させているデータがありまして、ダブルクリックされた行のデータを別フォームに単票フォームで表示させています。
データベースにはオートナンバーを設けてあり、ダブルクリックされた行のオートナンバーを取得して、
単票フォーム表示のフォームのオートナンバーのフィールドを指定して、
DoCmd.FindRecordで開くようにしています。

　↓ソース

'単票フォーム画面(Mainフォーム）を開く
DoCmd.SelectObject acForm, "Main"

'表示するレコードを指定
DoCmd.GoToControl "txtNo"　←オートナンバーが連結されている
DoCmd.FindRecord intNo, acAnywhere ←IntNoが取得した番号

オートナンバーの取得はうまく出来ています。
が、単票フォームを開くと違うデータが開くので
何番を開いているのか調べてみたら

3を指定　→　213を表示
7を指定　→　217を表示
81を指定 →　281を表示
100を指定→　100を表示

ちなみにデータは294件あります。３桁なら良いのですが
桁数が少ないと、1の桁、10の桁だけ変更されるようで…。
DoCmd.FindRecord intNo, acAnywhere　の前にIntNoに0を渡してから取得したオートナンバーを渡してもだめでした。

で、テーブルにてオートナンバーの列を一旦削除して再度設けてふりなおしたら1桁だけのデータも全てちゃんと表示されるようになりました。
データ更新をしていると何らかのきっかけで又だめになるようです。
きっかけは分かりません；；
この現象は何なのか、解決法が分かる方いらっしゃいましたらお願いします。

回答No.1

DexMachina · ベストアンサー

【解決法】
FindRecordメソッドの引数に指定している「acAnywhere」を、「acEntire」に
変更してください。

【説明】
テーブルなどでCtrlキー+Fキーの同時押しをすると、検索用のダイアログが
表示されますが、そこに『検索条件』という枠があると思います。
FindRecordメソッドの第2引数(Match引数)は、ここでの指定に相当します。
具体的には、
　acAnywhere = フィールドの一部分
　(=Excelの検索のオプションで「セル内容が完全に同一であるものを検索
　　する」のチェックをオフにした場合と同様)
　acEntry = フィールド全体
　(=Excelの検索のオプションで上記のチェックをオンにした場合と同様)
　acStart = フィールドの先頭
です。

ご質問のコードでは「acAnywhere」が指定されていますので、「3」を指定した
場合には、「3」も「13」も「35」も「213」も条件を満たすことになります。
従って、レコードの表示順などによって、検索結果が変わることになります。

ですので、完全一致での結果を求める場合は、「acEntire」を指定します。
(なお、この引数を省略した場合も、acEntireを指定したのと同じになります：
　つまり「DoCmd.FindRecord intNo」でもOk、と)

※フォームを開いた直後に、ご質問のコードを実行すると、先頭レコードから
　 検索されるので、『txtNo』で昇順で並べ替えられていればご希望の結果に
　 なるはずですが、逆に降順で並べ替えられていたり、他のフィールドで
　 並べ替えされている(=txtNoの並びがランダム)場合には、思っていたのと
　 違う結果が表示されることになります。

お礼

回答ありがとうございます。
なるほど！「acAnywhere」や「acEntire」にはそんな意味があったのですね。
コピーしてきて動けばそれで大丈夫と思ってしまうので、そこを注目していませんでした。
ありがとうございました。