スキルアップ・問題解決なら、モーグにおまかせ！

お世話になります。
 
検索や更新等の処理後の表示についてですが、同じボタンを押しても、処理結果が変わります。
 
フォームの全テキストボックスに#Name?と表示されたり、「ブックマークが正しくありません」や「指定した式に、CurrentRecordプロパティに対する正しくない参照が含まれます」のメッセージが出ます。
 
ブレークポイントをつくり、ステップインで1行ずつ実行していくと問題なく実行できることが多いです。
 
なぜ、このようになるかがわからないので、教えていただきたいです。
 
あいまいな質問で申し訳ありませんが、よろしくお願いします。

推測 になりますが
 ・Docmd.〜 の命令による レコード処理
 ・DAO/ADO の命令による レコード処理
を混在させているのではありませんか？
 
アクセスするデータは同じですが、アクセスする経路が変わります。
 
データ本体に対する処理を片側の経路（経路：A）で行い
別の経路（経路：B）からその処理を行ったデータを参照しに行った際、
先経路（経路：A）の処理が反映されていない状態が発生し、正確なデータが参照できない状態が発生します。
 
再現できる情報も何もないので、推測でしかありません。

Suzu さんの引用:
推測 になりますが
 ・Docmd.〜 の命令による レコード処理
 ・DAO/ADO の命令による レコード処理
を混在させているのではありませんか？
 
アクセスするデータは同じですが、アクセスする経路が変わります。
 
データ本体に対する処理を片側の経路（経路：A）で行い
別の経路（経路：B）からその処理を行ったデータを参照しに行った際、
先経路（経路：A）の処理が反映されていない状態が発生し、正確なデータが参照できない状態が発生します。
 
再現できる情報も何もないので、推測でしかありません。

おーさん0729 さんの引用:
フォームの全テキストボックスに#Name?と表示されたり、「ブックマークが正しくありません」や「指定した式に、CurrentRecordプロパティに対する正しくない参照が含まれます」のメッセージが出ます。

おーさん0729 さんの引用:
間にRequeryやRefreshやDo eventsを入れて、更新しているようにしてるのですが、それでもダメなのでしょうか？

�@Private Sub Form_Load()
    Set Pcurrentform = Forms!フォーム名
    Set PRecordform = Forms!フォーム名
    Pfname = Me.Name
    Ptname = "テーブル名"
    Printer = Printers("プリンター名")
    Call フォーム開始
End Sub
 
�APrivate Sub 全レコード表示_Click()
On Error GoTo err_cmd
    '「表示」にチェックが入ってない方が表示される
    Set Pcurrentform = Screen.ActiveForm
    Ptname = "テーブル名"
    Call 全表示
    DoEvents
    Me.Refresh
    DoEvents
    Exit Sub
err_cmd: MsgBox Error()
End Sub
 
�BPublic Sub 全表示()
On Error GoTo err_cmd
    Dim db As Database
    Dim rsa As Recordset
    DoEvents
        Set db = CurrentDb
        Set rsa = Pcurrentform.Recordset
        PCuReF = False
        Pcurrentform.Refresh
        Pstrfilter = ""
        Pcurrentform.OrderBy = ""
        Psort = Pcurrentform.OrderBy
        Pcurrentform.OrderByOn = False
        Pcurrentform.FilterOn = False
        Pcurrentform.反転用.Value = False
    DoEvents
        '対象：テーブル全体のレコードセットをもつ
        PmySQL(1) = "SELECT * FROM " & Ptname & "; "
        Pcurrentform.RecordSource = PmySQL(1)
    DoEvents
        '全レコードの[表示]をfalseにする
        PmySQL(1) = "UPDATE " & Ptname & " SET " & Ptname & ".表示 = false "
        PmySQL(1) = PmySQL(1) & "WHERE (((" & Ptname & ".表示)=True)); "
        db.Execute PmySQL(1)
    DoEvents
        Pcurrentform.OrderBy = "[ならび]"
        Pcurrentform.OrderByOn = True
        Pcurrentform.ソート状況 = "未ソート"
        Pfil = ""
        Psort = ""
    DoEvents
        Pbkstr = "ならび= " & Pbk
        Pcurrentform.Recordset.FindFirst Pbkstr
        PCuReF = True
    DoEvents
    Exit Sub
err_cmd:
End Sub
 
�CPrivate Sub Form_Current()
On Error GoTo err_cmd
    Dim db As Database
        Set db = CurrentDb
        Set PRecordform = Forms!フォーム名
    '対象：画面表示されているレコードセットをもつ
    Set Prsf = PRecordform.Recordset
        PRecordform.カレント = PRecordform.CurrentRecord
        DoEvents
        Call フォームカレント
    '変数の解放
    Set db = Nothing
    Set Prsf = Nothing
    Exit Sub
err_cmd: MsgBox Error()
End Sub
 
�DPublic Sub フォームカレント()
On Error Resume Next
        'カレントレコードが1の時は前へいけない
        If PRecordform.カレント = 1 Then
            PRecordform.レコード前.Enabled = False
        Else
            PRecordform.レコード前.Enabled = True
        End If
            DoEvents
        'カレントレコードが最大の時は次へいけない
        If PRecordform.カレント = Prsf.RecordCount Then
            PRecordform.レコード次.Enabled = False
        ElseIf Prsf.RecordCount = 0 Then
            PRecordform.レコード次.Enabled = False
        ElseIf Prsf.RecordCount = 1 Then
            PRecordform.レコード次.Enabled = False
        Else
            PRecordform.レコード次.Enabled = True
        End If
            DoEvents
        If PCuReF = True Then
            Pbk = PRecordform.[ならび].Value
        End If
    Exit Sub
err_cmd:
End Sub
 
