| |
Function FindLabel ( [F_12_8] , [F_4_9] , [F_7_9] , [F_9_9], [WELL])
Dim OutStr
OutStr = "<BOL>" & [WELL] & "</BOL>"
If [F_12_8] = "NA" Then
Else
OutStr = OutStr & vbnewline & "Dec08 : " & [F_12_8]
End if
If [F_4_9] = "NA" Then
Else
OutStr = OutStr & vbnewline & "Avr09 : " & [F_4_9]
End if
If [F_7_9] = "NA" Then
Else
OutStr = OutStr & vbnewline & "Juil09 : " & [F_7_9]
End if
If [F_9_9] = "NA" Then
Else
OutStr = OutStr & vbnewline & "Oct09 : " & [F_9_9]
End if
FindLabel = OutStr
End Function |