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

Derecelendirme: 5/5 - 1 oy

jon206

Üye
Kullanici Avatari
Üye
17
2
04/11/2008
0
Ankara
Ofis 2007
20/06/2017,15:49
Çö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)
Cevapla

Seruz

Uzman
Kullanici Avatari
Uzman
S.... U....
1.550
7
30/10/2008
814
Tekirdağ
Ofis XP
13/09/2017,17: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
Cevapla

jon206

Üye
Kullanici Avatari
Üye
17
2
04/11/2008
0
Ankara
Ofis 2007
20/06/2017,15:49
Çö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)
Cevapla

Seruz

Uzman
Kullanici Avatari
Uzman
S.... U....
1.550
7
30/10/2008
814
Tekirdağ
Ofis XP
13/09/2017,17: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
Cevapla

jon206

Üye
Kullanici Avatari
Üye
17
2
04/11/2008
0
Ankara
Ofis 2007
20/06/2017,15:49
Çözüldü 
SAYIN SERUZ TAM İSTEDİĞİM GİBİ OLMUŞ ÇOK TŞK. EDERİM SAYGILAR...


Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Onay Kutusu metin02 4 43 Dün, 20:39 metin02
Çözüldü Kısayol Tuşuyla Liste Kutusu Üzerinden Değer Atama mehmetb84 6 119 18/09/2017, 12:20 mehmetb84
Çözüldü Onay Kutusunu İşaretleyince Butonu Gösterme te-kin 6 393 14/08/2017, 19:44 te-kin
Çözüldü Cari baş harfine göre firma kodu oluşturma hakkında Gokcen Akan 25 954 14/07/2017, 08:32 Gokcen Akan
Çözüldü Form Üzerinde Kayıt Silinirken Onay İstesin. burhanb 2 220 20/06/2017, 14:09 burhanb

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.