Onay Kutusu Hakkında
Tarih
05/11/2009 17:49
Konu Sahibi
jon206
Yorumlar
4
Okunma
2703
Konuyu Oyla:
  • Derecelendirme: 5/5 - 1 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 5/5 - 1 oy



jon206
Üye
Kullanici Avatari
Üye
14
2
04/11/2008
0
Ankara
Ofis 2007
06/11/2015,15:33
Çözüldü 
Sponsor Reklam
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.544
7
30/10/2008
804
Tekirdağ
Ofis XP
13/01/2017,16:37
Çö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
14
2
04/11/2008
0
Ankara
Ofis 2007
06/11/2015,15:33
Çözüldü 
Sponsor Reklam
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.544
7
30/10/2008
804
Tekirdağ
Ofis XP
13/01/2017,16:37
Çö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
14
2
04/11/2008
0
Ankara
Ofis 2007
06/11/2015,15:33
Çözüldü 
Sponsor Reklam
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
  toplu ekleme hakkında. hbal09 7 269 16/01/2017, 08:27 hbal09
  Metin Kutusu Hk. Serkan Çevik 2 70 12/01/2017, 20:28 Serkan Çevik
  Raporda filtreleme onay kutusu ile nightashes 3 131 12/01/2017, 18:53 nightashes
  Liste kutusu filtreleme nightashes 2 81 11/01/2017, 18:14 nightashes
  Formda 1 Metin Kutusuna birden fazla Metin Kutusu içeriğini koşula bağlı gösterme hbal09 5 207 06/01/2017, 16:22 atoz112


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya