اذهب الي المحتوي
أوفيسنا

أبو عبدالله الحلوانى

الخبراء
  • Posts

    1,715
  • تاريخ الانضمام

  • Days Won

    5

Community Answers

  1. أبو عبدالله الحلوانى's post in استعلام بدون تكرار was marked as the answer   
    السلام عليكم 
    تفضل
    امتحانات.rar
    ارجو ان يكون هذا هو المطلوب
  2. أبو عبدالله الحلوانى's post in نقل رقم العامل من الجدول الى النموذج اذا كان موجوداً به was marked as the answer   
    السلام عليكم
    جرب هذا لعله يوافق مرادك
     
    Worker.accdb
  3. أبو عبدالله الحلوانى's post in أرجوا المساعدة من الإخوان was marked as the answer   
    لو كان ممكنا ان تضع مرفق بالمشكلة هنا 
    حتي يستطيع الأساتذة المساعدة
    فربما هنالك خطأ ما بكتابة الكود لم تلحظها 
    احيلك علي هذا المرفق لأستاذنا @jjafferr جزاه الله خيرا 
     
    وان شاء الله ستنتهي مشكلتك بعد استعمال المرفق بشكل صحيح 
    وان لم تنتهي المشكلة فعد لاقتراحي الأوول بان ترفق مرفقا بالمشكلة.
  4. أبو عبدالله الحلوانى's post in تصفية مربع تحرير وسرد بناء على option group (اختيارات) was marked as the answer   
    مشاركة مع أخي واستاذي @احمد الفلاحجي جزاه الله خيرا 
    فكرة خارج الصندوق قليلا - الفلترة من داخل الاستعلام مباشرة 
    تصفية.accdb
     
  5. أبو عبدالله الحلوانى's post in حساب عدد الاسابيع و عدد الاشهر من خلال وحدة نمطية was marked as the answer   
    وانا كذلك اوافق اخي واستاذي @احمد الفلاحجي 
    الفرق بين 7-9 الي 30-9 سيتم حسابه بالشهور بالتأكيد ولكن تلك الفترة لم تكتمل 30 يوم لذلك لم يتم حسابها شهرا كاملا حسب المعادلة وحسب العرف  فالفترة عبارة عن 23 يوم فقط جرب زيادة 7 ايام لشهر 10 وستجد ان الناتج اصبح 88 اسبوع و 1 شهر.
    جرب هذا المرفق قمت بالتعديل علي الدالة واصبحت الآن تعمل داخل الاستعلام بدون وسيط
    وابقيت علي الدالة القديمة لتري الفرق جرب ووافنا بالنتائج
     
    Database1.rar
  6. أبو عبدالله الحلوانى's post in معرفة رقم السجل الاخير was marked as the answer   
    من خصائص مربع النص الذي تريد ان يظهر به الرقم المطلوب اصنع كما بالصور 
    وجرب ووافنا بالنتائج 


  7. أبو عبدالله الحلوانى's post in استفسار بخصور جداول في اكسس was marked as the answer   
    وعليكم السلام ورحمة الله وبركاته
    هذين الجدولين هما جداول نظام يتم التعامل معهم آليا من قبل الاكسس 
    وهما كما هو واضح مرتبطين بعلاقة رأس بأطراف بين جدول يخزن اسماء المجموعات التي يتم انشاءها وبيانات العناصر داخل هذه المجموعة
    تابع الصور
    وهي مفيدة في عملية تصنيف الكائنات المرتبطة ببعضها البعض ليسهل الوصول اليها بالنسبة للمطور 
     




  8. أبو عبدالله الحلوانى's post in كيف يمكن الاشارة الى اسم النموذج الموجود في كمبوبكس داخل عبارة set في محرر الاكواد ؟ was marked as the answer   
    أستاذي @Eng.Qassim جزاك الله خيرا لحسن ظنك بي 
    منّ الله علي وعليكم بستره الجميل 
    أخي @ابو البشر جرب هذا ارجو ان يكون هو مطلوبك 
    رجاءا وافنا بالنتائج
     
    DDD.accdb
  9. أبو عبدالله الحلوانى's post in اظهار قيمة من حقلين في نموذج was marked as the answer   
    ان كانت هذه هي المشكلة فحلها بسيط للغاية ان شاء الله
    ولكن ما اعتقد ان هذا ما يريده بالضبط فان اسماء الأعمدة بالجدول كما بالصورة التي ارفقها هي عبارة عن ارقام
    ولكن مجارة لما اقترحته استاذي هذا تعديل علي حسب ما تفضلتم به لحين رد استاذ احمد 
    Public Function Subsalary(GradeNumber As Byte, RankNumber As Byte) As Double Subsalary = Nz(DLookup("A" & RankNumber, "Degree", "GradeNO=" & GradeNumber), 0) End Function وهذا التعديل يفترض ثبات البادئة النصية في اسماء كل الحقول

    Test (1).accdb
  10. أبو عبدالله الحلوانى's post in كيف أقسم الكود في سطرين ؟ was marked as the answer   
    وعليكم السلام ورحمة الله
    لتقسيم الكود يتم استخدام مسافة (فراغ)  ثم هذه العلامة ( _ )  بعد الفراغ كالمثال 
    CurrentDb.Execute "INSERT INTO TEAM(DateDA,DateCmd,NumBesoin,demandeur,commande,imputation,acheteur,departement,designation,marque, _ reference,devise,QTEcommande,QTE,frs1,PU1,PT1,frs2,PU2,PT2,frs3,PU3,PT3,prixRETENU,devise2,TotalEUR, _ fournisseur,CONTRAT,FABRICANT,NonMisEnCON,REGULE,SEMAINE,MOIS,PRODUCTIVITE,devise3,ProdEnEUR) " _ & "VALUES('" & Me.DateDA & "','" & Me.DateCmd & "','" & Me.NumBesoin & "','" & Me.Demandeur & "','" & _ Me.Commande & "','" & Me.imputation & "','" & Me.Acheteur & "','" & Me.Departement & "','" & Me.TXTdesign & _ "','" & Me!T_REFRENCE.Form.marque & "','" & Me.txtREF & "','" & Me!T_REFRENCE.Form.devise & "','" & Me.Qte & _ "','" & Me!T_REFRENCE.Form.FRS1 & "','" & Me!T_REFRENCE.Form.PU1 & "','" & Me!T_REFRENCE.Form.PT1 & "','" & _ Me!T_REFRENCE.Form.FRS2 & "','" & Me!T_REFRENCE.Form.PU2 & "','" & Me!T_REFRENCE.Form.PT2 & "','" & _ Me!T_REFRENCE.Form.FRS3 & "','" & Me!T_REFRENCE.PU3 & "','" & Me!T_REFRENCE.PT3 & "','" & _ Me!T_REFRENCE.PRIXretenu & "','" & Me!T_REFRENCE.Devise2 & "','" & Me!T_REFRENCE.TotalEUR & "','" & _ Me!T_REFRENCE.fournisseur & "','" & Me!T_REFRENCE.CONTRAT & "','" & Me!T_REFRENCE.Fabricant & "','" & _ Me!T_REFRENCE.NonMisEnCON & "','" & Me!T_REFRENCE.Regule & "','" & Me.Semaine & "','" & Me.Mois & "','" & _ Me!T_REFRENCE.productivite & "','" & Me!T_REFRENCE.devise3 & "','" & Me!T_REFRENCE.prodEnEUR & "'" أو يمكنك تقطيع الكود علي عدة اسطر في متغير نصي وتمرير قيمته الي دالة تنفيذ الاستعلام مثل:
    Dim SQLStr as String SQLStr = "INSERT INTO TEAM(DateDA,DateCmd,NumBesoin,demandeur,commande,imputation,acheteur,departement," SQLStr = SQLStr & "designation,marque,reference,devise,QTEcommande,QTE,frs1,PU1,PT1,frs2,PU2,PT2,frs3,PU3,PT3," SQLStr = SQLStr & "prixRETENU,devise2,TotalEUR,fournisseur,CONTRAT,FABRICANT,NonMisEnCON,REGULE,SEMAINE,MOIS," SQLStr = SQLStr & "PRODUCTIVITE,devise3,ProdEnEUR) VALUES('" & Me.DateDA & "','" & Me.DateCmd & "','" SQLStr = SQLStr & Me.NumBesoin & "','" & Me.Demandeur & "','" & Me.Commande & "','" & Me.imputation & "','" SQLStr = SQLStr & Me.Acheteur & "','" & Me.Departement & "','" & Me.TXTdesign & "','" & Me!T_REFRENCE.Form.marque & "','" SQLStr = SQLStr & Me.txtREF & "','" & Me!T_REFRENCE.Form.devise & "','" & Me.Qte & "','" & Me!T_REFRENCE.Form.FRS1 & "','" SQLStr = SQLStr & Me!T_REFRENCE.Form.PU1 & "','" & Me!T_REFRENCE.Form.PT1 & "','" & Me!T_REFRENCE.Form.FRS2 & "','" SQLStr = SQLStr & Me!T_REFRENCE.Form.PU2 & "','" & Me!T_REFRENCE.Form.PT2 & "','" & Me!T_REFRENCE.Form.FRS3 & "','" SQLStr = SQLStr & Me!T_REFRENCE.PU3 & "','" & Me!T_REFRENCE.PT3 & "','" & Me!T_REFRENCE.PRIXretenu & "','" SQLStr = SQLStr & Me!T_REFRENCE.Devise2 & "','" & Me!T_REFRENCE.TotalEUR & "','" & Me!T_REFRENCE.fournisseur & "','" SQLStr = SQLStr & Me!T_REFRENCE.CONTRAT & "','" & Me!T_REFRENCE.Fabricant & "','" & Me!T_REFRENCE.NonMisEnCON & "','" SQLStr = SQLStr & Me!T_REFRENCE.Regule & "','" & Me.Semaine & "','" & Me.Mois & "','" & Me!T_REFRENCE.productivite & "','" SQLStr = SQLStr & Me!T_REFRENCE.devise3 & "','" & Me!T_REFRENCE.prodEnEUR & "'" CurrentDb.Execute SQLStr ارجو التجربة وموافاتي بالنتيجة
     
  11. أبو عبدالله الحلوانى's post in استبدال نص بـرقم في بيانات جدول was marked as the answer   
    جرب هذا التعديل ووافنا بالنتائج أرجو ان يوافق مرادك
    ملاحظة: قف علي السجل المراد تحويله ثم اضغط علي الزر وانظر النتائج
    ولا تنسانا من دعوة بظهر الغيب
    gov_names.accdb
  12. أبو عبدالله الحلوانى's post in مساعدة في عداد الوقت was marked as the answer   
    أرجو أن يوافق هذا مرادك 
    ولا تنسانا من دعوة بظهر الغيب
     
    time.accdb
  13. أبو عبدالله الحلوانى's post in المساعدة فى عمل رسالة تنبيه بناء على تاريخ الجهاز was marked as the answer   
    أرجو ان يكون هذا ما تريد
     
    جرب ووافنا بالنتائج
     
    TestMessage.accdb
  14. أبو عبدالله الحلوانى's post in حل مشكلة تحتوي قاعدة البيانات على مرجع معطل للملف MSORUN.DLL was marked as the answer   
    جرب هذا اذا ووافنا بالنتيجة
     
    Gm3ya.rar
  15. أبو عبدالله الحلوانى's post in كيف نجعل التاريخ يكتب بشكل تلقائي بعد وضع عدد الأيام أو الشهور أو السنوات بدء من تاريخ معين was marked as the answer   
    السلام عليكم ورحمة الله وبركاته
    أرجو أن يكون هذا قريبا مما تريد
    ولا تنسنا من دعوة بظهر الغيب
    التاريخ.accdb
  16. أبو عبدالله الحلوانى's post in استماره خيرية was marked as the answer   
    اطلع علي المرفق بالموضوعين التاليين لعلك تجد ما تريد
    والثاني
     
  17. أبو عبدالله الحلوانى's post in اداة تخفيض مستوى امان اكسيس 2019 was marked as the answer   
    وعليكم السلام ورحمة الله وبركاته
    والله حقيقة بعد هذه الردود لا يصلح رد آخر ولكن بدأت بكتابة الرد وانشغلت ببعض الأمور فلا مانع من مشاركة الاساتذة بالأجر
    بامكانك أن تغيري اعدادات الأمان من اعدادت الاكسس
    اتبعي الخطوات بالرابط التالي
    اما وان كان لا بد من استخدام آداة 
    فاليك هذا الاسكربت لتخفيض امان الأكسس. وان لم يعمل بشكل جيد انظر الي الشرح بالفديو لتعديل الكود بالاسكربت وفقا لمسار الرجستري الخاص بالاصدار 2019 فالاصدار لدي 2016 
    أما عن طريقة أستاذنا أبوابراهيم الغامدي في الأفضل ولا شك لكون البرنامج يعمل بأمان ولا ننزع أمان الأكسس عنه
    وهذا الرابط لأستاذنا جعفر ينفذ طريقة أستاذ أبو ابراهيم ولكن عن طريق الكود 
    واعتذر عن الاسهاب في الرد 
    LowScuerity.rar
  18. أبو عبدالله الحلوانى's post in اداة تخفيض مستوى امان اكسيس 2019 was marked as the answer   
    وعليكم السلام ورحمة الله وبركاته
    والله حقيقة بعد هذه الردود لا يصلح رد آخر ولكن بدأت بكتابة الرد وانشغلت ببعض الأمور فلا مانع من مشاركة الاساتذة بالأجر
    بامكانك أن تغيري اعدادات الأمان من اعدادت الاكسس
    اتبعي الخطوات بالرابط التالي
    اما وان كان لا بد من استخدام آداة 
    فاليك هذا الاسكربت لتخفيض امان الأكسس. وان لم يعمل بشكل جيد انظر الي الشرح بالفديو لتعديل الكود بالاسكربت وفقا لمسار الرجستري الخاص بالاصدار 2019 فالاصدار لدي 2016 
    أما عن طريقة أستاذنا أبوابراهيم الغامدي في الأفضل ولا شك لكون البرنامج يعمل بأمان ولا ننزع أمان الأكسس عنه
    وهذا الرابط لأستاذنا جعفر ينفذ طريقة أستاذ أبو ابراهيم ولكن عن طريق الكود 
    واعتذر عن الاسهاب في الرد 
    LowScuerity.rar
  19. أبو عبدالله الحلوانى's post in محرر الأكواد يقوم باضافة رموز بنفسه اثناء الكتابة was marked as the answer   
    أخي في الغالب لديك فورم يعمل بالخلفية وبه مؤقت فكود التيمر يظل يعمل ويعيقك أثناء كتابة الكود 
    كل ما عليك هو ايقاف الفورم الذي به المؤقت (أو حدث عند المؤقت) On timer  ثم افتح شاشة المحرر واعمل بدون مقاطعة ان شاء الله
  20. أبو عبدالله الحلوانى's post in طلب مساعدة في برنامج حساب فواتير المياه was marked as the answer   
    أولا-  المرفق لا يوجد به كود ولا بيانات لا يوجد سوي نموذج واحد ومجموعة تقرير
    ثانيا- فكرتي المقترحة ما دام لا يوجد لديك مرفق:
    أنت بحاجة لوجود عمودين للقراءات داخل الجدول الخاص باستهلاكات العملاء احدهما يسمي القراءة السابقة والأخر القراءة الحالية
    وعمود ثالث يسمي القراءة الجديدة. هذا العمود يتم ملأه وفقا لآلية العمل لديكم وفي نهاية الدورة المحاسبية يتم تشغيل استعلام اجرائي يقوم بما يلي:
    1- التأكد من كون القراءة الجديدة موجودة وغير خالية وفي حالة خلوها يتم اعتبار القراءة الحالية هي القراءة الجديدة
    2- التأكد من بعض الأمور وفقا لطبيعة العمل لديكم مثل وجود عداد لا يعمل وطريقة محاسبته في مثل هذه الحالة أو لا يمكن قراءته لوجود مانع ما وكيف سيتم المحاسبة في هذه الحالة.
    3- يقوم بتحويل القراءة الحالية الي عمود القراءة السابقة 
    4- يقوم بتحويل القراءة الجديدة الي عمود القراءة الحالية تمهيدا لبدأ عملية احتساب قيم الفواتير
    هذا والله اعلم
    أرجو أن أجد وقتا كافيا لأضع لك مرفق بالفكرة اعلاه.
     
  21. أبو عبدالله الحلوانى's post in استبدال تاريخ بشرط was marked as the answer   
    جرب هذا إذا 
    ووافنا بالنتائج
     
    مثال 4.accdb
  22. أبو عبدالله الحلوانى's post in اريد تمرير اسم التقرير الي روتين من روتين آخر was marked as the answer   
    يبدو أني تعجلت في كتابة الموضوع 
    الحمد لله وجدت الحل بهذا الكود يمكن استدعاء اسم الكائن الحالي
    Application.CurrentObjectName وهذا أيضا يجلب اسم التقرير النشط Screen.ActiveReport.Name ولكن لا بأس لعل الفكرة يستفيد منها أحدا مر من هنا
    وجزاكم الله خيرا
  23. أبو عبدالله الحلوانى's post in كود التأكد من الحفظ قبل اغلاق النموذج was marked as the answer   
    جرب هذا ووافنا بالنتائج 
    وبدون استخدام مصدر بيانات للفورم
     
    مثال اوفيسنا كود عند اغلاق النموذج.rar
    أبا الجود حمدا لله علي السلامة سجلنا اسمك في دفتر الغياب من أيام 
    لم ألحظ جوابك سوي الآن.
  24. أبو عبدالله الحلوانى's post in حماية قاعدة البيانات was marked as the answer   
    هذا الخطوات السابقة لايقاف التأمين علي الجهاز الحالي ولا تحفظ داخل قاعدة البيانات وانما بالرجستري للجهاز هذه كانت الطريقة الثانية أن تقوم بتغير القيمة من الرجستري مباشرة أو من خلال الكود البرمجي كما هو موجود بمرفق أستاذنا @sandanet 
    ولكن لا أحبذ ايقاف اعدادات التأمين بالكلية فوجودها مطلوب لتفادي أضرار غير مقصودة أو مقصودة من برمجيات هدفها التخريب.
    وأحيلك علي هذه المشاركة بموضوع مشابه لموضوعك بها جمع لطريقة تعديل الرجستري من خلال الكود وطريقة جميلة أخري للأستاذ جعفر لفتح البرنامج من موقع آمن برمجيا أيضا أتركك مع الرابط - ولا تنسانا من دعائك -
     
     
  25. أبو عبدالله الحلوانى's post in مساعدة في كود حذف سجل عند الضغط على مربع الاختيار was marked as the answer   
    هل تقصد شيء كهذا 
    جرب ووافنا بالنتائج
     
    DeleteRecordWithChickbox.accdb
×
×
  • اضف...

Important Information