IF複数の結果が1つのテキストボックスに表示される

Question

Access 2007 VBでは、複数のIf Thenステートメントの結果を1つのテキストボックスに結合することは可能ですか？このコードでは3つの結果が得られますが、最後にtxtLOBに3つを組み合わせる必要があります。

Private Sub Report_Load() 

    If CSBB <> "No Impact" Then 
     txtCSBB = "CSSB" 
    End If 

    If HL <> "No Impact" Then 
     txtHL = "HL" 
    End If 

    If GWIM <> "No Impact" Then 
     txtGWIM = "GWIM" 
    End If 

    txtLOB.Text = txtCSSB.Text & txtHL.Text & txtGWIM.Text 

End Sub 

Answer 1

あなたは余分な3つのテキストボックスを回避するために探しているなら、これを試してみてください。

Private Sub Report_Load() 
    Dim sText As String 

    If CSBB <> "No Impact" Then 
     sText = "CSSB" 
    End If 
    If HL <> "No Impact" Then 
     sText = sText & "HL" 
    End If 
    If GWIM <> "No Impact" Then 
     sText = sText & "GWIM" 
    End If 

    txtLOB = sText 

End Sub 

Answer 2

イエスです。

Me.txtLob 

にのみ、テキストボックスのための.textプロパティを使用することができます。これらは、これはモジュールであるため、フォーム上のテキストボックスの名前、最高の私を使用している場合に「テキスト」

txtLOB = txtCSSB & txtHL & txtGWIM 

スキップこれはフォーカスがあり、現在の内容を参照します。必ずしも.valueプロパティと同じである必要はありません。