Açılan Kutularda Firma İsimleri Eksilerek Gelsin

Açılan Kutularda Firma İsimleri Eksilerek Gelsin - Baskı Önizleme

+- 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ığı: Açılan Kutularda Firma İsimleri Eksilerek Gelsin (/konu-acilan-kutularda-firma-isimleri-eksilerek-gelsin.html)

Açılan Kutularda Firma İsimleri Eksilerek Gelsin - SeferŞANLI - 18/03/2020

frm_firmalar adlı formda olan 3 adet açılan kutu, Tbl_firmalar adlı tablonun firma isimlerini satır kaynağı olarak alıyor.

Yapılmak istenen şey birinci açılan kutuda seçilen firma adı 2. 3. açılan kutuya gelmesin. Yine 1. ve 2. de seçilen de 3. y gelmesin

Yani kullanıcı açılan kutuda aynı firmayı iki kere seçemesin.

Cvp: Aılan Kutularda Firma İsimleri Eksilerek Gelsin - SeferŞANLI - 18/03/2020

List kutusu mantığıyla yapmak daha doğru olacak gibi; Ama bunun çözümünü de merak ettim

Cvp: Aılan Kutularda Firma İsimleri Eksilerek Gelsin - berduş - 18/03/2020

kusura bakmayın eksik kopyalanmış

Private Sub ac_firma1_GotFocus()

SqlKrt1 = IIf(Len(Me.ac_firma1) > 0, ", " & Me.ac_firma1, "") & _

          IIf(Len(Me.ac_firma2) > 0, ", " & Me.ac_firma2, "") & _

          IIf(Len(Me.ac_firma3) > 0, ", " & Me.ac_firma3, "")

          

SqlKrt1 = Mid(SqlKrt1, 2)

SqlKrt1 = IIf(Len(SqlKrt1) > 0, " WHERE ((tbl_firmalar.[firma-id]) Not In (" & SqlKrt1 & "))", "")

SqlSec = " SELECT tbl_firmalar.[firma-id], tbl_firmalar.firma_adi, tbl_firmalar.firma_adresi FROM tbl_firmalar" & SqlKrt1



Me.ac_firma1.RowSource = SqlSec



End Sub

Private Sub ac_firma2_GotFocus()

SqlKrt1 = IIf(Len(Me.ac_firma1) > 0, ", " & Me.ac_firma1, "") & _

          IIf(Len(Me.ac_firma2) > 0, ", " & Me.ac_firma2, "") & _

          IIf(Len(Me.ac_firma3) > 0, ", " & Me.ac_firma3, "")

          

SqlKrt1 = Mid(SqlKrt1, 2)

SqlKrt1 = IIf(Len(SqlKrt1) > 0, " WHERE ((tbl_firmalar.[firma-id]) Not In (" & SqlKrt1 & "))", "")

SqlSec = " SELECT tbl_firmalar.[firma-id], tbl_firmalar.firma_adi, tbl_firmalar.firma_adresi FROM tbl_firmalar" & SqlKrt1



Me.ac_firma2.RowSource = SqlSec



End Sub

Private Sub ac_firma3_GotFocus()

SqlKrt1 = IIf(Len(Me.ac_firma1) > 0, ", " & Me.ac_firma1, "") & _

          IIf(Len(Me.ac_firma2) > 0, ", " & Me.ac_firma2, "") & _

          IIf(Len(Me.ac_firma3) > 0, ", " & Me.ac_firma3, "")

          

SqlKrt1 = Mid(SqlKrt1, 2)

SqlKrt1 = IIf(Len(SqlKrt1) > 0, " WHERE ((tbl_firmalar.[firma-id]) Not In (" & SqlKrt1 & "))", "")

SqlSec = " SELECT tbl_firmalar.[firma-id], tbl_firmalar.firma_adi, tbl_firmalar.firma_adresi FROM tbl_firmalar" & SqlKrt1



Me.ac_firma3.RowSource = SqlSec



End Sub

Cvp: Aılan Kutularda Firma İsimleri Eksilerek Gelsin - SeferŞANLI - 18/03/2020

Tamam. Oldu. Teşekkür ederim.