Foksh

لا يليق بمنتدانا إلا الحصريات أستاذنا @ابوخليل 🤗 أشكر لك مرورك وتقييمك 🥰

هل جربت الحل أولاً ؟؟ استخدام الدالة Dlookup يحتاج تأثير أو عنصر يستدعيها مثل زر أو أثناء تحميل النموذج . بينما في الحالي ليس هناك حدث . أتمنى أكون قدرت أوصل فكرتي بشكل واضح حتى لا تذهب الأفكار بعيداً ، ما قصدته أن حدث ( في الحالي ) يتم تنفيذه عندما يتم تغيير السجل الحالي أو عند تحديد سجل جديد ، بينما يتم تنفيذ حدث ( عند التحميل ) عند بدء تحميل النموذج أو الاستعلام

من وجهة نظري ، ما لم تقم بحفظ الملف بصيغة ACCDE فأن الكود من 64 يعمل على 32 .

جرب الحدث عند التحميل أخي الكريم ، وليس عند الفتح أو الحالي

أشكرك أخي @gamal gamal على ذوقك .. يسعدني مروروك العطر

ارسل المرفق حتى نعرف اين المشكلة يا اخي الكريم ,,,,

مع الإستعلام لا يمكنك دمج الباسوورد اثناء تنفيذ الاستعلام ..

هل جربت هذه الفكرة 🤔 Dim db As DAO.Database Dim strSQL As String Set db = OpenDatabase("D:\System\zx\Database.accdb", False, False, ";PWD=YourPassword") strSQL = "DELETE * FROM tbe" db.Execute strSQL db.Close

تفضل اخي الكريم هذا الكود كإقتراح Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Me.TextBox.Visible = True Then Me.TextBox.Visible = False Else Me.TextBox.Visible = True End if End Sub

شكراً لمروركم العطر أخونا @abouelhassan

جزاك الله كل الخير أستاذنا @Moosak ، وأسأل الله أن ينفعنا وإياكم بعلمه الذي علمنا . أتمنى أن تكون سابقة كبداية للفكرة مع أمل تطوير أدائها بشكل أفضل . الحجم لا يؤثر على أداء الهاتف أبداً ؛ مساحة النسخة بعد فك الضغط عنها وتثبيتها تقريباً 4.5 جيجا . وجاري العمل على تقليل حجم النسخة بإزالة التطبيقات الغير ضرورية من النسخة في التعديل الجديد ؛ طبعاً دون التأثير على استقرار نسخة الويندوز .

تفضل أخي هذا الكود لجميع أزرار الـ F في الكيبورد ، ولكن يجب التنبيه الى تعديل قيمة Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) On Error Resume Next Select Case KeyCode Case vbKeyF1 KeyCode = 0 MsgBox "You Press F1", , "" Case vbKeyF2 KeyCode = 0 MsgBox "You Press F2", , "" Case vbKeyF3 KeyCode = 0 MsgBox "You Press F3", , "" Case vbKeyF4 KeyCode = 0 MsgBox "You Press F4", , "" Case vbKeyF5 KeyCode = 0 MsgBox "You Press F5", , "" Case vbKeyF6 KeyCode = 0 MsgBox "You Press F6", , "" Case vbKeyF7 KeyCode = 0 MsgBox "You Press F7", , "" Case vbKeyF8 KeyCode = 0 MsgBox "You Press F8", , "" Case vbKeyF9 KeyCode = 0 MsgBox "You Press F9", , "" Case vbKeyF10 KeyCode = 0 MsgBox "You Press F10", , "" Case vbKeyF11 KeyCode = 0 MsgBox "You Press F11", , "" Case vbKeyF12 KeyCode = 0 MsgBox "You Press F12", , "" End Select End Sub Keys.accdb

