りんご
2021/08/30 (月) 22:10:18
c564b@0e907
>> 3
もしかして、こんなコード?
Private Sub ほにゃらら()
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset(“SQL文“)
Set Me.Recordset = rs
Me.Data1.ControlSource = rs![data1].Name
Me.Data2.ControlSource = rs![data2].Name
rs.Close
Set rs = Nothing
End Sub
通報 ...