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
