Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


70879 / 76733 ←次へ | 前へ→

【10356】Re:実行時エラー'380':について
質問  momo  - 04/1/21(水) 10:25 -

引用なし
パスワード
   ▼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の設定で日付を昨年に変更してみたのですがそれでも出来ませんでした・・・・
なんだか変な質問でご迷惑かけます・・・・・(;_;)

0 hits

【10347】実行時エラー'380':について momo 04/1/20(火) 12:14 質問
【10348】Re:実行時エラー'380':について Jaka 04/1/20(火) 12:47 発言
【10350】Re:実行時エラー'380':について Seraph 04/1/20(火) 14:09 発言
【10356】Re:実行時エラー'380':について momo 04/1/21(水) 10:25 質問
【10362】Re:実行時エラー'380':について Asaki 04/1/21(水) 11:27 回答
【10364】Re:実行時エラー'380':について momo 04/1/21(水) 11:53 お礼

70879 / 76733 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free