Microsoft Access 掲示板

mayu様、りんご様
コメントありがとうございます。

mayu様
結果から申しますと、すべて変わらずで#Name?のままでした。
【 4 】のご提案は、Accessファイルのゴミが原因ならこれで解決！と思いまっさらな状態から簡単なものを作成しましたがダメでした…。

りんご様
方法はその通りです。rsをこの中でCloseしてしまうと、リンクデータが無くなってしまうのでCloseはしていません。
こちらの環境では、データはSQLServer上にあり、リンクテーブルからADOdbで読んでいます。

そこで、mayu様のご提案で作成した新しいaccdbがありましたので、これにローカルテーブルを作成して試したところ…
そちらは正しく表示されます！
ですので、ADO接続の際のリンクに何かあるのかもしれません。

新しく作成したaccdbのコードは以下で、このaccdbを32bitAccessで動作させると問題なく、64bitAccessではダメなのが再現できました。なんでか全くわからずです。
何かしょうもない見落としな気もするのですが…

Private Sub cmdADODB_Click()
    Dim rs As New ADODB.Recordset
    Dim strSQL As String

    strSQL = "SELECT * FROM リンクテーブル WHERE DATA1 LIKE '%みかん%'"
    rs.Open strSQL, cn, adOpenStatic, adLockOptimistic
' cn はADOBE.Connection としてSQLServerに接続しています。

    Set Me.Recordset = rs

    If rs.EOF = False And rs.BOF = False Then
        Me.txtData1.ControlSource = rs![DATA1].Name
        Me.txtData2.ControlSource = rs![DATA2].Name
    End If

    Set rs = Nothing

End Sub

Private Sub cmdlocal_Table_Click()
    Dim rs As DAO.Recordset
    Dim strSQL As String

    strSQL = "SELECT * FROM test_table WHERE DATA1 LIKE '%みかん%'"
    Set rs = CurrentDb.OpenRecordset(strSQL)

    Set Me.Recordset = rs

    Me.txtData1.ControlSource = rs![Data1].Name
    Me.txtData2.ControlSource = rs![Data2].Name

    Set rs = Nothing

End Sub

Private Sub cmdClear_Click()
Me.txtData1.ControlSource = ""
Me.TxtData2.ControlSource = ""
Set Me.Recordset = Nothing
End Sub