質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

90.33%

  • VBA

    1906questions

    VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

  • Access

    472questions

    Accessはマイクロソフトによるリレーショナルデータベース管理システムです。オブジェクト指向のアプリケーション作成に対応しており、テーブルや編集をはじめ、クエリ生成、入力フォーム作成、レポート作成など一通りの機能を備えています。

コンボボックスのイベントについて

解決済

回答 1

投稿 編集

  • 評価
  • クリップ 0
  • VIEW 199

napoleon

score 12

コンボボックスのイベントについて質問させていただきます。
イメージ説明

発注を行うためのフォームを作成しています。
仕入先、品目ともに複数あり、コンボボックスで選択しサーチボタンをクリックすると
その品目の規格が表示される仕様にしています。
仕入先で品目を変更した場合、一度規格もクリアにしたいのでイベントで『変更時』にVBAを設定しています。

同様に同じ仕入先で品目を変更した場合も規格の表示をクリアにしたいので品目のコンボボックスに同様のVBAを設定しました。「Private Sub コンボ品目_Change()」

ブレークポイントを設定して、品目を変更した場合にVBAを通るか見てみましたが、このVBAは通過していませんでした。
イメージ説明

ご教示宜しくお願い致します。

    If IsNull(Me!KIKAKU_1) = True Then
        Me.KIKAKU_1.Visible = False
        Me.ラベル_1.Visible = False
        Me.カケ_1.Visible = False
        Me.LOT_1.Visible = False
    End If

    If IsNull(Me!KIKAKU_2) = True Then
        Me.KIKAKU_2.Visible = False
        Me.ラベル_2.Visible = False
        Me.カケ_2.Visible = False
        Me.LOT_2.Visible = False
    End If

    If IsNull(Me!KIKAKU_3) = True Then
        Me.KIKAKU_3.Visible = False
        Me.ラベル_3.Visible = False
        Me.カケ_3.Visible = False
        Me.LOT_3.Visible = False
    End If

    If IsNull(Me!KIKAKU_4) = True Then
        Me.KIKAKU_4.Visible = False
        Me.ラベル_4.Visible = False
        Me.カケ_4.Visible = False
        Me.LOT_4.Visible = False
    End If

    If IsNull(Me!KIKAKU_5) = True Then
        Me.KIKAKU_5.Visible = False
        Me.ラベル_5.Visible = False
        Me.カケ_5.Visible = False
        Me.LOT_5.Visible = False
    End If

    If IsNull(Me!KIKAKU_6) = True Then
        Me.KIKAKU_6.Visible = False
        Me.ラベル_6.Visible = False
        Me.カケ_6.Visible = False
        Me.LOT_6.Visible = False
    End If

    If IsNull(Me!KIKAKU_7) = True Then
        Me.KIKAKU_7.Visible = False
        Me.ラベル_7.Visible = False
        Me.カケ_7.Visible = False
        Me.LOT_7.Visible = False
    End If

    Me!LOT_1 = Null
    Me!LOT_2 = Null
    Me!LOT_3 = Null
    Me!LOT_4 = Null
    Me!LOT_5 = Null
    Me!LOT_6 = Null
    Me!LOT_7 = Null

    Me!F_履歴.Form.Visible = False
    Me.Refresh
コード
  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

質問への追記・修正、ベストアンサー選択の依頼

  • coco_bauer

    2018/05/31 10:16

    Private Sub コンボ品目_Change()など、質問に示されていないコードがあると思われます。コードを示さずに回答が得られるとお思いですか?? 「動いてくれません。ブレークポイントで止めてみたのですが抜けてしまっています」というのも何が起きたのか理解できません。

    キャンセル

  • mts10806

    2018/05/31 10:22

    プログラムコード(およびエラーメッセージ)は質問内容としては最も重要な部分であるため、見やすくしていただけると助かります。<code>ボタン押下→「コード」部分にコードを貼り付け→「ここに言語を入力」に対象言語名記入(エラーメッセージの場合は不要)の手順で「コードハイライト化」してください。(質問編集画面ではリアルタイムでプレビューが表示されるので見ながら調整してください)

    キャンセル

  • mts10806

    2018/05/31 10:23

    起きた現象を具体的に書いて下さい。 https://teratail.com/help/question-tips#questionTips3-4

    キャンセル

回答 1

checkベストアンサー

+2

まず、イベントは、Changeイベントではなく、AfterUpdateイベントにしましょう。
Changeイベントだと、キーボードで一文字ずつ入力したり削除したりで反応してしまいます。

あと、
If IsNull(Me!KIKAKU_1) = True Then
というような条件は不要では。これだと、空欄以外のときには反応しなくなります。

同じようなコードの繰り返しは、ループを使ってシンプルに記述できます。

Private Sub コンボ品目_AfterUpdate()
    Dim i as Long

    For i = 1 to 7
        Me("KIKAKU_" & i).Visible = False
        Me("ラベル_" & i).Visible = False
        Me("カケ_" & i).Visible = False
        Me("LOT_" & i).Visible = False
        Me("LOT_" & i).Visible = Null
    Next

    Me!F_履歴.Form.Visible = False
End Sub

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2018/05/31 11:35

    ありがとうございました!きちんとできました。

    ループのご指摘もありがとうございます。全体がスッキリとしました。

    またご教示いただきますようお願い致します。

    キャンセル

同じタグがついた質問を見る

  • VBA

    1906questions

    VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

  • Access

    472questions

    Accessはマイクロソフトによるリレーショナルデータベース管理システムです。オブジェクト指向のアプリケーション作成に対応しており、テーブルや編集をはじめ、クエリ生成、入力フォーム作成、レポート作成など一通りの機能を備えています。