cbo_transport_type açılan kutusunun güncelleştirme sonrasında olayındaki kodu aşağıdaki ile değiştirerek deneyiniz.

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