Jump to content
أوفيسنا

biskra

07 Honore Guests
  • Content Count

    127
  • Joined

  • Last visited

Community Reputation

23 Excellent

About biskra

Profile Information

  • Gender (Ar)
    ذكر
  • Job Title
    ùhgf
  • Location
    الجزائر

Recent Profile Visitors

437 profile views
  1. يظهر أن الكود ناجح و يؤدي المطلوب، حسب رأيي ينقصه فقط حذف المسافات وسط النص فقط ليحل مشاكل الفراغات اينما وجدت.
  2. أدخل على الجدول في وضعية التصميم و غير خاصية الحقل الى نصي قصير،
  3. رسالة الخطأ صحيحة لأن خصائص الحقل هي رقم و بالتالي حال إدخال نص فيه فلن يقبله، هل تريد إدخال نص في هذا الحقل؟
  4. بناء على بحث في هذه النقطة و في موقع فرنسي كانت النتيجة التالية تقليل المسافات في السلسلة تم النشر في 13 آب (أغسطس) 2012 خاصة بعد استيراد البيانات ، ينتهي بنا الأمر أحيانًا بمسافات متعددة بين الكلمات. هذه وظيفة تزيل بشكل فعال هذه المسافات المتعددة في واحدة. الوظيفة في VBA Public Function ReduireEspaces(ByVal Chaine As String) As String Const DoubleEspace As String = " " Const Espace As String = " " While InStr(1, Chaine, DoubleEspace, vbBinaryCompare) > 0 Chaine = Replace(Chaine, DoubleEspace, Espace, , , vbBinaryCompare) Wend ReduireEspaces = Chaine End Fun
  5. المثال الرمرفق هو عمل قام به العضو Ashfaque من الهند و محتواه يخص تحويل الأرقام إلى حروف و قمت بتجربته اللحظة و أضعه ربما يستفيد منه الأعضاء خاصة في مجال المحاسبة و الفوترة، الرجاء إن أعجبكم الدعاء لصاحب المجهود و فقط NumberToArabicWord.rar
  6. حسب علمي لا ينصح بذلك، على كل جرب الملف على جهاز آخر ربما تلاحظ الفرق
  7. أوفيس 2013 دون أي مشكل هل الأوفيس 2013 منصب مع 2016 على نفس الجهاز؟
  8. يعمل عادي لم ألاحظ وجود تقريرين عند فتح التقرير من النموذج
  9. أخي الكريم أولا معذرة عن الكود و ما سببه له لك من خلط، الملاحظ من النص أن المسافات التي أزعجتك بعد تنفيذ كود الأخ جعفر، في الحقيقة هي صحيحة لأنك لو سحبت المسافة بين بداية السطر يدويا بعد تنفيذ الكود سوف تلاحط أن الكلمة سوف تلتصق بما قبلها، و لاحظت كذلك أن تنسيق النص يأخذ مسافة واحدة في سطر جديد بعد نهاية الفقرة السابقة بنقطة ربما هذا مرجعه الى تحرير النص أساس بالوورد، و لاحظ كذلك أن النص عند نهاية السطر بفاصلة فإنه لا يأخذ أي مسافة فارغة من بداية السطر،و على كل جرب طباعة الحقل بعد تنفيذ الكود و سوف تتضح لك الأمور، {214} {{217}} عن طلق بن حبيب، عن أَنس بن مالك، قال: قال رس
  10. بواسطة استعلام مثل الذي قدمه الأستاذ جعفر قم بنسخة و عدله بالتالي و جرب UPDATE مسند SET مسند.nass = Replace(nass," ","");
  11. راجع الموضوع التالي أين تمت مناقشة طلبك رابط الموضوع
×
×
  • Create New...