harith77

أضف على الكود ما يجعله في البداية يبحث في جدول الأصناف فإن لم يجد فيه رقما مطابقا للرقم المدخل تخرج الرسالة التي تريدها ويقف الكود إلى هذا الحد ، وإن وجد فيه رقما مطابقا قام بتعبئة تفاصيل الصنف . وبإمكانك الاستفادة مما في الرابط التالي : http://arabteam.nicmat…

هذا مثال باستخدام دالتي Asc و Chr وإن لم أجد تعليمات باللغة العربية توضح المقصود منها : http://mypage.ayna.com/harith44/AscChr.zip انظر للاستعلام في هذا المثال ، وكذلك النموذج .

ولو شرحت المطلوب جيدا والغرض منه لربما وجدت بعض الحلول عند الإخوان ، لكن في الحقيقة صيغة السؤال أشعرتني شخصيا أن هنالك كود معين معروف خاص بهذا الموضوع ، وهو ما لا أعرفه أنا أيضا .

هل تأكدت من ترتيب المراجع ، بحيث يكون الترتيب كما هو في المثال .؟؟ ثم أكرر ما سبق من أنه لم يكن لي من دور في هذا الكود سوى بعض التعديلات . والكود أخذته من مثال للأخ أبو هادي في موضوع ربما فقد مع المواضيع التي فقدت ، لكن وصلة الملف هي (بعد إذن الأخ أبو هادي): h…

في الحقيقة لم يعمل . لذا حاول تنزيل المثال باسم انجليزي . أو أرسله على الإيميل ، لكن أخشى أن لا أتمكن من عمل شيء . harith77@hotmail.com

وبالنسبة للمثال الذي سبق إيراده فقط يحتاج إلى استبدال : Sort_Ins باسم الجدول أو الاستعلام . TID باسم الحقل المراد الترقيم فيه . تصحيح على الكود السابق : استبدل السطر MaxNum = DCount("name", "Sort_Ins") بالسطر MaxNum = rst.RecordCount لكن لا تنسى أن تضبط المرجع…

رابط آخر : http://arabteam.nicmatic.com/vb/showthread...=&threadid=3813

ما الحاجة لحقل الترقيم ؟ ولماذا لا تستخدم الترقيم في الاستعلام الوارد في الرابط أعلاه . ثم لو نزلت الملف لفهم المطلوب تماما ولن تعدم من الإخوة من يفيدك بالحل .

بين يدي ثلاثة كتب لكن لا أدري عن مدى جودتها في هذا الموضوع وإن كان حجم بعضها كبيرا : 1- أكسس 2000 مع تطبيقات فيجوال بيسك ، سوزان نوفاليس ، ترجمة د.خالد العامري 2- البرمجة في أكسس 2000 باستخدام VBA: د. باسل الخطيب > 3- أكسس 97 ، تأتليف دواين جيفورد ورفاقه ، إعد…

قد تستفيد من هذه الطريقة : http://mypage.ayna.com/harith44/AddTblFld.zip (انقر بالزر الأيمن واختر حفظ الهدف باسم) والكود هو : Dim MyDb As Database Dim MyTbl As TableDef Dim MyFld As Field Set MyDb = CurrentDb Set MyTbl = MyDb.TableDefs("TableName") ' استبدل Ta…

الأخ ib338 : أشكرك على هذه الإفادة ، وعلى الخط ، فهو حقا أقل عيوبا من خط Traditional Arabic الحالي، وإن كان يخيل لي أن الحالي أجمل . فجزاك الله خيرا . والسؤال المطروح حول الماكرو لا زال باقيا .

في الوصلة التالية فكرة ، لكن ربما تحتاج لتصحيح الكود : http://mypage.ayna.com/harith44/ReNum22.zip وأظن أنه يمكن أيضا استخدام استعلام تحديث ثم استعلام إلحاق عوضا عن هذه الطريقة بحيث يتم تحديث الرقم إذا كان مساويا للرقم الجديد أو أكبر منه بزيادة رقم واحد عليه ،…

إذا كنت تقصد تغيير الجدول مصدر السجل في النموذج بنقر الأزرار فاكتب في حدث عند نقر الزر : Me.RecordSource = "aaa" حيث aaa هو اسم الجدول . لكن ما الداعي لذلك ؟

لدي ملف وورد أستخدم فيه خط Traditional Arabic ، ومن المشاكل التي تواجهني فيه أنه يمد الهاء في التاريخ الهجري جدا (هـ) . ووجدت من الحلول استبدال الهاء والشرطة المنسقة بهذا الخط بهاء وشرطة منسقة بخط آخر ، مثلا خط DecoType Naskh فهو يجعلها قصيرة غير ممدودة . حاول…

هل مثل هذه الطريقة هي ما تقصده : http://mypage.ayna.com/harith44/Macros22.zip

حاولت ذلك لكن لم أستطع سوى الجزء السهل وهو الإخفاء مع إمكانية الإظهار بمربع الحوار خيارات ، في الوصلة التالية : http://mypage.ayna.com/harith44/HidAll22.zip ملاحظة : تم تعديل المثال في نفس الليلة بإضافة الاستعلامات والمثال مأخوذ من المثال الذي أورده الأستاذ أب…

يوجد مشكلة في الرابط

وفي الوصلة التالية مثال بسيط : http://mypage.ayna.com/harith44/Mokarrar2.zip

انظر الرابط التالي : http://arabteam.nicmatic.com/vb/showthread...%E1%D8%C7%E1%C8 والرابط التالي: http://arabteam.nicmatic.com/vb/showthread...%CA%D3%CC%ED%E1

أعتذر عن الشرح ففهمي للأكواد محدود جدا ، وليس لي في هذا الكود إلا بعض التعديلات الطفيفة .