Private Sub Form_ApplyFilter(Cancel As Integer, ApplyType As Integer)
Me.Parent.gsmler = YanYana()
End Sub
Private Sub Form_Current()
Me.Parent.gsmler = YanYana()
End Sub
Public Function YanYana()
Dim Kayitlar As Recordset
Dim Telefonlar As String, Sayac As Long
Set Kayitlar = Me.RecordsetClone
Kayitlar.Filter = Me.Filter
Kayitlar.MoveFirst
Do Until Kayitlar.EOF
Telefonlar = Telefonlar & Kayitlar!GSM & ", "
Sayac = Sayac + 1        '**********EKLENDI***********
Kayitlar.MoveNext
Loop
Kayitlar.Close: Set Kayitlar = Nothing
YanYana = Telefonlar
me.TelefonAdet= Sayac  '**********EKLENDI***********
End Function