تجاهل الهمزة

[ashraf]

أولأ أعتذر عن التاخير لظروف كثيره اجتمعت معا :

**********************************************

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

في الوحدة النمطية العامة أضف :

Function ForTrAlfbet(Astr As Variant) As String


Dim L1 As String, L2 As String, NewStr As String


If Nz(Astr, "") = "" Then Exit Function

Astr = CStr(Astr)



L1 = Mid(Astr, 2, Len(Astr))

L2 = Mid(Astr, 1, 1)

Select Case Asc(L2)

Case 194, 195, 197: L2 = Chr(199)


Case Else:   L2 = L2

End Select


NewStr = L2 & L1



ForTrAlfbet = NewStr


End Function


'  Asc(" آ ") =

'194

'  Asc(" أ ") =

'195

'  Asc(" إ ") =

'197

'  Asc(" ا ") =

'199

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

Private Sub First_Name_AfterUpdate()

    First_Name = ForTrAlfbet(Nz(First_Name))

End Sub

********

اقتباس للأخ / فينوس