dilerim işinize yarar
Private Sub MusteriSayisi_Exit(Cancel As Integer)
If CLng(Me.MusteriSayisi) > 15 Then Me.MusteriSayisi = 15
Me.Musteriler = ""
For x = 1 To CLng(Me.MusteriSayisi)
Me.Musteriler = Me.Musteriler & x & " - " & vbNewLine
Next x
End Sub