اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

Foksh

الخبراء
  • Posts

    2,370
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    85

كل منشورات العضو Foksh

  1. تفضل اخي @Abdelaziz Osman هذه الفكرة ، تم تعديل الأكواد على النحو التالي:- في حدث بعد التحديث و حدث عند التركيز للحقل Retial If Not IsNull(Me.Retial) Then Cancel = True Me.Retial.Locked = True Else Cancel = False Me.Retial.Locked = False End If لاحظ أن الكود نفسه تم استخدامه في حدثين ، ولك حرية التعديل حسب حاجتك 😊 Retial -.accdb
  2. اخي الكريم @Abdelaziz Osman انت عضو مميز ما شاء الله ، ومن المفترض انك تعي تماماً انشاء موضوع جديد ومتطلباته لتنفيذ افكارك وحل مشاكل واجهتها ، فلم توضح ان النموذج يعرض ورقة بيانات ولا اي شيء ، ولا حتى ارفاق ملف لم تقم به . كل الشكر والتقدير لك 🤗
  3. حسب ما توضحت الصورة في طلبك ، تفضل هذا المثال :- في حدث في الحالي للنموذج ضع هذا الكود :- Private Sub Form_Current() If Not IsNull(Me.Retial) Then Cancel = True Me.Retial.Enabled = False Else Cancel = False Me.Retial.Enabled = True End If End Sub وفي حدث بعد التحديث لمربع النص ضع هذا الجزء :- Cancel = True Me.Retial.Enabled = False Retial.accdb
  4. تفضل أخي @rachedi ، ولكن لي طلب منك صغير وأرجو أن تأخذه بسعة صدر .. حاول ارفاق ملف للمشكلة التي تريد لها حل ، وأيضاً انتقاء العناوين المناسبة التي تصف المشكلة ليسها على الأعضاء إيجادها في البحث عند حاجتهم . تفضل هذه اقتراحي حسب ما فهمت من طلبك ، زر القبول :- Private Sub btnAccepted_Click() Me.chkAccept.Value = True End Sub وزر الغير مقبول :- Private Sub btnReject_Click() Me.chkAccept.Value = False End Sub
  5. جرب هذا الكود في حدث عند النقر لاختيار ملف الـ PDF ، وسيتم ادراج مساره في مربع النص Private Sub btnBrowse_Click() Dim fd As Object ' متغير لمربع الحوار Dim selectedFile As Variant ' متغير لتخزين المسار المحدد ' إنشاء مربع حوار لاختيار الملفات Set fd = Application.FileDialog(3) ' 3 يعني اختيار ملف ' عرض المربع الحوار وانتظار اختيار ملف If fd.Show = -1 Then ' استخراج المسار المحدد وتخزينه في selectedFile selectedFile = fd.SelectedItems(1) ' عرض المسار المحدد في مربع النص Me.TextConv.Value = selectedFile End If ' تحرير الموارد Set fd = Nothing End Sub وشرح الكود موجود داخله 🥰
  6. مشكور على الهدية أخي @طير البحر .. مقارنة مع التوسيط التلقائي في اكسيس ، إلا أن هناك فارق طبعاً.. فالتوسيط في اكسيس يعتمد على المساحة التي يتم فيها عرض واجهة البرنامج فقط وليس المساحة الإجمالية للسطح المكتب . وهذه نقطة جميلة قد تفيد البعض. 🥰
  7. اختصرت مايكروسوفت الإجابة في المقال التالي . وكذلك سؤال أحد الأخوة في المنتدى .وهذا الموضوع.
  8. سيتم تعديل النسخة الحالية بإزالة التطبيقات الغير ضرورية من نسخة الويندوز المرفوعة حالياً وذلك تقليلاً لحجمها وتحسيناً لأدائها ونشاطها دون المساس باستقرارها وثباتها طبعاً 😅 أشكر سعة صدركم لي بهذه التعديلات .
  9. اخي @rachedi أهلاً بك في مجتمعنا الصغير المتواضع.. إذا كان هذا الموضوع استكمالاً وتابعاً لهذا الموضوع ، فأرجو منك متابعة أحدهما حتى لا تتشتت أفكارك وأفكار من يحاول المساعدة لطلبك. ثم ارفق مثالك كي يتم تطبيق طلباتك عليه 😊
  10. لا يليق بمنتدانا إلا الحصريات أستاذنا @ابوخليل 🤗 أشكر لك مرورك وتقييمك 🥰
  11. هل جربت الحل أولاً ؟؟ استخدام الدالة Dlookup يحتاج تأثير أو عنصر يستدعيها مثل زر أو أثناء تحميل النموذج . بينما في الحالي ليس هناك حدث . أتمنى أكون قدرت أوصل فكرتي بشكل واضح حتى لا تذهب الأفكار بعيداً ، ما قصدته أن حدث ( في الحالي ) يتم تنفيذه عندما يتم تغيير السجل الحالي أو عند تحديد سجل جديد ، بينما يتم تنفيذ حدث ( عند التحميل ) عند بدء تحميل النموذج أو الاستعلام
  12. من وجهة نظري ، ما لم تقم بحفظ الملف بصيغة ACCDE فأن الكود من 64 يعمل على 32 .
  13. جرب الحدث عند التحميل أخي الكريم ، وليس عند الفتح أو الحالي
  14. أشكرك أخي @gamal gamal على ذوقك .. يسعدني مروروك العطر
  15. ارسل المرفق حتى نعرف اين المشكلة يا اخي الكريم ,,,,
  16. مع الإستعلام لا يمكنك دمج الباسوورد اثناء تنفيذ الاستعلام ..
  17. هل جربت هذه الفكرة 🤔 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
  18. تفضل اخي الكريم هذا الكود كإقتراح 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
  19. جزاك الله كل الخير أستاذنا @Moosak ، وأسأل الله أن ينفعنا وإياكم بعلمه الذي علمنا . أتمنى أن تكون سابقة كبداية للفكرة مع أمل تطوير أدائها بشكل أفضل . الحجم لا يؤثر على أداء الهاتف أبداً ؛ مساحة النسخة بعد فك الضغط عنها وتثبيتها تقريباً 4.5 جيجا . وجاري العمل على تقليل حجم النسخة بإزالة التطبيقات الغير ضرورية من النسخة في التعديل الجديد ؛ طبعاً دون التأثير على استقرار نسخة الويندوز .
  20. تفضل أخي هذا الكود لجميع أزرار الـ 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
  21. السلام عليكم ورحمة الله وبركاته ، أخواني وأساتذتي ومعلمينا ( دون استثناء ) كثيراً منا حاول تشغيل تطبيقات ومشاريع آكسيس على الجوال ؛ ولكن دون نتيجة حقيقية أو فعالة . اليوم وبعد تجربة شخصية لتشغيل برامج آكسيس على الجوال بكل بساطة . دون مقدمات طويلة وعريضة لمبدأ بالمطلوب والأساسيات لتنفيذ هذه الفكرة . البرامج المطلوبة :- برنامج 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
  22. تفضل أخي الكريم .. مشاركة مع الأستاذ @محمد احمد لطفى INSERT INTO tbmor ( [or] ) SELECT tbmr.mr & tbmo.mo AS [or] FROM tbmr, tbmo ORDER BY tbmr.mr & tbmo.mo; mor.accdb
×
×
  • اضف...

Important Information