Private Sub コマンド23_Click() Dim args As String If IsNull(Me.txt_ID) = False Then args = Me.txt_ID End If DoCmd.OpenForm "f_売上_個別入力", acNormal, , "ID =" & Me.txt_ID, , acDialog, args End Sub Private Sub コマンド27_Click() DoCmd.Clo…