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

Derecelendirme: 5/5 - 1 oy
Kullanici Avatari

jon206

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


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

Kullanici Avatari

Seruz

Uzman
Uzman
SE.... UZ....
 47
 1.562
 7
 30/10/2008
814
 Tekirdağ
 BT Şefi
 Ofis XP
 09/09/2018,11:08
Çö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
 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...


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

Kullanici Avatari

Seruz

Uzman
Uzman
SE.... UZ....
 47
 1.562
 7
 30/10/2008
814
 Tekirdağ
 BT Şefi
 Ofis XP
 09/09/2018,11:08
Çö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
 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ü Sıralanan Veriler Hakkında notrino 2 35 19/09/2018, 11:42
Son Yorum: notrino
Çözüldü Ole Nesnesi Hakkında notrino 2 55 17/09/2018, 11:09
Son Yorum: notrino
Çözüldü Liste Kutusu Eksik İsleç Hatası hey 19 325 16/09/2018, 18:38
Son Yorum: hey
Çözüldü Sayı Sınırlama Hakkında notrino 2 73 06/09/2018, 12:28
Son Yorum: notrino
Çözüldü Satınalma Takip Yazılımı Hakkında DJ_CrAzY43 8 373 06/09/2018, 11:11
Son Yorum: PROSAN

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