AccessTr.neT

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

Dosyanızı Access 2007 dosyası olarak göndermişsiniz.
Access 2002-2003 formatında gönderirseniz,
daha çabuk ve daha çok yardım alabilirsiniz.

ilgilendiğiniz için tşk. ederim 2003 formatında hemn gönderiyorum...

ektedir...

Buyrun, örnek ektedir.

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

Kod:
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

SAYIN SERUZ TAM İSTEDİĞİM GİBİ OLMUŞ ÇOK TŞK. EDERİM SAYGILAR...

jon206

Seruz

jon206

Seruz

jon206