حل مشكلة الهمزة فى أول الكلمة

موضوع منقول من المنتدي القديم

الكاتب : فينوس

تجاهل همزة الألف ( فكرة جديدة )

مرحباً .

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

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

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



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

Code:

Private Sub First_Name_AfterUpdate()
    First_Name = ForTrAlfbet(Nz(First_Name))
End Sub

.. أرجو أن اكون قد أفدت و لكم التحية