فراغ واحد بعد كل حرف

مرحباً ..

أحببت أن أطرح موضوعاً يتعلق بإدخال البيانات و هو من الأهمية حيث أن هذه المشاكل واجهتني مع بعض المستثمرين وخصوصاً عند إدخال معلومات حساسة تتعلق بها عمليات البحث ..فمثلاً أحد المستثمرين يعتمد في التصنيف على إدخال الأرقام و الحروف مثل ( 549 ل) و المشكلة تنبع إذا أدخل المستثمر (549 ل) أي أدخل فراغاً مزدوجاً لذا كان علي البحث عن وسيلة تقوم بتحويل الفراغات المكررة إلى فراغ وحيد ..

في الوحدة النمطية العامة أدخل 
'---------------
'-- السماح بفراغ واحد فقط في الحقل بعد كل رمزأو حرف
'---------------

Public Function ForSpaceKey(Astr As Variant) As String
Dim I As Integer
Dim L As String, L1 As String, NewStr As String

If Nz(Astr, "") = "" Then Exit Function
Astr = CStr(Astr)
NewStr = Mid(Astr, 1, 1)

For I = 2 To Len(Astr)
L = Mid(Astr, I, 1)
L1 = Mid(Astr, I - 1, 1)
    If Asc(L) = 32 And Asc(L1) = 32 Then
        NewStr = NewStr
    Else
        NewStr = NewStr & L
    End If
Next

ForSpaceKey = NewStr

End Function
' Asc(L) = 32 <====> " " (speace)

و في حدث بعد التحديث للعنصر المطلوب أضف

Private Sub Num_General_AfterUpdate()
    Num_General = ForSpaceKey(Nz(Num_General))
End Sub

مع التحية ..