Merhaba
firmaincele formundaki
d_kat metin kutusuna firmanın hangi katlarda dükkanı varsa onları yazmak istiyorum
örn. zBoyner firmasının kat-1 de 2 dükkanı kat 0 da 1 dükkanı var. Metin kutusunda 2 defa kat-1 1 defa kat 0 yerine 1 tane kat -1, 1 tane kat 0 yazmalı görüntü aşağıdaki d_kat gibi olmasını gerekiyor. Şimdiden teşekkürler.
firma_id =1
f_kisaad = zBoyner
d_kat = KAT -1 , KAT 0
Merhaba,
Referanslara "ActiveX Data Objects X.X Library" referansını ekle,
Modüle
Public Function Yan_Yana(Sorgum As String)
Dim rs As New ADODB.Recordset
rs.Open Sorgum, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Yan_Yana = ""
i = 0
While Not rs.EOF
For Each GVeri In rs.Fields
i = i + 1
If i = 1 Then
Yan_Yana = GVeri.Value
Else
Yan_Yana = Trim(Yan_Yana) & ", " & GVeri.Value
End If
Next
rs.MoveNext
Wend
rs.Close
Set rs = Nothing
Yan_Yana = Trim(Yan_Yana)
End Function
MODÜLÜ KAYDET.
Firmaincele isimli formun kayıt kaynağındaki sorguda bulunan "d_kat" sütununu aşağıdaki ile değiştir.
gd_kat: Yan_Yana("SELECT DISTINCT d_kat FROM dukkan WHERE firma_id=" & [dukkan].[firma_id])
Aynı formdaki d_kat metin kutusunun denetim kaynağını gd_kat olarak değiştir.
referans ekleme dışında hepsini yaptım referans ekleme konusunda yardımcı olabilirmisiniz.
sayın ALTANs,
Alıntı:referans ekleme dışında hepsini yaptım referans ekleme konusunda yardımcı olabilirmisiniz.
ifadenize yönelik olarak;
1) ALT + F11 tuşları ile kod sayfasına geçiniz.
2) üst menüden TOOLS - REFERENCES ifadesini seçiniz.
3) ekrana gelecek olan pencereden,sayın ozan bey'in belirttikleri Microsoft ActiveX Data Objects X.X Library ifadesini listeden seçiniz.
ardından,TAMAM ile pencereyi kapatınız.bilginize...iyi çalışmalar,saygılar.
(28/04/2017, 11:13)atoz112 yazdı: sayın ALTANs,
Alıntı:referans ekleme dışında hepsini yaptım referans ekleme konusunda yardımcı olabilirmisiniz.
ifadenize yönelik olarak;
1) ALT + F11 tuşları ile kod sayfasına geçiniz.
2) üst menüden TOOLS - REFERENCES ifadesini seçiniz.
3) ekrana gelecek olan pencereden,sayın ozan bey'in belirttikleri ActiveX Data Objects X.X Library ifadesini listeden seçiniz.ardından,TAMAM ile pencereyi kapatınız.
bilginize...iyi çalışmalar,saygılar.
bende öyle birşey yok sanırım.
sayın ALTANs,
Microsoft ActiveX Data Objects X.X Library olarak bakınız lütfen.
ÖRNEK
Microsoft ActiveX Data Objects 2.8 Library
bilginize...iyi çalışmalar,saygılar.