Metin Kutusuna Sorgudaki Satırları Yazdırma

1 2
26/04/2017, 23:34

ALTANs

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
27/04/2017, 01:10

ozanakkaya

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.
28/04/2017, 11:06

ALTANs

referans ekleme dışında hepsini yaptım referans ekleme konusunda yardımcı olabilirmisiniz.
28/04/2017, 11:13

atoz112

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:18

ALTANs

(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.
28/04/2017, 11:21

atoz112

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.
1 2