+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Formdaki Açılır Kutu Seçiminde 3. Koşul Ekleme (/konu-formdaki-acilir-kutu-seciminde-3-kosul-ekleme.html)
Formdaki Açılır Kutu Seçiminde 3. Koşul Ekleme - haziran4 - 18/01/2018
Gelir işlem Türünden Ürün Alımı Seçilldiğinde Firmalar geliyor. diğerleri seçildiğinde firma gelmiyor.3. koşul olarakta Bankaya yatan Seçildiğinde Banka Adı gelmesini ve şubenin de gelmemesini nasıl yapabilirim.
Yani Ürün Bankaya Yatan Seçildiğinde de Gider Firma ve Şube Görünmeyecek Banka Adı Gelecek.
Ürün Alımı Haricinde Seçildiğinde Aşağıdaki gibi Oluyor.
![[Resim: do.php?imgf=151626745262521.jpg]](https://accesstr.net/resim/do.php?imgf=151626745262521.jpg)
.
Ürün Alımı Seçildiğinde Aşağıdaki Gibi Oluyor.
![[Resim: do.php?imgf=151626773762471.jpg]](https://accesstr.net/resim/do.php?imgf=151626773762471.jpg)
.
Bankaya Yatan Seçildiğin de de Aşağıdaki Gibi gelmesini nasıl yapabilirim.
![[Resim: do.php?imgf=151626751094191.jpg]](https://accesstr.net/resim/do.php?imgf=151626751094191.jpg)
Cvp: Formdaki Açılır Kutu Seçiminde 3. Koşul Ekleme - ozanakkaya - 18/01/2018
Sub Duzenle kodunu aşağıdaki ile değiştirerek deneyiniz.
Sub Duzenle()
If Box_GiderislemTuru.Column(1) = "2" Then
Me.Box_SubeAdi.Top = 1920
Me.Aciklama.Top = 2345
Me.GiderMiktar.Top = 2765
Etiket4.Top = 1920
Etiket7.Top = 2345
Etiket8.Top = 2765
Box_Gider_Firma.Visible = True
Box_Banka_Adi.Visible = False
Me.Box_SubeAdi.Visible = True
ElseIf Box_GiderislemTuru.Column(1) = "0" Then
Me.Box_SubeAdi.Top = 1920
Me.Aciklama.Top = 2345
Me.GiderMiktar.Top = 2765
Etiket4.Top = 1920
Etiket7.Top = 2345
Etiket8.Top = 2765
Box_Gider_Firma.Visible = True
Box_Banka_Adi.Visible = True
Me.Box_SubeAdi.Visible = False
Else
Me.Box_SubeAdi.Top = 1560
Me.Aciklama.Top = 1985
Me.GiderMiktar.Top = 2405
Etiket4.Top = 1560
Etiket7.Top = 1985
Etiket8.Top = 2405
Box_Gider_Firma.Visible = False
Box_Banka_Adi.Visible = False
Me.Box_SubeAdi.Visible = True
End If
End Sub
Cvp: Formdaki Açılır Kutu Seçiminde 3. Koşul Ekleme - haziran4 - 18/01/2018
Üstad Teşekkür Ederim.