biskra

بناء على بحث في هذه النقطة و في موقع فرنسي كانت النتيجة التالية تقليل المسافات في السلسلة تم النشر في 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 Function مع كل تمريرة للحلقة ، يتم تقليل المسافة المزدوجة إلى واحد. على سبيل المثال ، لتقليل 3 مسافات متجاورة إلى واحدة ، يتم تنفيذ الحلقة مرتين. في الحلقة الأولى ، يُنظر إلى 3 مسافات متجاورة على أنها مسافتان + مسافة واحدة ، ومن ثم يتم تقليل المساحة إلى مسافة واحدة + مسافة واحدة. ثم تجد الحلقة الثانية مسافتين متجاورتين يتم تقليلهما بعد ذلك إلى مسافتين. للتذكير ، نزيل المسافات في بداية السلسلة باستخدام الدالة LTrim () ، والمسافات الموجودة في نهاية السلسلة بواسطة RTrim () والكل بواسطة Trim () (أو LTrim $ ، RTrim $ ، Trim $ لسلسلة من نوع String). مثال على الاستخدام في نافذة Run VBE: 'Attendu: Un espace sinon rien! ?ReduireEspaces("Un espace sinon rien!") و المثال الذي قمت رفعه أعلاه قمت بتجربته و أضفت العديد من المسافات بين الكلمات و بعد تنفيذ الاستعلام نجح في إرجاع المسافات الى موقعها العادي دون أن يتأثر التنسيق أو ينقص من الجملة أو الكلمة ربما يمكن إضافة هذه الخاصية الى الكود الذي قمت بتصميمه.

المثال الرمرفق هو عمل قام به العضو Ashfaque من الهند و محتواه يخص تحويل الأرقام إلى حروف و قمت بتجربته اللحظة و أضعه ربما يستفيد منه الأعضاء خاصة في مجال المحاسبة و الفوترة، الرجاء إن أعجبكم الدعاء لصاحب المجهود و فقط NumberToArabicWord.rar

لن تخسر شيئا ان جربت،

حسب علمي لا ينصح بذلك، على كل جرب الملف على جهاز آخر ربما تلاحظ الفرق

أوفيس 2013 دون أي مشكل هل الأوفيس 2013 منصب مع 2016 على نفس الجهاز؟

يعمل عادي لم ألاحظ وجود تقريرين عند فتح التقرير من النموذج

أخي الكريم أولا معذرة عن الكود و ما سببه له لك من خلط، الملاحظ من النص أن المسافات التي أزعجتك بعد تنفيذ كود الأخ جعفر، في الحقيقة هي صحيحة لأنك لو سحبت المسافة بين بداية السطر يدويا بعد تنفيذ الكود سوف تلاحط أن الكلمة سوف تلتصق بما قبلها، و لاحظت كذلك أن تنسيق النص يأخذ مسافة واحدة في سطر جديد بعد نهاية الفقرة السابقة بنقطة ربما هذا مرجعه الى تحرير النص أساس بالوورد، و لاحظ كذلك أن النص عند نهاية السطر بفاصلة فإنه لا يأخذ أي مسافة فارغة من بداية السطر،و على كل جرب طباعة الحقل بعد تنفيذ الكود و سوف تتضح لك الأمور، {214} {{217}} عن طلق بن حبيب، عن أَنس بن مالك، قال: قال رسول الله صَلى الله عَليه وسَلم: «ثلاث من كن فيه وجد بهن حلاوة الإيمان وطعمه: أن يكون الله، عز وجل، ورسوله أحب إليه مما سواهما، وأن يحب في الله، وأن يبغض في الله، وأن توقد نار عظيمة فيقع فيها، أحب إليه من أن يشرك بالله شيئا». أخرجه أحمد 3/ 207 (13184) و3/ 278 (14005) قال: حدثنا روح، قال: حدثنا شعبة. و «النَّسَائي» 8/ 94 قال: أخبرنا إسحاق بن إبراهيم، قال: أنبأنا جرير. كلاهما (شعبة، وجرير بن عبد الحميد) عن منصور بن المعتمر، عن طلق بن حبيب، فذكره. في الملف المرفق تجد تجربة أخرى لكود حذف المسافات في أي مكان دون التأثير على النص، جرب إضافة مسافات في مكان من النص في جميع السجلات ثم نفد الاستعلام و سوف ترى النتيجة، الكود لا يزيل السطر الفارغ. أسطر2(ReduireEspaces).rar

بواسطة استعلام مثل الذي قدمه الأستاذ جعفر قم بنسخة و عدله بالتالي و جرب UPDATE مسند SET مسند.nass = Replace(nass," ","");

راجع الموضوع التالي أين تمت مناقشة طلبك رابط الموضوع

