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
Bitte melden Sie sich an, um einen Kommentar zu hinterlassen.
Kommentare
1 Kommentar