ابوخليل

يحتمل انه تم الفرز على العمود الآخر خارج الجدول ثم تم اللصق لان الصف بجميع حقوله وحدة واحدة لا تتجزأ فلو تم فرز كل عمود لوحده لتلخبطت البيانات مثلا : لنفرض ان الانثى في عمود يقابلها في الصف نفسه في العمود الآخر زوجها ، فما الذي سيحدث لو تم فرز كل عمود لوحده

وهذا حل بدالة أخرى Private Sub No_AfterUpdate() Dim x As Integer x = No For x = x To 20 No = x DoCmd.GoToRecord , , acNext No = No + 1 Next End Sub

السبب في عدم امكانية تطبيق الفرز على العمودين هو انهما يشتركان في صف واحد ولعل هناك طرق شتى لتحقيق المراد فيتحفنا بها احبابنا واخواننا في هذا المنتدى ولكني سأعرض الطريقة التي توصلت اليها وهي اننا ننشء عمودين في الصفحة الواحدة ثم نقسم الجدول الى شطرين ونضع كل شطر في عمود ويشترط في هذه المحاولة ان يكون التطبيق على صفحة واحدة فقط الرقم.rar

كيف يتم رفع المرفقات http://www.officena.net/ib/index.php?showtopic=31250

هذه سياسة أكسس ، حيث ان الحركة هذه مقصودة ، فقد تكون مفيدة أمنياً وقد رأيت محاولات ناجحة لاستخدام هذه الارقام مرة اخرى بعد حذفها وعلى كل حال هناك عدة طرق يمكن من خلالها عمل ترقيم تلقائي مصنوع مثل هذه العبارة البرمجية : Me.ID=Dmax("ID","table")+1 وفي هذه الطريقة يمكنك استخدام الرقم المحذوف بكتابته يدويا

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

أسأل الله الكريم رب العرش العظيم أن يشفيه ويعافيه ومرضى المسلمين اجمعين

المثال الاخير ما يعطي صورة عن السؤال وعلى كل حال وحسب ما فهمت من سؤالك : اذا كان الافراد المجازين يظهرون في الفورم ضمن التحضير اليومي وتريد ان لا يظهروا فيلزم انشاء حقل في الجدول ( مجاز / لا ) ويكون المعيار في الاستعلام الذي هو مصدر النموذج يكون المعيار منع ظهور المجاز ( <> مجاز) اما انك تريدهم يظهرون وتريد ان تسجل لهم الحالة = مجاز مثلا آليا بدون تدخل منك فأيضا لا بد من اشارة تكون موجودة في حقل ضمن السجل حتى يمكن لاكسس التفريق بينهم

انظر هنا http://www.officena.net/ib/index.php?showtopic=31139#entry157297 اعتقد هو ما تبحث عنه

تفضل db2.rar

تم التعديل واليك بعض التوجيهات العامة 1- ينصح دوما بوضع مفاتيح للجداول او معرفات وحيدة غير قابلة للتكرار او كليهما 2- الافضل ان تكون اسماء الكائنات والعناصر بحروف انجليزية لما يترتب على ذلك من الفائدة عند كتابة العبارات والجمل البرمجية 3- تجنب وضع مسافات خالية بين الاسماء ويمكنك التعويض عن ذلك بوضع علامة تحت السطر بين الكلمتين test.rar

لطباعة الصور لا بد ان يتم فتحها منفصلة عن قاعدة البيانات بعارض الصور مثلا ثم يتم طباعتها كأي مستند

نبدأ من الآخر مساحة الملف كبيرة لانه يحتوي على صور مضمنة ( ضع دوما الصور خارج قاعدة البيانات ومرتبطة بها ، ولا تضمنها داخل القاعدة ) وهذا السطر لمعاينة التقرير ضعه في حدث النقر للزر DoCmd.OpenReport "اسم التقرير", acPreview وهذا للطباعة المباشرة DoCmd.OpenReport "اسم التقرير", acNormal ملحوظة : لا تطلب في المشاركة اكثر من طلب او سؤال واحد وانما خصص لكل سؤال مشاركة جديدة

السلام عليكم وحسب الصورة المرفقة المطلوب ادراج 10 مليون رقم آليا

افكارك جميلة وقد استفدت من هذه الفكرة وادرجتها ضمن برنامج اقوم حاليا بالتعديل عليه تم عمل المطلوب بالاستعانة بخانة الاختيار الموجودة في الجدول ملحوظة : قمت بالتعديل على بعض المسميات مثل Name و Date لان هذه المسميات محجوزة في اكسس وللطلاع اكثر انظر هنا https://www.google.com/url?q=http://www.officena.net/ib/%3Fshowtopic%3D39164&sa=U&ei=FndvUp_GAdOe7AbyhIHIBw&ved=0CAcQFjAA&client=internal-uds-cse&usg=AFQjCNEfZVlBCmixMQd_sPfjf4BDxj05dw تعديل 3 على الكود.rar

أستاذي أبا خليل هل بالإمكان أن توضح مقصدك أكثر أحسن _الله_ إليك اقصد ان البرنامج و بعد التحويل الى EXE لن يعمل الا بوجود اكسس على جهاز المستخدم وهذا لا شك تحصيل حاصل

تفضل تعديل ب على الكود.rar

المرفق هو عبارة عن شيت اكسل وليس اكسس 2009.rar

السلام عليكم شكرا للااستاذ قنديل والشكر موصول ايضا للاستاذ alshamal وهذا اصدار جديد ولكنه لا ينفك عن أكسس فهو مرتبط به قد تكون فائدته اظهر في حماية التصميم DBtoEXE.zip

المرفق الاخير فقط وبقليل من التعديل تستطيع ان تضيف ما تشاء من الجداول الآن لا املك الوقت الكافي ولكني اعدك ان لم تتوصل للحل ان احقق لك طلبك

انت كمبرمج تفرض على العميل اوفيس معين وحين تشترط وجود الاوفيس الاحدث فأنت مواكب للتطوير وهذه المسألة لا ينتطح فيها عنزان

الموضوع مخالف لقواعد المشاركة لاشتماله على اكثر من طلب يغلق الموضوع لمصلحة السائل يمكنك فتح موضع جديد مع مراعاة القواعد الصحيحة للمشاركات

بالطبع فنحن في بيت الاوفيس وقد تكرم مشكورا اخونا طلعت محمد حسن وبعث لي برنامجا على اكسل اعتقد انه يفي بالغرض فجزاه الله عني وعن صاحب العمل خير الجزاء

اعتذر من عدم قدرتي على تلبية طلبك في الوقت الحالي والسبب كان عندي جهازا محمولا يشتمل على اوفيس 2010 انقل اليه احيانا بعض الامثلة للاطلاع عليها وبالامس جاء من يحمله بعيدا عني تقبل اعتذاري جزيت خيرا ،،، وقد وجدت لك شرح فيديو لطريقة تركيب هذا البرنامج وضمه الى برنامجك باستخدام اكسس 2010 للأستاذ القدير علي العتيبي فاليك الرابط http://www.m5zn.com/d/?14803867

الصق هذا الكود داخل محرر النموذج الفرعي Private Sub subaccount_AfterUpdate() Combo35 = subaccount.Column(2) End Sub _MSH-ACC.rar