Private Sub Id_Click() DoCmd.OpenForm "InvoiceSales" Dim s s = Me.Id DoCmd.GoToControl "Idinv" [Forms]![invoiceSales]![IdInv] = s End Sub جرب الكود التالي

قصدك البحث بمعيار أو أكثر، في المثال المرفق سوف تجد ما تبحث عنه، DatasheetLikeFilter 2(1).zip

يظهر أن ئؤالك غير واضح أخي الكريم، حسب الملف الذي أرفقته، لو استبدلت الكود الموجود في الملف DoCmd.OpenForm "InvoiceSales", , , "[IdInv]=" & Me.Id بالكود المقترح أعلاه سوف يفتح لك الفورم الذي ذكرته في طلبك DoCmd.OpenForm "InvoiceSales", , , "[id]=" & Me.Id إلا إذا كان ما تريده شيئا آخر

جرب نفس قاعدة البيانات على جهاز آخر للتأكد من المشكلة، هل هي بسبب القاعدة نفسها أم لسبب آخر

الكود يحتاج الى تهديل ليتوافق مع ما تطلبه Private Declare Function ActivateKeyboardLayout Lib _ "user32.dll" (ByVal myLanguage As Long, Flag As Boolean) As Long 'define your desired keyboardlanguage 'find your desired language at [URL="http://www.trigeminal.com/frmrpt2dap.asp"][COLOR=#000088]http://www.trigeminal.com/frmrpt2dap.asp[/COLOR][/URL] Private Const MKD = 1071 'macedonian keyboard language layout Private Const eng = 1033 'english(united states)keyboard language layout Private Sub A_Enter() Call ActivateKeyboardLayout(MKD, 0) End Sub Private Sub A_Exit(Cancel As Integer) Call ActivateKeyboardLayout(eng, 0) End Sub

في خصائص الحقل في وضعية التصميم اختر اللغة الانجليزية،

برنامج آخر من يقوم بنفس العملية ميزته أنه يمكنك من خلال جدول أكسس يلخص لك الأكواد و الإرتباطات لهذه الأكواد، و هذا من غير الدخول على قاعدة البيانات في وضعية التصميم، مثلا تجد زر معين يعطيك الجدول الأكواد المرتبطة بهذا الزر مما يسهل عملية التدقيق في قاعدة البيانات، على كل جربوه فلن تخسروا شيئا RefLog.Zip

في الملف المرفق تجدون برنامج أعجبني كثيرا جربوه لن تخسروا شيئا، يحلل كل محتويات قاعدة البيانات و في النهاية تجد ملخص لقاعدة البيانات يمكن أن يكون وسيلة عمل للتعامل مع قاعدة البيانات الشرح المفصل تجدونه في الموقع التالي أضغط هنا لزيارة الموقع Analyzer_2K_081113_16_9p__MDE_PPS_DOC_TXT.zip

user 1234

في المثال المرفق سوف تجد كيف تطبع التقرير بأكثر من معيار RptSampl.rar

جرب الكود بعد التعديل DoCmd.RunSQL "ALTER TABLE Table1 ALTER COLUMN mobile Double" Format (123456789, "##-##-#####") لكن هذا الكود لن يعمل معك لأنه سوف يعطيك نتيجة مغايرة، قم بتجربة بسيطة في جدول في حقل رقم Format الهاتف مثلا و لاحظ ما الذي يحدث عند استعمال الطريقة التي تريدها. و هذا ما قصده الأستاذ أبو خليل

هذا الكود خاص بالأكسل و الخطأ رقم 424 عندما تبحث عن سببه تجد مرجعيته للأكسل. لكن الأمر المحير في الملف هو أنه بالصدفة عند الضغط على زر الترجمة مرتين يظهر الخطأ و لكن في نفس الوقت يقوم بالترجمة و يفتح صفحة الويب ربما بداية الحل من هنا الضغط مرتين أقصد به double click جرب و لاحظ النتيجة

جرب الكود التالي في حدث قبل التحديث Cancel = chkIfExists() If Cancel Then Me.Undo Call showDuplicate End If تواجهني مشكلة اللغة كوني أستعمل الأوفيس فرنسي لم أستطع التعديل كما هو مطلوب على كل الفنكشيون أضعه للإخوة للتعديل عليه بما يفي الغرض Private Function showDuplicate() With Me.RecordsetClone .FindFirst _ "[probation officer name]='" & mstrOfficer & "' and " & _ "[date of work]=#" & format(mdteDateOfWork, "mm\/dd\/yyyy") & "#" Me.Bookmark = .Bookmark End With End Function

Uncheck "Windows In Taskbar" on the general tab (Tools > Options)

من هذا الرابط ربما تجد الحل Creating a Report Programmatically