Skip to main content

AccessTr.neT


Açılan Kutularda Firma İsimleri Eksilerek Gelsin

Açılan Kutularda Firma İsimleri Eksilerek Gelsin

Çözüldü #1
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.
.rar acılankutu1.rar (Dosya Boyutu: 18,24 KB | İndirme Sayısı: 2)
Cevapla
#2
List kutusu mantığıyla yapmak daha doğru olacak gibi; Ama bunun çözümünü de merak ettim
Cevapla
#3
kusura bakmayın eksik kopyalanmış
Visual Basic Code
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
Visual Basic Code
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
Visual Basic Code
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
Cevapla
#4
Tamam. Oldu. Teşekkür ederim.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task