On Error GoTo Hata
If Me.cbo_transport_type.Column(1) = "DENİZYOLU" Then
Me.cbo_LclFcl.visible = True
TransportId = "S"
Me.cbo_LclFcl.enabled = True
' LclFclId = Me.cbo_LclFcl.Column(2)
Me.cbo_LclFcl.Value = Me.cbo_LclFcl.ItemData(0)
ElseIf Me.cbo_transport_type.Column(1) = "HAVAYOLU" Then
Me.cbo_LclFcl.visible = False
TransportId = "A"
LclFclId = "AIR"
ElseIf Me.cbo_transport_type.Column(1) = "KARAYOLU" Then
Me.cbo_LclFcl.visible = True
TransportId = "R"
Me.cbo_LclFcl.enabled = True
' LclFclId = Me.cbo_LclFcl.Column(2)
Me.cbo_LclFcl.Value = Me.cbo_LclFcl.ItemData(1)
End If
Hata:
If Err.Number = 94 Then
Exit Sub
End If
cbo_transport_type açılan kutusunun güncelleştirme sonrasında olayındaki kodu aşağıdaki ile değiştirerek deneyiniz.