多個IF然後結果放到一個文本框中

Question

在Access 2007 VB中，是否可以將多個If Then語句的結果組合到一個文本框中？這段代碼產生了三個結果，但我最後需要將這三個結合到txtLOB中。

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

如果您正在尋找避免額外的三個文本框，試試這個：

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

是的，它是。跳過「文本」

txtLOB = txtCSSB & txtHL & txtGWIM 

如果這些都爲這，這是該模塊的形式對文本框的名稱，最好使用我：

Me.txtLob 

您只能使用的.text屬性爲文本框它具有焦點，它指向當前內容，不一定與.value屬性相同。