'-------------------------

Private Sub Form_Load()

'メール先を抽出したものをサブフォームに表示させる。

Dim strmsg As String

Dim mySQL As String

Dim mySQL1 As String

'グループ化などしている

mySQL1 = "SELECT DISTINCT 顧客コード FROM T_端末貸出返却 WHERE isnull(返却日);"

mySQL = "SELECT * FROM T_IP顧客 WHERE 顧客コード= any (" & mySQL1 & ")"

Me.RecordSource = mySQL

End Sub