Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
05/11/2009 17:49
Konu Sahibi
jon206
Yorumlar
4
Okunma
3062
Konuyu Oyla:
  • Derecelendirme: 5/5 - 1 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 5/5 - 1 oy
Kullanici Avatari

jon206

Üye
Üye
17
2
04/11/2008
0
Ankara
Ofis 2007
25/05/2018,16:20
Çözüldü 
Selamlar
Ekte Ki Örnekte 1 Adet Sürekli Form Var

Kasa onayı Diye Bir Adet Checkbox Var İşaretli Olanları
Aşağıda Metin Kutusuna Aylar Aktarılacak Yan Yana

Örnek
Metin Kutusu=Eylül-Ocak Gibi

Not: Eğer 2 Adet Ocak Seçilmiş İse Tek Yazılmasını İstiyorum
Metin Kutusu=Ocak-Ocak Olmayacak Tek Yazılsın

Şimdiden Teşekkür Ederim


Ek Dosyalar
.rar   Veritabanı1.rar(Dosya Boyutu: 78,4 KB / İndirme Sayısı: 37)

Kullanici Avatari

Seruz

Uzman
Uzman
SE.... UZ....
1.561
7
30/10/2008
814
Tekirdağ
BT Şefi
Ofis XP
05/06/2018,09:01
Çözüldü 
Dosyanızı Access 2007 dosyası olarak göndermişsiniz.
Access 2002-2003 formatında gönderirseniz,
daha çabuk ve daha çok yardım alabilirsiniz.


Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs

Kullanici Avatari

jon206

Üye
Üye
17
2
04/11/2008
0
Ankara
Ofis 2007
25/05/2018,16:20
Çözüldü 
ilgilendiğiniz için tşk. ederim 2003 formatında hemn gönderiyorum...


ektedir...


Ek Dosyalar
.rar   Veritabanı2.rar(Dosya Boyutu: 48,79 KB / İndirme Sayısı: 22)

Kullanici Avatari

Seruz

Uzman
Uzman
SE.... UZ....
1.561
7
30/10/2008
814
Tekirdağ
BT Şefi
Ofis XP
05/06/2018,09:01
Çözüldü 
Buyrun, örnek ektedir.

Kod:
SELECT AYLAR FROM AİDATLAR WHERE (KASAONAYI=Yes) GROUP BY AYLAR ORDER BY AYLAR;

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub btn_METIN_Click()
On Error GoTo Hata
Dim RS As New ADODB.Recordset

    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
    
    RS.Open "Aidatlar_Kasa_Onayli", CurrentProject.Connection, adOpenKeyset, adLockReadOnly

    Me.metin = ""
    Do While Not RS.EOF
        If Me.metin <> "" Then Me.metin = Me.metin & "-"
        Me.metin = Me.metin & RS("AYLAR")
        RS.MoveNext
    Loop

    RS.Close
    Set RS = Nothing

Exit Sub
Hata:
    MsgBox Err.Description
    Exit Sub
End Sub


Ek Dosyalar
.rar   Aidat_Seruz.rar(Dosya Boyutu: 34,92 KB / İndirme Sayısı: 78)
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs

Kullanici Avatari

jon206

Üye
Üye
17
2
04/11/2008
0
Ankara
Ofis 2007
25/05/2018,16:20
Çözüldü 
SAYIN SERUZ TAM İSTEDİĞİM GİBİ OLMUŞ ÇOK TŞK. EDERİM SAYGILAR...




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Mükerrer kayıt engelleme hakkında orkuncan5 10 5.745 Dün, 15:48 okan60
Çözüldü Liste Kutusu Güncelleme Sorunu murat dikme 4 82 31/05/2018, 14:33 murat dikme
Çözüldü Seçenek Kutusu Seçim Yapılmayan Alanın Raporda Boş Gösterilmesi murat dikme 6 174 19/05/2018, 13:14 murat dikme
Çözüldü Açılan Kutusu Seçim Sorunu Merve D. 4 191 02/05/2018, 16:23 Merve D.
Çözüldü Onay Kutusuna Otomatik Veri Çekme Allback 10 202 10/04/2018, 16:15 Allback

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.