access2003 自社カレンダーを作りたい

質問

現在、access２００３で注文書を出力するプログラムを作成中です。

自社の営業日カレンダーを表示させたいのですが、
開く時のイベントプロシージャでエラーになって先に進みません。

エラーメッセージは　【イベントプロパティに指定した式　開く時でエラーが発生しました：プロシージャの宣言が、イベントまたはプロシージャの定義と一致していません。】です。

開発が初めてなので、どなたか教えていただけませんか？よろしくお願いします。

下記のイベントプロシージャの書き方に問題がありますか？
　Function Form_Open(F As Form)
Dim DB As DAO.Database
Dim rs As DAO.Recordset
Dim F As Form
Set DB = CurrentDb
Set F = Forms!カレンダA
Set rs = DB.OpenRecordset("calen", dbOpenDynaset)
End Function

回答No.1

hatena1989 · ベストアンサー

ビルドボタンで生成されるコードを勝手に変えてはいけません。

Private Sub Form_Open(Cancel As Integer)

Dim DB As DAO.Database
Dim rs As DAO.Recordset
Dim F As Form
Set DB = CurrentDb
Set F = Forms!カレンダA
Set rs = DB.OpenRecordset("calen", dbOpenDynaset)

End Function

ただ、このコードは変数に値を代入しただけで、後は何もしていないので意味のないコードですね。

非連結フォームでカレンダー表示したいということでしょうかね。
だとしたら、まだまだ乗り越えなければならないハードルは多そうです。

お礼

返信が遅くなりすみませんでした。
私にはまだまだＶＢＡの理解が必要ですね！
回答ありがとうございました。
申し少し勉強してから質問します。