Access VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

2875 / 9994

←次へ　｜　前へ→


	【10384】Re:他のボックス結果をコマンドボタンに。

heavenlycastle2003

- 08/5/13(火) 22:57 -


	引用なし

	パスワード

▼hatena さん：
>>> ・予め年を手入力したテキストを用意。
>>> ・コンボボックスにて1月を選択した時に1月のカレンダーをコマンドボタンに。
>>
>>年を入力するテキストボックス名を、txt年
>>月を選択するコンボボックス名を、cmb月
>>と仮定します。
>>
>>txt年の更新後処理で、
>>
>>Private Sub txt年_AfterUpdate()
>>　　If Not IsNull(Me.txt年) AND Not IsNull(Me.cmb月)　Then
>>　　　　Call MakeCalender(Me.txt年, Me.Cmb月)
>>　　End If
>>End Sub
>>
>>cmb月の更新後処理で、
>>
>>Private Sub cmb月_AfterUpdate()
>>　　Call txt年_AfterUpdate()
>>End Sub
>
>
>実行しました。が、実行時エラー13
>　　　　　　　　　型が一致しません。　が表示され、
>下記の該当箇所が黄色く変わります。
>>　　　　Call MakeCalender(Me.テキスト0, Me.コンボ0)
>
>御報告まで・・・・。

あれから　hatena さん　が作って頂いたものを元に理解度を深めようとしていますが、どこでエラーで引っかかってしまったのか、未だにわからない状態です。
よろしければ、エラーになった箇所の探し方を教えて頂くとともに、その箇所をどの様に記述すれば成功するのかを教えて下さい。

エラー内容：　実行時エラー13
　　　　　　　型が一致しません。
　　　　　　　　　　　　　　　　黄色になったところの先頭に＠にしています。
　　　　　　　　　　　　　Call MakeCalender　～・・・
　　　　　　　　　　　　　　　一行のみ。

Private Sub コンボ0_AfterUpdate()
　Call テキスト0_AfterUpdate
End Sub　　　　　　　　　　　↑
　　　　　　　　　　　　　　・AfterUpdate()　と言う風にあったのですが、()　　　　　　　　　　　　　　　　は入らなかった為に()　を記述していません。

Private Sub テキスト0_AfterUpdate()
　If Not IsNull(Me.テキスト0) And Not IsNull(Me.コンボ0) Then
＠－－－ Call MakeCalender(Me.テキスト0, Me.コンボ0)
　End If
End Sub

402 hits

▼

【10376】他のボックス結果をコマンドボタンに。 heavenlycastle2003 08/5/13(火) 8:49