フォーム及びアクセスを誤って終了させることのないよう、フォーム内ボタンもしくは右上×をクリックした時、以下のモジュールで確認ボタンを表示させようとしています。
========================
Private Sub Form_Close()
'閉じるとき確認 2004/6/9
If MsgBox("システムを終了しますか？", vbYesNo + vbQuestion, _
"終了確認") = vbNo Then
Cancel = False
End If
End Sub
========================
システムを終了しますか?のコメントとともにYes No ボタンも出ますが、Noを押しても終了してしまいます。終了しないようにするにはどのようにすればよいのでしょうか？
いつもすみません。よろしくお願いします。
フォーム及びアクセスを誤って終了させることのないよう、フォーム内ボタンもしくは右上×をクリックした時、以下のモジュールで確認ボタンを表示させようとしています。
========================
Private Sub Form_Close()
'閉じるとき確認 2004/6/9
If MsgBox("システムを終了しますか？", vbYesNo + vbQuestion, _
"終了確認") = vbNo Then
Cancel = False
End If
End Sub
========================
システムを終了しますか?のコメントとともにYes No ボタンも出ますが、Noを押しても終了してしまいます。終了しないようにするにはどのようにすればよいのでしょうか？
いつもすみません。よろしくお願いします。
フォーム及びアクセスを誤って終了させることのないよう、フォーム内ボタンもしくは右上×をクリックした時、以下のモジュールで確認ボタンを表示させようとしています。
========================
Private Sub Form_Close()
'閉じるとき確認 2004/6/9
If MsgBox("システムを終了しますか？", vbYesNo + vbQuestion, _
"終了確認") = vbNo Then
Cancel = False
End If
End Sub
========================
システムを終了しますか?のコメントとともにYes No ボタンも出ますが、Noを押しても終了してしまいます。終了しないようにするにはどのようにすればよいのでしょうか？
いつもすみません。よろしくお願いします。
フォーム及びアクセスを誤って終了させることのないよう、フォーム内ボタンもしくは右上×をクリックした時、以下のモジュールで確認ボタンを表示させようとしています。
========================
Private Sub Form_Close()
'閉じるとき確認 2004/6/9
If MsgBox("システムを終了しますか？", vbYesNo + vbQuestion, _
"終了確認") = vbNo Then
Cancel = False
End If
End Sub
========================
システムを終了しますか?のコメントとともにYes No ボタンも出ますが、Noを押しても終了してしまいます。終了しないようにするにはどのようにすればよいのでしょうか？
いつもすみません。よろしくお願いします。
毎日の売上と仕入れの金額をそれぞれ合計して出したいのですが、
サンプル仕入れなどで0円の売上がある日の合計が正しく表示されず、
例えば0円の売上が4つと100円の売上が1つの場合、
400円と表示されます。
仕入れに関しても同様です。
どうすれば正しく表示されるようになるのか教えてください。
以下はソースです。
SELECT
T受注伝票.受注日
, Sum(T受注伝票.税込金額計) AS 合計
, T発注伝票.発注日
, Sum(T発注伝票.税込金額計) AS 合計1
FROM
T受注伝票 INNER JOIN
T発注伝票 ON
T受注伝票.受注日 = T発注伝票.発注日
GROUP BY
T受注伝票.受注日
, T発注伝票.発注日
HAVING
((T受注伝票.受注日) Between [FROM] And [TO])
AND
((T発注伝票.発注日) Between [FROM] And [TO]))
ORDER BY
T受注伝票.受注日
, T発注伝票.発注日;
毎日の売上と仕入れの金額をそれぞれ合計して出したいのですが、
サンプル仕入れなどで0円の売上がある日の合計が正しく表示されず、
例えば0円の売上が4つと100円の売上が1つの場合、
400円と表示されます。
仕入れに関しても同様です。
どうすれば正しく表示されるようになるのか教えてください。
以下はソースです。
SELECT
T受注伝票.受注日
, Sum(T受注伝票.税込金額計) AS 合計
, T発注伝票.発注日
, Sum(T発注伝票.税込金額計) AS 合計1
FROM
T受注伝票 INNER JOIN
T発注伝票 ON
T受注伝票.受注日 = T発注伝票.発注日
GROUP BY
T受注伝票.受注日
, T発注伝票.発注日
HAVING
((T受注伝票.受注日) Between [FROM] And [TO])
AND
((T発注伝票.発注日) Between [FROM] And [TO]))
ORDER BY
T受注伝票.受注日
, T発注伝票.発注日;
毎日の売上と仕入れの金額をそれぞれ合計して出したいのですが、
サンプル仕入れなどで0円の売上がある日の合計が正しく表示されず、
例えば0円の売上が4つと100円の売上が1つの場合、
400円と表示されます。
仕入れに関しても同様です。
どうすれば正しく表示されるようになるのか教えてください。
以下はソースです。
SELECT
T受注伝票.受注日
, Sum(T受注伝票.税込金額計) AS 合計
, T発注伝票.発注日
, Sum(T発注伝票.税込金額計) AS 合計1
FROM
T受注伝票 INNER JOIN
T発注伝票 ON
T受注伝票.受注日 = T発注伝票.発注日
GROUP BY
T受注伝票.受注日
, T発注伝票.発注日
HAVING
((T受注伝票.受注日) Between [FROM] And [TO])
AND
((T発注伝票.発注日) Between [FROM] And [TO]))
ORDER BY
T受注伝票.受注日
, T発注伝票.発注日;
毎日の売上と仕入れの金額をそれぞれ合計して出したいのですが、
サンプル仕入れなどで0円の売上がある日の合計が正しく表示されず、
例えば0円の売上が4つと100円の売上が1つの場合、
400円と表示されます。
仕入れに関しても同様です。
どうすれば正しく表示されるようになるのか教えてください。
以下はソースです。
SELECT
T受注伝票.受注日
, Sum(T受注伝票.税込金額計) AS 合計
, T発注伝票.発注日
, Sum(T発注伝票.税込金額計) AS 合計1
FROM
T受注伝票 INNER JOIN
T発注伝票 ON
T受注伝票.受注日 = T発注伝票.発注日
GROUP BY
T受注伝票.受注日
, T発注伝票.発注日
HAVING
((T受注伝票.受注日) Between [FROM] And [TO])
AND
((T発注伝票.発注日) Between [FROM] And [TO]))
ORDER BY
T受注伝票.受注日
, T発注伝票.発注日;
毎日の売上と仕入れの金額をそれぞれ合計して出したいのですが、
サンプル仕入れなどで0円の売上がある日の合計が正しく表示されず、
例えば0円の売上が4つと100円の売上が1つの場合、
400円と表示されます。
仕入れに関しても同様です。
どうすれば正しく表示されるようになるのか教えてください。
以下はソースです。
SELECT
T受注伝票.受注日
, Sum(T受注伝票.税込金額計) AS 合計
, T発注伝票.発注日
, Sum(T発注伝票.税込金額計) AS 合計1
FROM
T受注伝票 INNER JOIN
T発注伝票 ON
T受注伝票.受注日 = T発注伝票.発注日
GROUP BY
T受注伝票.受注日
, T発注伝票.発注日
HAVING
((T受注伝票.受注日) Between [FROM] And [TO])
AND
((T発注伝票.発注日) Between [FROM] And [TO]))
ORDER BY
T受注伝票.受注日
, T発注伝票.発注日;
