27/02/2015, 15:56
Arkadaşlar merhaba
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
yazdığım zaman buton tıklandığında açık olan sayfadaki koda tanımlanmış olan alanda istediğim oluyor fakat bende 30000 civarı kayıt olduğundan butona bastığımda tüm sayfalardaki aaa alanlarının bahsettiğim karekterlerden arınmasını istiyorum yardımcı olabilirseniz sevinirim.
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, ".", "")