الكود trim لا يعمل لدي في اكسس ٢٠١٠

[حكمت العراقي]

السلام عليكم

اعمل على اكسس ٢٠١٠

لا يعمل الكود trim ولا تظهر لي اي رسالة خطأ

هل هناك من يستطيع ان يعالج لي هذه المشكلة واكون شاكرا

مثال

Per_name= "   حكمت   سليمان   "

(Per_name=trim(Per_name

يكون الناتج 

نفس النص بدون حذف اي فراغ

علما ان الكود يعمل بصورة صحيحة في الاكسل

 

 

تم تعديل يناير 26, 2020 بواسطه حكمت العراقي

[Hamdi Edlbi-khalf]

السلام عليكم

ضع اسم الحقل بين قوسين منكسرين

[]

[محمد أبوعبدالله]

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

تفضل اخي الكريم الكود التالي

Private Sub Command4_Click()
Dim Per_name As String
Per_name = (" حكمت                  سليمان       ")
Per_name = TrimAll(Per_name, "  ")

       MsgBox Per_name


End Sub


Function TrimAll(thisString As String, thisSeparator As String) As String
   Dim sepPosition As Integer, lastPosition As Integer
   Dim j As Integer, i As Integer, s As Integer, trimmed As String
   s = 1: j = 1: trimmed = ""
  Do
    sepPosition = InStr(j, thisString, thisSeparator)
    If sepPosition = 0 Then
       lastPosition = j
       j = sepPosition + 1
    Else
       j = sepPosition + 1
       trimmed = trimmed + Mid$(thisString, s, sepPosition - s)
       s = j
    End If
  Loop While j <> 1
  TrimAll = trimmed & Mid$(thisString, lastPosition, 100)
  End Function

تحياتي

[حكمت العراقي]

الاخ Khalf اشكرك على الاهتمام بطلبي ومحاولتك المساعدة 

ولكن علامات الاقتباس لم تنفع علما ان ان Per_Name هو اسم حقل في نموذج ووضعت الكود Trim في الحدث بعد التحديث

ومازال لا يعمل

تم تعديل فبراير 5, 2020 بواسطه حكمت العراقي
خطأ املائي

[حكمت العراقي]

الاخ محمد ابوعبد الله اشكرك جدا على الاهتمام و المساعدة 

وتقدمك الحل البديل. ولكن!

هل يمكن معرفة سبب ذلك ومعالجته دون عمل Function ؟

بعد لصق الصورة علمت ان الكود TrimALL هو function 

فلم اعرف كيفية حذفها

 

 

لدي استفهام الاتي في الكود التالي

 

                                                       if sepPosition = 0 Then

                                                          lastPosition = j

                                                    j = sepPosition + 1

                                                                                   Else

                                                    j = sepPosition + 1

       trimmed = trimmed + Mid$(thisString, s, sepPosition - s)

                                                                          s = j

                                                                                End If

 

اذا كان   ضمن الشرط

If sepPosition = 0 Then

اذن دائما   sepPosition=0

لماذا نكتب

j = sepPosition + 1

فقط استبدلته ب    j=1

ولقد كان الحل رائعا جدا

هل يمكن ان استغل امكانيتك فاطلب كود كيفية ارسال PDF من قاعدة البيانات عبر واتس اب او تلكرام  اذا كان مسار ال PDF واسم الملف معروف او ثابت

 

تم تعديل فبراير 5, 2020 بواسطه حكمت العراقي