انظروا لهذا الكود...
الذي يبحث في قاعدة البيانات مع تجاهل التشكيل
لكن ماهي المشكلة؟؟ أرجوا المساعدة في الحل !!!
Private Sub Command12_Click()
'
Dim g As Integer, b As Integer, AZ(1 To 3) As Variant, _
gWord As String, SQL As String
sq = InputBox("بحث عن كلمة في المصحف ", , "أدخل الكلمة")
AZ(1) = "*."
AZ(2) = "[َُِ]*"
AZ(3) = "*."
'
b = Trim(Len(sq)) + 1
'
For g = 1 To Trim(Len(sq))
If g <= 1 Then
gWord = AZ(1) & Mid(Trim(sq), g, 1)
ElseIf g < b Then
gWord = gWord & AZ(2) & Mid(Trim(sq), g, 1)
End If
Next g
gWord = gWord & AZ(3)
SQL = "SELECT * FROM [SORA] WHERE [Sora] RLIKE BINARY '" & gWord & "'"
Data1.RecordSource = SQL
Data1.Refresh
If Data1.Recordset.EOF And Data1.Recordset.BOF Then
MsgBox "عفوا لاتوجد كلمة بهذا الشرط", , "خطأ في البحث"
End If
End Subالكود 100% لن البرنا مج يعطيني خطأ :wacko: أرجوا منكم المساعدة في حل هذا اللغز
ما هو الحل؟؟؟
