aaa alanındaki 255.55.8/55/66 gibi bir sayının 2555585566 olacak şekilde . ve / gibi karekterlerden arındırmam gerekiyor.
sitede yaptığım araştırma sonucunda
Public Function Trz(bb As String)
Dim i As Integer
Dim index As Integer
Dim Count As Integer
Dim FoundByAscii(0 To 255) As Boolean
Set bb = Me.HesapKodu
For i = 1 To Len(bb)
If Not IsNumeric(Mid(bb, i, 1)) Then Trz = Mid(bb, i + 1)
Next
End Function
koduna ulaştım bir butonun tıklandığı olayınada
Kod:
HesapKodu = Replace(HesapKodu, ".", "")