メッセージボックスをコード化する方法ifステートメント内のvbyesnoを使用してユーザーフォームを自動入力する

Question

VBAのIfステートメント内のメッセージボックスをコーディングするためのさまざまな方法を試してきましたが、

データ入力用の複数のテキストボックスを持つユーザーフォームがあります。私は、データキャプチャ活動から経験/知識を取り除くことを目的としたコマンドボタンに一連のルールを構築しようとしています。

最初のコンボボックス（txt_Secondary_Reason）の入力とメッセージボックス/後続のコンボボックスからの応答に基づいて、次のフィールドを自動入力します。

以下のコードを参照してください。

`If txt_Secondary_Reason.Value = "DON'T KNOW WHERE FITS" Then 
ComboBox_Problem_Mode.Value = "PART NOT FITTED" 
ComboBox_Problem_Mode_1.Value = "DON'T KNOW WHERE FITS" 
ComboBox_Root_Mode.Value = "DON'T KNOW WHERE FITS" 
ComboBox_Root_Cause.Value = "DON'T KNOW WHERE FITS" 

ElseIf txt_Secondary_Reason.Value = "BOM INCORRECT" And Response = 
MsgBox("Has QIR for this Non Conformance been raised?", vbYesNo + 
vbQuestion, "QIR?") Then 
Select Case Response 
Case Is = vbYes 
    ComboBox_Problem_Mode_1.Value = "QIR RAISED" 
    ComboBox_Problem_Mode.Value = "PART NOT FITTED" 
    ComboBox_Root_Mode.Value = "NON CONFORMING" 
    ComboBox_Root_Cause.Value = "BOM INCORRECT" 

Case Is = vbNo 
    ComboBox_Problem_Mode_1.Value = "QIR NOT RAISED" 
    ComboBox_Problem_Mode.Value = "PART NOT FITTED" 
    ComboBox_Root_Mode.Value = "NON CONFORMING" 
    ComboBox_Root_Cause.Value = "BOM INCORRECT" 
End Select 
End If 
---------------------------------------------------------------------------- 
----` 

"txt_Secondary_Reasonは" コンボボックスで、それは最初はテキストボックスでした。一定の条件が満たされた場合には2件の結果のうち1を有効にしてから、次のelseifに移動する必要があり、ユーザーに依頼するテキストボックスと一緒にここでの入力に基づいて

...

あなたの種類の援助大幅Zunaid

Answer 1

よろしく

を理解されるコードは、この

If txt_Secondary_Reason.Value = "DON'T KNOW WHERE FITS" Then 
    ComboBox_Problem_Mode.Value = "PART NOT FITTED" 
    ComboBox_Problem_Mode_1.Value = "DON'T KNOW WHERE FITS" 
    ComboBox_Root_Mode.Value = "DON'T KNOW WHERE FITS" 
    ComboBox_Root_Cause.Value = "DON'T KNOW WHERE FITS" 

ElseIf txt_Secondary_Reason.Value = "BOM INCORRECT" Then 
    Response = MsgBox("Has QIR for this Non Conformance been raised?", vbYesNo + vbQuestion, "QIR?") 
    Select Case Response 
    Case Is = vbYes 
     ComboBox_Problem_Mode_1.Value = "QIR RAISED" 
     ComboBox_Problem_Mode.Value = "PART NOT FITTED" 
     ComboBox_Root_Mode.Value = "NON CONFORMING" 
     ComboBox_Root_Cause.Value = "BOM INCORRECT" 

    Case Is = vbNo 
     ComboBox_Problem_Mode_1.Value = "QIR NOT RAISED" 
     ComboBox_Problem_Mode.Value = "PART NOT FITTED" 
     ComboBox_Root_Mode.Value = "NON CONFORMING" 
     ComboBox_Root_Cause.Value = "BOM INCORRECT" 
    End Select 
End If 

ようになります