Skip to main content

AccessTr.neT


Metin Kutusuna Sorgudaki Satırları Yazdırma

Metin Kutusuna Sorgudaki Satırları Yazdırma

#1
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
.rar Avm Ciro Takip d_kat.rar (Dosya Boyutu: 183,63 KB | İndirme Sayısı: 9)
Cevapla
#2
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.
Cevapla
#3
referans ekleme dışında hepsini yaptım referans ekleme konusunda yardımcı olabilirmisiniz.
Cevapla
#4
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.

[Resim: do.php?imgf=149336747366521.jpg]

ardından,TAMAM ile pencereyi kapatınız.bilginize...iyi çalışmalar,saygılar.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#5
(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.

[Resim: do.php?imgf=149336748173871.jpg]
bende öyle birşey yok sanırım.
Cevapla
#6
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.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task