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