質問: date ' msgbox "open前です", vbinformation ' end if
回答: 今ちょっとaccessの検証出来る環境がないので、ソースを見せてもらっただけです。参考意見として聞いてください。 一番問題かなと思うのは、hiduke = cint(isdate(forms![f_売上伝票]![日付]))の部分で、isdate関数の結果をcint関数の引数にしているところです。 isdate関数の結果は、trueまたはfalse(数値としては-1と0)を返します。ですからcint関数は、フォームで指定した値を返しません。 フォームで入力した値が日付として有効かどうかの判断は、hidukeへの代入より前に、if文で行いましょう。 あと日付が内容の変数をintegerで確保するのも意図がよく理解できないです。日付型でいいのでは?