Foksh

جزاك الله كل الخير أستاذنا @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

أخي الكريم أسعد الله مسائك ، بداية في موضوع الحماية هناك نقاط كثيرة غابت عنك أثناء التفكير في حماية مشروعك وبياناتك من النسخ والنقل ....الخ . أولاً :- قد تكون قد اختلفت لديك اعدادات الـ Macro و إعدادات الـ ActiveX في جهازك عن تلك التي في جهاز العميل . هذه الإعدادات بالنسبة لي أفعلها بشكل يدوي عند تثبيت النسخة النهائية لأي مشروع عند العميل. ثانيا :- استكمالاً للحماية انا تمكنت من الدخول الى وضع التصميم دون الحاجة الى الباسوورد وأيضاً استيراد جميع الكائنات في المشروع الى ملف أكسيس آخر وذلك لعدة أسباب . منها أنك لم تقم بحماية محرر الأكواد الـ VBA بكلمة مرور وهو بدوره سيمنع وضع التصميم . أيضاً لحماية قاعدة البيانات لديك يجب أن يكون الملف النهائي بصيغة ACCDE ( وأعلم جيداً أنك قد تعلم هذه النقاط وإنما للتذكير ) . أيضاً موضوع حماية قاعدة البيانات 123 كمثال فكرة لا أتطرق لها إلا في قاعدة بيانات الجداول فقط . بالنسبة للنقطة الثالثة فأعتقد انها مربوطة بالنقطة الأولى . وفي النهاية ملفك فتح معي بشكل طبيعي دون أي أخطاء

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

لم لا تتجه الى اتجاه آخر ، وهو عندما يكون التقرير فارغ من البيانات فتظهر رسالة انه لا توجد بيانات لعرضها ،،

مشاركة مع الأستاذ @محمد احمد لطفى .. اخي الكريم الأخطاء بسيطة ، فمثلاً الأمر Exit Sub يجب وضعها قبل اغلاق الجملة الشرطية لا بعدها ، ثم جملة فتح النموذج غير صحيحة والصحيح يصبح كالآتي :- If Me.aa = 1 Then GoTo oo Else MsgBox "يجب كتابة رقم صحيح" Exit Sub End If oo: DoCmd.OpenForm "bb" End Sub لاحظ الفروقات لتتضح الصورة عندك 😊

بارك الله فيك أخي وصديقي @الحلبي ، ده من زوء حضرتك يا دكتور

رابط الموقع الرسمي

اخي الكريم الفرز حاجة بسيطة لو كانت المعطيات واضحة ، يعني الفرز على أي أساس 😅 أو على أي حقل سيتم الفرز ؟؟؟ وارفق مثال ليتم النطبيق عليه 😊

ولا يهمك أخي @سامي الحداد ، علمت ذلك ، وأعلم أنها لم تفُتك هذه النقطة . وإنما كان تعليقي بشكل عام

متابعة مع أخي الأستاذ @سامي الحداد ، لا زيادة عنه :- لإتمام العملية المطلوبة ، يجب أن يكون لديك الملف udceng.exe وهو ضروري لنجاح عملية حفظ التقرير على شكل صورة من الرابط التالي ، , والسبب وجود مكتبة خاصةبواسطة البرنامج . ثم يكون أمامك خياران اثنان . وضع الملف الذي تم تحميله من الرابط أعلاه حسب المسار الظاهر لديك في جهازك كما في النقطة رقم 2 . أو اختيار مسار الملف ( ويفضل أن يكون بجانب قاعدة البيانات التي تعمل عليها ) بشكل يدوي كما في النقطة 3 . والنقطة 1 هي إن كان إصدار الأوفيس لديك 32 فلا مشكلة فيها ، وأن كانت النسخة 64 ، فسيكون عليك تعديل الكود إلى التالي :- Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _ (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _ ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

أخي الكريم هناك مواضيع كثيرة تحدثت عن نفس المشكلة . راجع هذا الموضوع ، لعله يفيدك 😊 .