|
▼Seraph さん:
▼Jaka さん:
返信ありがとうございます!
まず、
オブジェクト名は確認したのですが間違っていませんでした・・・
以下はFormのInitializeです。
Private Sub UserForm_Initialize()
'フォーム上で日付選択
Dim j As Integer '年表示のループに使用
Dim i As Integer '月表示のループに使用
Dim k As Integer '日表示のループに使用
'本日の日付の表示
frm_suke.lbl_datehyouji_suke.Caption = Format(Date, "yyyy年mm月d日")
'コンボボックスに年を表示させる
j = 2002
For j = 2002 To 2011
frm_suke.ComboBox5.AddItem j & "年"
Next j
frm_suke.ComboBox5.Text = Format(Date, "yyyy年")
'コンボボックスに月を表示させる
i = 1
For i = 1 To 12
frm_suke.ComboBox6.AddItem i & "月"
Next i
frm_suke.ComboBox6.Text = Format(Date, "mm月")
'コンボボックスに日を表示させる
k = 1
For k = 1 To 31
frm_suke.ComboBox7.AddItem k & "日"
Next k
frm_suke.ComboBox7.Text = Format(Date, "d日")
'標準モジュールを呼び出し、日付を渡してDBへ接続
Call hyo_suke.hiduke(frm_suke.ComboBox5.Text, frm_suke.ComboBox6.Text, frm_suke.ComboBox7.Text)
End Sub
以上のようなコードなのですが、以前動いていたときから変更はしていません。
(なんか恥ずかしい・・・へたですよね・・・・・)
>・F2を押して「オブジェクトブラウザ」を表示
>・<すべてのライブラリ> -> VBAProject
>・「クラス」一覧の中に目的のオブジェクトがあるか確認
VBAProjectという項目はなかったのですが、自分のフォームのクラス一覧には
オブジェクトがありました。
>・[ツール(T)]->[その他のコントロール(A)]あるいは「ツールボックス」
> で[右クリック]->[その他のコントロール(A)]を選択
>・「利用可能なコントロール(A)」の
> □ Microsoft Forms 2.0 ComboBox
> □ Microsoft Forms 2.0 ListBox
> □ Microsoft Forms 2.0 TextBox
以上の項目もなかったのですが、Microsoft Forms 2.0 Object Library
にはチェックはついていました。
今、BIOSの設定で日付を昨年に変更してみたのですがそれでも出来ませんでした・・・・
なんだか変な質問でご迷惑かけます・・・・・(;_;)
|
|