G
gchichester via AccessMonster.com
Can anyone find a reason why this IF Statement only returns a "N/A".
To the best of my ability I have confirmed that all the data in the
referenced field is correct and
should populate the [AsiaNoticeContractNumber] with the correct number.
Thanks for any and all responses.
Gilc
Private Sub cboAsiaNoticeServiceContractCustomer_LostFocus()
If [cboAsiaNoticeShipLine] = "FE Evergreen" And
[cboAsiaNoticeServiceContractCustomer] = "CELSUS EXPORT LLC." Then
'Celsus/FE-Evergreen '
[AsiaNoticeContractNumber] = "35378"
ElseIf [cboAsiaNoticeShipLine] = "FE OOCL" And
[cboAsiaNoticeServiceContractCustomer] = "CELSUS EXPORT LLC." Then
'Celsus/FE-OOCL'
[AsiaNoticeContractNumber] = "PW082185"
ElseIf [cboAsiaNoticeShipLine] = "FE Mitsui" And
[cboAsiaNoticeServiceContractCustomer] = "CELSUS EXPORT LLC." Then
'Celsus/MITSUI'
[AsiaNoticeContractNumber] = "5110125A08"
ElseIf [cboAsiaNoticeShipLine] = "FE Maersk" And
[cboAsiaNoticeServiceContractCustomer] = "CELSUS EXPORT LLC." Then
'Celsus/Mearsk - 01/09
[AsiaNoticeContractNumber] = "271912"
Else: [AsiaNoticeContractNumber] = "N/A"
End If
End Sub
To the best of my ability I have confirmed that all the data in the
referenced field is correct and
should populate the [AsiaNoticeContractNumber] with the correct number.
Thanks for any and all responses.
Gilc
Private Sub cboAsiaNoticeServiceContractCustomer_LostFocus()
If [cboAsiaNoticeShipLine] = "FE Evergreen" And
[cboAsiaNoticeServiceContractCustomer] = "CELSUS EXPORT LLC." Then
'Celsus/FE-Evergreen '
[AsiaNoticeContractNumber] = "35378"
ElseIf [cboAsiaNoticeShipLine] = "FE OOCL" And
[cboAsiaNoticeServiceContractCustomer] = "CELSUS EXPORT LLC." Then
'Celsus/FE-OOCL'
[AsiaNoticeContractNumber] = "PW082185"
ElseIf [cboAsiaNoticeShipLine] = "FE Mitsui" And
[cboAsiaNoticeServiceContractCustomer] = "CELSUS EXPORT LLC." Then
'Celsus/MITSUI'
[AsiaNoticeContractNumber] = "5110125A08"
ElseIf [cboAsiaNoticeShipLine] = "FE Maersk" And
[cboAsiaNoticeServiceContractCustomer] = "CELSUS EXPORT LLC." Then
'Celsus/Mearsk - 01/09
[AsiaNoticeContractNumber] = "271912"
Else: [AsiaNoticeContractNumber] = "N/A"
End If
End Sub