الاخ محمد ابوعبد الله اشكرك جدا على الاهتمام و المساعدة
وتقدمك الحل البديل. ولكن!
هل يمكن معرفة سبب ذلك ومعالجته دون عمل 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 واسم الملف معروف او ثابت