access'e import ettiğim Invoices tablosunda hesap kodu alanındaki 320.001.0001 gibi hesap kodundaki noktaları yoksayıp 3200010001 haline çevirmek istiyorum. Bunun için aşağıdaki function'ı bana önermiştiniz. Bu functionu Sql kayıt kümesi içine nasıl oturtmak gerekir. Tşk
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
alfanumerik alandaki noktaları kaldırmak
Bu Konudaki Yorumlar |
alfanumerik alandaki noktaları kaldırmak - Yazar: pega54 - 12/07/2014, 09:48
Cvp: alfanumerik alandaki noktaları kaldırmak - Yazar: alpeki99 - 12/07/2014, 11:12
Cvp: alfanumerik alandaki noktaları kaldırmak - Yazar: edacan19 - 27/02/2015, 11:36
Cvp: alfanumerik alandaki noktaları kaldırmak - Yazar: atoz112 - 27/02/2015, 12:57
Cvp: alfanumerik alandaki noktaları kaldırmak - Yazar: edacan19 - 27/02/2015, 16:00
|
Konuyu Okuyanlar: 1 Ziyaretçi