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

Derecelendirme: 5/5 - 1 oy
Kullanici Avatari

jon206

Üye
 42
 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



Kullanici Avatari

Seruz

Uzman
SE.... UZ....
 47
 1.564
 7
 30/10/2008
814
 Tekirdağ
 BT Şefi
 Ofis XP
 Bugün,19:58
Çö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
 42
 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...



Kullanici Avatari

Seruz

Uzman
SE.... UZ....
 47
 1.564
 7
 30/10/2008
814
 Tekirdağ
 BT Şefi
 Ofis XP
 Bugün,19:58
Çö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


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
 42
 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 Son Yorum
Çözüldü Denetim Özellikleri Hakkında notrino 5 159 09/12/2018, 12:22
Son Yorum: notrino
Çözüldü Networkte çalışan veritabanının sıkıştırılması hakkında aliyuzen 5 1.049 07/12/2018, 11:12
Son Yorum: oosmaner
Çözüldü Dlookup Hakkında notrino 3 132 05/12/2018, 18:00
Son Yorum: ozanakkaya
Çözüldü Kayıt Kilitleme Hakkında notrino 2 84 03/12/2018, 14:18
Son Yorum: notrino
Çözüldü Kayıt Gezintisi Hakkında notrino 9 149 30/11/2018, 10:59
Son Yorum: notrino

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