Public Sub フォーム開始()
On Error Resume Next
            PmySQL(1) = "SELECT * FROM " & Ptname & "; "
            Pcurrentform.RecordSource = PmySQL(1)
        If Pfil = "on" And Not Psort = "" Then 'フィルターとソート
                '"[表示]=true"を表示
                Pcurrentform.Filter = "[表示]=true"
                Pcurrentform.FilterOn = True
                Pcurrentform.反転用.Value = True
             
                Pcurrentform.OrderByOn = False
                Pcurrentform.OrderBy = Psort
                Pcurrentform.OrderByOn = True
            Psort = Pcurrentform.OrderBy
        ElseIf Pfil = "on" And Psort = "" Then 'フィルター
                '"[表示]=true"を表示
                Pcurrentform.Filter = "[表示]=true"
                Pcurrentform.FilterOn = True
                Pcurrentform.反転用.Value = True
            If Pchk = "A表" Then
                Pcurrentform.反転用.Value = False
                Pchk = ""
            Else
            End If
        ElseIf Pfil = "" And Not Psort = "" Then 'ソート
                Pcurrentform.OrderByOn = False
                Pcurrentform.OrderBy = Psort
                Pcurrentform.OrderByOn = True
            Psort = Pcurrentform.OrderBy
        Else
                Call 全表示
        End If
            DoEvents
        If Pcurrentform.OrderByOn = True And Not Pcurrentform.OrderBy = "[ならび]" Then
            Pcurrentform.ソート状況 = "ソート済み"
        Else
            Pcurrentform.ソート状況 = "未ソート"
        End If
        'カレントレコードの持越し
        PCuReF = True
        If PCuReF = True Then
                Pbkstr = "ならび=" & Pbk
                Pcurrentform.Recordset.FindFirst Pbkstr
        End If
        'カレントレコードが1の時は前へいけない
        PRecordform.レコード前.Enabled = False
    Exit Sub
err_cmd:
End Sub
 
該当しているであろう辺りのコードの一例です。ほかのコード箇所でも同じような質問内容のようなことが起こります。
イメージとしては、フォームを開いて�@、フォーム上のボタン�Aを押す（�Aの処理が終わるまでに�B�Cを何度か）という流れです。
ここでのしたいことは、レコードの全件表示（フィルター、ソートがかかっていない）です。
「ならび」というフィールドは、フィルター、ソートがかかっていない状態でも、順番が変わらないようにするためです。オートナンバーです。

大きな問題としては
 

引用:
'対象：テーブル全体のレコードセットをもつ
  PmySQL(1) = "SELECT * FROM " & Ptname & "; "
  PCurrentform.RecordSource = PmySQL(1)
 
  '全レコードの[表示]をfalseにする
  PmySQL(1) = "UPDATE " & Ptname & " SET " & Ptname & ".表示 = false "
  PmySQL(1) = PmySQL(1) & "WHERE (((" & Ptname & ".表示)=True)); "
 
  db.Execute PmySQL(1)

OnError ResumeNext

'レコードソースを空にする
recSource = PCurrentform.RecordSource
PCurrentform.RecordSource = ""

'レコード更新
db.Execute "UPDATE " & Ptname & " SET 表示 = false "", dbFailOnerror

If Error.Number = 0 Then
  'レコード更新成功
  PCurrentform.RecordSource = Ptname
Else
  'レコード更新失敗
  PCurrentform.RecordSource = recSource
End If

Suzu さんの引用:
大きな問題としては
 

引用:
'対象：テーブル全体のレコードセットをもつ
  PmySQL(1) = "SELECT * FROM " & Ptname & "; "
  PCurrentform.RecordSource = PmySQL(1)
 
  '全レコードの[表示]をfalseにする
  PmySQL(1) = "UPDATE " & Ptname & " SET " & Ptname & ".表示 = false "
  PmySQL(1) = PmySQL(1) & "WHERE (((" & Ptname & ".表示)=True)); "
 
  db.Execute PmySQL(1)

 
ここ。
 
前半で、フォームのレコードソースを テーブル「Ptname」の全レコードをSELECTする様に変更。
後半で、その テーブル「Ptname」 の データを
　　 フォーム上にレコードを表示しながら ← レコードを使用している状態
　　その表示しているかも知れないレコードに対し、レコード編集
を行っています。
 
好ましい順番としては
 

OnError ResumeNext

'レコードソースを空にする
recSource = PCurrentform.RecordSource
PCurrentform.RecordSource = ""

'レコード更新
db.Execute "UPDATE " & Ptname & " SET 表示 = false "", dbFailOnerror

If Error.Number = 0 Then
  'レコード更新成功
  PCurrentform.RecordSource = Ptname
Else
  'レコード更新失敗
  PCurrentform.RecordSource = recSource
End If

 
の様になるかと。
 
 
直接関係ないですが RecordSouce ではなく Filter で 制御しても良いと思いますよ。

引用:
記述していただいたところをそっくりそのまま変更してみました。

引用:
フロント（プログラム）とバック（データベース）に分けて、フロントを使用者パソコンへ、バックを社内NAS（サーバー？）へ入れて、リンクテーブルで使用
を想定しています。
使用人数は最大１０人、同時使用は２〜３人を想定しています。

[quote="Suzu"]

引用:

 
同時使用者が同じ Ptname を 開いている場合、フィールド「表示」の True/False だけで
レコードの表示/非表示を行っては ダメですよね？
・開いているユーザー名等も、そのレコードに保存する
・別に表示用のテーブルを用意（ユーザー名、レコードID、表示/非表示の状態）
　：
などの方策が必要でしょう。
クライアント/サーバー タイプでは、
誰かが レコードを操作している可能性を考慮した仕組みを構築する必要があります。
そういう意味では、全レコードに対し処理 を行う場合は特に注意が必要です。

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