السلام عليكم ورحمة الله وبركاته ، أخواني وأساتذتي ومعلمينا ( دون استثناء ) كثيراً منا حاول تشغيل تطبيقات ومشاريع آكسيس على الجوال ؛ ولكن دون نتيجة حقيقية أو فعالة . اليوم وبعد تجربة شخصية لتشغيل برامج آكسيس على الجوال بكل بساطة . دون مقدمات طويلة وعريضة لمبدأ بالمطلوب والأساسيات لتنفيذ هذه الفكرة . البرامج المطلوبة :- برنامج Limbo-x86 ؛ وهو البرنامج الوسيط لإنشاء جهاز كمبيوتر على الجوال . ويتم تثبيته على الجوال . ( APK ) نسخة Windows7 تم تثبيتها على الهاتف من نوع Huawei Y9s بمواصفات عادية ( ! ) . وتم تفعيل اللغة العربية بشكل كامل . ولم يتم حذف أي من مكوناتها . أيضاُ تم تثبيت نسخة أوفيس 2010 كاملة . ( QCOW2 ) برنامج ISO Craft-1.6 ، وسيتم ذكر وظيفته لاحقاً . أيضاً يتم تثبيته على الجوال ( APK ) طريقة العمل :- بعد نسخ الملفات التي تم تحميلها . يتم تثبيت التطبيق الأول Limbo-x86 وفتحه . لا بد من ضبطه بشكل بسيط كالآتي :- من النقاط الثلاثة أقصى اليمين نختار Settings . ثم نفعل الصلاحية للوصول لمدير الملفات ، وكذلك الأمر بالنسبة للـ Orientation نجعلها تساوي Landscape . كما في الصورة . ثم ننزل لأسفل عند الجزء Advanced ومنها الخيار High Priority نقوم بتفعيلها . ثم رجوع لواجهة البرنامج . الآن سنقوم بإنشاء جهاز كمبيوتر وهمي من خلال المثلث الصغير None ثم New ، ثم اكتب أي اسم تريده ( مثلاً Win7 ) . الآن سنقوم بضبط بعض الأمور ليعمل الجهاز الوهمي بأقل المواصفات ( حسب مواصفات الجوال ) . بالصور في الصورة التالية ، تستطيع تجربة أي الخيارات أفضل لك حسب نوع ومواصفات جهازك للتوضيح في هذا الجزء المهم . Machine Type & CPU Model & Enable MTTCG يجب تحديدهم كما هم بالصورة ( بعد عدة تجارب طبعاً ) الآن سنقوم بتحديد مسار نسخة الويندوز التي تم تحميلها ونسخها إلى ذاكرة الهاتف في Hard Disk A الآن بعد إتمام الإعدادات المطلوبة ، وقمنا بتشغيل الكمبيوتر الوهمي الذي تم إنشاءه . هذا الفيديو توضيحي للنسخة المرفقة في الروابط . طبعاً إجابةً لعدة استفسارات سيتم السؤال عنها وهي ( بطئ النسخة ، حجم الشاشة هل ستساعد ، الفكرة غير ناجحة لأسباب أخرى ما السبب ؟ .... ) كلها تعتمد على أن كرت الشاشة في التجربة هو السبب لأنه كرت شاشة وهمي ويعتمد على الذاكرة العشوائية للجوال . فعند تجربتي على جوالي الـ Huawei Y9s استغرق التشغيل والإقلاع الكامل تقريباً 6 دقائق ، بينما على جوال Samsung Note +10 استغرق التشغيل والإقلاع تقريباً 3 دقائق . ( ليست دعاية أو تسويق لأي منتج أو شركة ؛ وإنما توضيح للتجربة أين تم تطبيقها ) الآن نأتي لبرنامج ISO Craft-1.6 وما هي وظيفته وحاجته ؛ هذا البرنامج يستخدم لإنشاء ملفات الـ ISO على الجوال لإستخدامها كمحرك أقراص CD داخل البرنامج ونسخة الويندوز التي تم انشائها . وكتوضيح ؛ بما أن الويندوز الذي تم تشغيله مستقل بذاته عن الهاردوير ( القطع ) في الجوال فسنحتاج الى محرك أقراص وهمي ، وسيتم اختياره من هذا الخيار في البرنامج الرئيسي Limbo . أشكر لكم سعة صدركم إن كان الموضوع طويلاً . وإن فاتني نقطة لم ألتفت لها أرجو التنبيه بالتعليقات والمشاركات وسيتم العمل على التوسع في الفكرة بحيث تشمل الفكرة التطبيق على نسخة Windows 10 و أيضاً نسخة Windows XP

تفضل أخي الكريم .. مشاركة مع الأستاذ @محمد احمد لطفى INSERT INTO tbmor ( [or] ) SELECT tbmr.mr & tbmo.mo AS [or] FROM tbmr, tbmo ORDER BY tbmr.mr & tbmo.mo; mor.accdb

اخي الكريم @Heima آخر مشاركة مضى عليها 3 سنوات في هذا الموضوع ، أنصحك بفتح موضوع جديد إن لم يكن هذا الموضوع قد ساعدك في حل مشكلتك 🤗

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

بل هو أكيد 100% ودائماً ما يتم ربط موضوع دقة الشاشة مع موضوع الإرتساء في هذه المشكلة. عدل موضوع الإرتساء حسب موقع كل زر في النموذج ، بمعنى ان الازرار او العناصر التي في الاسفل جهة اليمين تأخذ ارتساء اسفل يمين .... وهكذا.

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

أخي @adly almansy ، وعليكم السلام ورحمة الله وبركاته ، بما أنك عضو جديد في مجتمعنا ؛ فأهلاً وسهلاً بك .. أود تنبيهك إلى ضرورة اختيار العنوان المناسب لموضوعك ومشكلتك . فالعنوان الصحيح يساعدك ويساعد الآخرين على ايجاد / سهولة الحل .

اخي الكريم حاول استخدام إشارة <> من محر الرد أو المشاركات في المنتدى لوضع الكود فيه ليظهر بشكل سليم ويسهل قراءته . في الجملة التي كتبتها يجب أن يكون لديك ثلاثة معاملات ( الشرط ، القيمة التي ترجع إذا كان الشرط صحيحاً ، والقيمة التي ترجع إذا كان الشرط خاطئاً ) جرب التعديل وأخبرني بالنتيجة IIf([magmoa_nesf]=0, "غ", [magmoa_nesf]/800*100/100)

اخي الكريم اسعد الله أوقاتك .. ما هو اصدار الأوفيس على الحاسبة التي في العيادة ؟؟ هل هي 64 أم 32 ( نفس اصدار حاسبتك التي صممت البرنامج عليها ) ؟؟ اذا قمت بتحويل القاعدة الى ACCDE فقد لا تتمكن من التعديل عليها لاحقاً .. بالنسبة لي على جهازي نسخة أوفيس 64 والملف يعمل بشكل سليم عندي .

من وجهة نظري أعتقد نعم يمكن اعتباره فريمويرك . ومن البدائل عندك C# و الـ Java Script أيضاً..

إذا أردت تجربة ايقاف السطر Option Explicit الموجود في بداية الأكواد . وللأسف لدي قاعدة بيانات SQL Server ..

ومشاركة مع الأستاذ خليفة ، الملف بعد التعديل يعمل على النسختين 32 و 64 الجزء الخامس (2).accdb