Option Compare Database
Option Explicit
Private Sub コマンド0_Click()
Dim Qdf As QueryDef
Dim SQL As String
SQL = "SELECT M_製品マスター_2009年度.製品ID,製品コード, 製品名, 入庫日, 入庫数 " & _
"FROM M_製品マスター_2009年度 LEFT JOIN T_入庫 ON M_製品マスター_2009年度.製品ID = T_入庫.製品ID;"
Set Qdf = CurrentDb.CreateQueryDef("Q_入庫_LEFT_JOIN", SQL)
Set Qdf = Nothing
DoCmd.OpenQuery "Q_入庫_LEFT_JOIN"
End Sub