كيفية فك هذه المعادلة ؟ في ملف صمم لبرنامج أكسس ؟

السلام عليكم ورحمة الله وبركاته

اخي الفاضل اسماعيل تحية طيبة وبعد

الدالية التالية يمكن استخدامها في تجزئة الجمل يمكن استخدامها هنا بوضع الفاصل من الكلمات التي ترغب فصلها

Function SubString2003(strText As String, Optional Position As Integer = 0, Optional CommaType As String = ";") As String
Dim X() As String, LocaPosition As Integer
If InStr(strText, ";") = 0 Then Position = 1
LocaPosition = 1
X() = Split(strText, CommaType)
For Each y In X()
If Position <> 0 Then
If LocaPosition = Position Then
SubString2003 = y: Exit Function
Else
LocaPosition = LocaPosition + 1
End If
Else
SubString2003 = SubString2003 & y & vbCr
End If
Next
End Function

أرجو ان تفيدك فيما تطلب وبالله التوفيق

أولاً جزاك الله ألف خير لكن لو إنك كملت جميلك وفكيت بس شخص واحد من الموجودين وبعدها أطبق أنا على الباقي وإن شاء الله لك الأجر والثواب وفي ميزان حسناتك إن شاء الله .