AccessTr.neT

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.