Alıntı:Daha kolay yolları varsa, öğrenmeye hazırım.
bu tür işlevler için select-case kullanmak daha doğru, ayrıca kod tekrarından kaçınmak için kodu aşağıdaki gibi uygulayabilirsiniz.
Sub GizleGoster()
Select Case Me.NakliyeYonetimiNo.Column(1)
Case "Kargo"
Me.KargoFirmasi.Visible = True
Me.NakliyeFirmasi.Visible = False
Case "Ambar"
Me.NakliyeFirmasi.Visible = True
Me.KargoFirmasi.Visible = False
Case Else
Me.NakliyeFirmasi.Visible = False
Me.KargoFirmasi.Visible = False
End Select
End Sub
Private Sub Form_Current()
Me.AraToplam = UrunNo.Column(2) * UrunMiktari
Me.ToplamBakiye = AraToplam - IndirimTutari
Call GizleGoster
End Sub
Private Sub NakliyeYonetimiNo_AfterUpdate()
Call GizleGoster
End Sub
Konu cevaplanmış sorular bölümüne taşınmıştır.Geri bildirimde bulunduğunuz için teşekkürler.