رمهان

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

بعد اذن اخي جعفر جرب هذا السكريبت في استعلام جديد لفهم اكثر للجملة select top 1 * from nregistration where v='3' and gender='male' union select top 1 * from nregistration where v='3' and gender='female' هذا يسمى استعلام توحيد وهو دمج نتائج استعلامات بكلمة union . هذا الاستعلام ليس له عرض تصميم وانما عرض سكريبت وبهذا اضف هذا السطر في نهاية كود الدالة result وبعد نهاية الجملة الشرطية الاخيرة ليصبح شكل نهاية الكود MsgBox "see your subforms first" Me.child6.Form.RecordSource = task1 & " union " & task2 Me.child6.Requery End Function هنا تظهر رسالة لترى شغلك القديم ثم التاثير الجديد وتم تطبيقه على النموذج الثاني وبالطبع يمكن ان تطبقه على نموذج جديد لديك باتوفيق

مرحبا ابو عبدالله مشاركة مع الاستاذ شيفان النسخة 32 لن تعمل على 64 وطبعا العكس ارقهتني هذا المشكلة عندما نزل 2010 باصداريه في البداية تغلبت عليها بان يتم التحويل على جهاز العميل ومن الفلاش مباشرة حتى لا يكون نهائيا وجود للمصدر بجهاز العميل طورت الاسلوب وبحماية نوع الفلاش ووقعت في مشكلة عندما اسندت المهام لموظف . ومع مرور الوقت عملت برنامج على الفلاش مع الموظف يقوم بتلقي اوامر عن بعد وعلى النت بانشاء القاعدة والتحويل بااكواد اوبما يسمى on-fly الان لديك انه لابد من التحويل لدى العميل مادمت انت من سيحمل البرامج اتمنى ان افدتك وتقبلو تحياتي

الف مبروك اخي صالح ورزقت برها وصلاحها اللهم امين

فكرة رائعة كصاحبها ويقى فقط : 1. الحدود للنص واعتقد يمكن نحتاج الوسم td 2. التاكد ان المقاس لصفحة الويب هي مناسبة لمقياس الورق A4 تحياتي

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

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

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

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

الهدف اضافة السجلات اولا وبدون مرفقات . وكلامك صحيح وجميل باضافة الاضافة من الكود . تحياتي

جرب شوف مصدر النموذج كاستعلام ومقسم الى عناصر يمكن سحبها للنموذج بالتوفيق comm_input.rar

=-int(-num)

يبدو انك لم تفهم استفساري السابق دكتور اقصد هذا السطر ومن مرفق سابق لك 000085 GLU 400 mg/dl L ماهو رقم المريض والنتيجة واسم التحليل وانا شايف هنا انه يمكن هناك شي اضافي حيث ان السطر مجزأ لخمس اجزاء حسب المسافة بالتوفيق

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

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

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

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

تلاحظين ان النموذج الرئيسي لديك تم تغييره واصبح اسمه Sock order app اذهب الى الحدث on unload وانقري النقاط لفتح الماكرو الذي يحدث عند عندم التحميل وستجدينه يقوم بفتح النموذج القديم وهو غير موجود وعليك باستبداله باسم النموذج الجديد Sock order app بالتوفيق وماشاء الله عليك كنتي تلميذة شاطرة

السلام عليكم هناك كود قريب من فكرتي السابقة وبالرابط http://access.mvps.org/access/api/api0041.htm ولكن طلعت بفكرة اخرى لا اعلم جدواها وهي عبارة عن ان برنامجي لايعمل الا لوحده ! اي لايمكن ان يعمل مع نسخ اخرى من الاكسس وبكذا لن يقبل ان افتح اكثر من نسخة واصبح الكود بشكل سهل والى حد ما رمهاني وهو بوضعه في حدث عند التحميل للنموذج الرئيسي وطبعا سيكون اول اسطر الاكواد ان وجدت بنفس الحدث Private Sub Form_Load() If GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2").ExecQuery("SELECT * FROM Win32_Process where Name ='msaccess.exe'").Count > 1 Then MsgBox ("i can work alone"): DoCmd.Quit acQuitSaveAll End Sub هذا واتمنى ان حصلت الفائدة اخ سلمان واحبتي جميعا وهذا ويمكن تدوين ملاحظات او اقتراحات للنحسين تحياتي للجميع

صحيح وجميل استاذ محمد

تمام هل يوجد استفسار ؟

اخ سلمان اىن لدي اوفيس 2013 . وقمت بعمل اختصار على سطح المكتب لملف اكسس في المستندات وقمت بتصغير البرنامج وعند النقر مرة اخرى على الملف من سطح المكتب لفتحه لا يقوم بعمل نسخة ثانية وانما ينشط المفتوحة ولكن لفتح نسختين لابد من فتح الاكسس اولا ثم تحديد الملف بشكل صريح لفتحه وهنا يتم فعلا فتح اكثر من نسخة مارايك ؟ وياليت الاخوه يجربو انسخ لديهم مشكورين وسؤال مهم : هل البرنامج يعمل على شبكة ام على جهاز واحد ؟

شوف ياباشا اللي خطر في بالي الان نح نعرف ان الويندوز بيعطي معرف لكل برنامج يشتغل معاه فلو حظنا كويس في الاكسس حنقدر نصيده عن طريق العمليات اللي شغالة وهنا فيه حل ممكن وهو اذا انت وافقت على التالي انه لايمكن تشغيل اي ملف اكسس مادام برنامجك مفتوح وشغال ؟ اذا موافق اصبحت العملية سهلة وهي عباره عن عداد بيشيك على عدد ملفات الاكسس المفتوحة فلو حصل 2 مفتوحة بيغلق الكل ؟ ايه رايك تحياتي

اهاه سؤال جديد كليا ... ما ادري اخ سلمان كيف نحلها بالاكسس لكن نفكر ونحزر تحياتي

اول شي اذا فكرة البرقرس بار متقدمة وحتشوش عليك احذفيها وانا ساحبها من مشاركة لي هنا اما نموذج السبلاش سكرين اعمل نموذج من الصفر ومن الخيار تصميم نموذج ثم تعديل الخصائص التالية منبثق=نعم ازرار التنقل=لا محدد السجلات= لا توسيط تلقائي=نعم شكل الاطار= بدون وتعديل خصائص عادية زي لون الخلفية وغيره ثم انشاء زر للاغلاق وبماكرو وهناك حدث عند عدم التحميل وهوعبارة عن فتح النموذج الاساسي وهذا منطقي نريد عند اغلاق هذا النموذج يظهر النموذج الرئيسي بالتوفيق تتبعي خصائص النموذج ومن نافذة التنسيق ستجدين خيار الاطار = بدون وماهو اصدار الاكسس عندك؟ وهل هو انجليش ام عربي الواجهة ؟