If One Database Value Is Empty Display Anotherone (Barcode)
I have a barcode field (ean13).
If a database field (Sample_BWBootLabel.OMDOOSBARCODE) is NOT empty I want to display this field in the barcode,if the field is empty I want to display another field (Sample_BWBootLabel.OMDOOSBARCODE) in this barcode.
Part giving me troubles:
If (Field("Sample_BWBootLabel.OMDOOSBARCODE") ="") Then
Value=Field("Sample_BWBootLabel.PAARDOOSBARCODE")
Else
Value=Field("Sample_BWBootLabel.OMDOOSBARCODE")
End If
Whole code is:
depending on the field Sample_BWBootLabel.BARCODESETUPID , i decide to display this barcode or not.
Sample_BWBootLabel.BARCODESETUPID=1 I give it a value so the barcode can be displayed (Sample_BWBootLabel.PAARDOOSBARCODE or Sample_BWBootLabel.OMDOOSBARCODE).
If Sample_BWBootLabel.BARCODESETUPID<>1 i don't give a value so the barcode stays empty.
Select Case Field("Sample_BWBootLabel.BARCODESETUPID")
Case "1"
If (Field("Sample_BWBootLabel.OMDOOSBARCODE") ="") Then
Value=Value 'Field("Sample_BWBootLabel.PAARDOOSBARCODE")
Else
Value=Field("Sample_BWBootLabel.OMDOOSBARCODE")
End If
Case else
Value=""
End Select
Any help will be highly appreciated
If a database field (Sample_BWBootLabel.OMDOOSBARCODE) is NOT empty I want to display this field in the barcode,if the field is empty I want to display another field (Sample_BWBootLabel.OMDOOSBARCODE) in this barcode.
Part giving me troubles:
If (Field("Sample_BWBootLabel.OMDOOSBARCODE") ="") Then
Value=Field("Sample_BWBootLabel.PAARDOOSBARCODE")
Else
Value=Field("Sample_BWBootLabel.OMDOOSBARCODE")
End If
Whole code is:
depending on the field Sample_BWBootLabel.BARCODESETUPID , i decide to display this barcode or not.
Sample_BWBootLabel.BARCODESETUPID=1 I give it a value so the barcode can be displayed (Sample_BWBootLabel.PAARDOOSBARCODE or Sample_BWBootLabel.OMDOOSBARCODE).
If Sample_BWBootLabel.BARCODESETUPID<>1 i don't give a value so the barcode stays empty.
Select Case Field("Sample_BWBootLabel.BARCODESETUPID")
Case "1"
If (Field("Sample_BWBootLabel.OMDOOSBARCODE") ="") Then
Value=Value 'Field("Sample_BWBootLabel.PAARDOOSBARCODE")
Else
Value=Field("Sample_BWBootLabel.OMDOOSBARCODE")
End If
Case else
Value=""
End Select
Any help will be highly appreciated
0
-
Finally solved it by removing all the vbscript and working with multiple datafields.
Then I've added all the logic in the surpression logic.0
Please sign in to leave a comment.
Comments
1 comment