Merhaba

Eklediğim uygulamada Satis Formunda SatisUrunAdi Açılan Kutuyu FaturaDetay SatisUrunAdi ile ilişkilendirerek Açılan Kutuda verileri seçerk Satış işlemini gerçekleştiriyorum. Açılan Kutuda ayni üründen birden fazla satış varsa ayni ürünü alt alta gösteriyor.

Örneğin 10 defa elma satışı yapmışsam 10 adet elma kelimesi alt, alta sıralıyor.

Benim istediğim ayni üründen sadece bir tane açılan kutuda görünsün.

Bunu için yardımlarınıza ihtiyacım var. Yardımlarınız için şimdiden teşekkürler.

"group by" yada "Distinct " komutları işinize yarayabilir.
açılır kutuda 5 sütun var bu sütunların hepsini kullanıyor musunuz?

(15/05/2019, 19:09)haliliyas yazdı: "group by" yada "Distinct " komutları işinize yarayabilir.
açılır kutuda 5 sütun var bu sütunların hepsini kullanıyor musunuz?

Hocam Açılır kutuda Sadece SatisUrunAdi sütunu kullanıyorum.

eğer açılır kutunun diğer sütunları farklı yerlerde kullanılmıyorsa
önce sütun sayısını 1 yapın
sonra da veri-->satır kaynağı -->

SELECT Stok.StokUrunAdi

FROM Stok

GROUP BY Stok.StokUrunAdi;

olarak ya da

SELECT DISTINCT Stok.StokUrunAdi

FROM Stok

ORDER BY Stok.StokUrunAdi;

kodlarından birini deneyebilirsiniz.

Hocam Açılır Kutu verisini FaturaDetay Tablosu SatisUrunAdi sütundan almasını istiyorum kodu aşağıdaki şekilde ekledim Açılır Kutuya veri gelmiyor. Örneği ekledim bakabilirmisiniz.

SELECT FaturaDetay.SatisUrunAdi FROM FaturaDetay GROUP BY FaturaDetay.SatisUrunAdi;

aslında bir sorun göremedim ama kaynağı silip yeniden ayarladığımda çalıştı
Not:
sorunuzla ilişkili değil ama modül1'deki aşağıdaki kod 64 bitte sorun çıkardığından bir altındaki kodla değiştirdim
böylece hem32 bitte hem de 64 bitte çalışır. (en azından ben öyle biliyorum)
sadece 32bitte çalışan kod

Private Declare Function apiShowWindow Lib "user32" _

Alias "ShowWindow" (ByVal hwnd As Long, _

ByVal nCmdShow As Long) As Long

hem32 hem de 64 bitte çalışan kod

#If VBA7 And Win64 Then '64 bit için

Private Declare PtrSafe Function apiShowWindow Lib "user32" _

Alias "ShowWindow" (ByVal hwnd As Long, _

ByVal nCmdShow As Long) As Long

   

#Else '32 bit için

Private Declare Function apiShowWindow Lib "user32" _

Alias "ShowWindow" (ByVal hwnd As Long, _

ByVal nCmdShow As Long) As Long



#End If