بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
-
Posts
1,727 -
تاريخ الانضمام
-
Days Won
5
Community Answers
-
أبو عبدالله الحلوانى's post in مطلوب كود بحث فى حقل الأسم يقلص المعروض على النموذج لاختيار المطلوب was marked as the answer
جرب هذا المرفق لحذف نتائج البحث
db3.mdb
-
أبو عبدالله الحلوانى's post in استعلام بدون تكرار was marked as the answer
السلام عليكم
تفضل
امتحانات.rar
ارجو ان يكون هذا هو المطلوب
-
أبو عبدالله الحلوانى's post in نقل رقم العامل من الجدول الى النموذج اذا كان موجوداً به was marked as the answer
السلام عليكم
جرب هذا لعله يوافق مرادك
Worker.accdb
-
أبو عبدالله الحلوانى's post in أرجوا المساعدة من الإخوان was marked as the answer
لو كان ممكنا ان تضع مرفق بالمشكلة هنا
حتي يستطيع الأساتذة المساعدة
فربما هنالك خطأ ما بكتابة الكود لم تلحظها
احيلك علي هذا المرفق لأستاذنا @jjafferr جزاه الله خيرا
وان شاء الله ستنتهي مشكلتك بعد استعمال المرفق بشكل صحيح
وان لم تنتهي المشكلة فعد لاقتراحي الأوول بان ترفق مرفقا بالمشكلة.
-
أبو عبدالله الحلوانى's post in تصفية مربع تحرير وسرد بناء على option group (اختيارات) was marked as the answer
مشاركة مع أخي واستاذي @احمد الفلاحجي جزاه الله خيرا
فكرة خارج الصندوق قليلا - الفلترة من داخل الاستعلام مباشرة
تصفية.accdb
-
أبو عبدالله الحلوانى's post in حساب عدد الاسابيع و عدد الاشهر من خلال وحدة نمطية was marked as the answer
وانا كذلك اوافق اخي واستاذي @احمد الفلاحجي
الفرق بين 7-9 الي 30-9 سيتم حسابه بالشهور بالتأكيد ولكن تلك الفترة لم تكتمل 30 يوم لذلك لم يتم حسابها شهرا كاملا حسب المعادلة وحسب العرف فالفترة عبارة عن 23 يوم فقط جرب زيادة 7 ايام لشهر 10 وستجد ان الناتج اصبح 88 اسبوع و 1 شهر.
جرب هذا المرفق قمت بالتعديل علي الدالة واصبحت الآن تعمل داخل الاستعلام بدون وسيط
وابقيت علي الدالة القديمة لتري الفرق جرب ووافنا بالنتائج
Database1.rar
-
أبو عبدالله الحلوانى's post in معرفة رقم السجل الاخير was marked as the answer
من خصائص مربع النص الذي تريد ان يظهر به الرقم المطلوب اصنع كما بالصور
وجرب ووافنا بالنتائج
-
أبو عبدالله الحلوانى's post in استفسار بخصور جداول في اكسس was marked as the answer
وعليكم السلام ورحمة الله وبركاته
هذين الجدولين هما جداول نظام يتم التعامل معهم آليا من قبل الاكسس
وهما كما هو واضح مرتبطين بعلاقة رأس بأطراف بين جدول يخزن اسماء المجموعات التي يتم انشاءها وبيانات العناصر داخل هذه المجموعة
تابع الصور
وهي مفيدة في عملية تصنيف الكائنات المرتبطة ببعضها البعض ليسهل الوصول اليها بالنسبة للمطور
-
أبو عبدالله الحلوانى's post in كيف يمكن الاشارة الى اسم النموذج الموجود في كمبوبكس داخل عبارة set في محرر الاكواد ؟ was marked as the answer
أستاذي @Eng.Qassim جزاك الله خيرا لحسن ظنك بي
منّ الله علي وعليكم بستره الجميل
أخي @ابو البشر جرب هذا ارجو ان يكون هو مطلوبك
رجاءا وافنا بالنتائج
DDD.accdb
-
أبو عبدالله الحلوانى'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
-
أبو عبدالله الحلوانى'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 ارجو التجربة وموافاتي بالنتيجة
-
أبو عبدالله الحلوانى's post in استبدال نص بـرقم في بيانات جدول was marked as the answer
جرب هذا التعديل ووافنا بالنتائج أرجو ان يوافق مرادك
ملاحظة: قف علي السجل المراد تحويله ثم اضغط علي الزر وانظر النتائج
ولا تنسانا من دعوة بظهر الغيب
gov_names.accdb
-
أبو عبدالله الحلوانى's post in مساعدة في عداد الوقت was marked as the answer
أرجو أن يوافق هذا مرادك
ولا تنسانا من دعوة بظهر الغيب
time.accdb
-
أبو عبدالله الحلوانى's post in المساعدة فى عمل رسالة تنبيه بناء على تاريخ الجهاز was marked as the answer
أرجو ان يكون هذا ما تريد
جرب ووافنا بالنتائج
TestMessage.accdb
-
أبو عبدالله الحلوانى's post in حل مشكلة تحتوي قاعدة البيانات على مرجع معطل للملف MSORUN.DLL was marked as the answer
جرب هذا اذا ووافنا بالنتيجة
Gm3ya.rar
-
أبو عبدالله الحلوانى's post in كيف نجعل التاريخ يكتب بشكل تلقائي بعد وضع عدد الأيام أو الشهور أو السنوات بدء من تاريخ معين was marked as the answer
السلام عليكم ورحمة الله وبركاته
أرجو أن يكون هذا قريبا مما تريد
ولا تنسنا من دعوة بظهر الغيب
التاريخ.accdb
-
أبو عبدالله الحلوانى's post in استماره خيرية was marked as the answer
اطلع علي المرفق بالموضوعين التاليين لعلك تجد ما تريد
والثاني
-
أبو عبدالله الحلوانى's post in اداة تخفيض مستوى امان اكسيس 2019 was marked as the answer
وعليكم السلام ورحمة الله وبركاته
والله حقيقة بعد هذه الردود لا يصلح رد آخر ولكن بدأت بكتابة الرد وانشغلت ببعض الأمور فلا مانع من مشاركة الاساتذة بالأجر
بامكانك أن تغيري اعدادات الأمان من اعدادت الاكسس
اتبعي الخطوات بالرابط التالي
اما وان كان لا بد من استخدام آداة
فاليك هذا الاسكربت لتخفيض امان الأكسس. وان لم يعمل بشكل جيد انظر الي الشرح بالفديو لتعديل الكود بالاسكربت وفقا لمسار الرجستري الخاص بالاصدار 2019 فالاصدار لدي 2016
أما عن طريقة أستاذنا أبوابراهيم الغامدي في الأفضل ولا شك لكون البرنامج يعمل بأمان ولا ننزع أمان الأكسس عنه
وهذا الرابط لأستاذنا جعفر ينفذ طريقة أستاذ أبو ابراهيم ولكن عن طريق الكود
واعتذر عن الاسهاب في الرد
LowScuerity.rar
-
أبو عبدالله الحلوانى's post in اداة تخفيض مستوى امان اكسيس 2019 was marked as the answer
وعليكم السلام ورحمة الله وبركاته
والله حقيقة بعد هذه الردود لا يصلح رد آخر ولكن بدأت بكتابة الرد وانشغلت ببعض الأمور فلا مانع من مشاركة الاساتذة بالأجر
بامكانك أن تغيري اعدادات الأمان من اعدادت الاكسس
اتبعي الخطوات بالرابط التالي
اما وان كان لا بد من استخدام آداة
فاليك هذا الاسكربت لتخفيض امان الأكسس. وان لم يعمل بشكل جيد انظر الي الشرح بالفديو لتعديل الكود بالاسكربت وفقا لمسار الرجستري الخاص بالاصدار 2019 فالاصدار لدي 2016
أما عن طريقة أستاذنا أبوابراهيم الغامدي في الأفضل ولا شك لكون البرنامج يعمل بأمان ولا ننزع أمان الأكسس عنه
وهذا الرابط لأستاذنا جعفر ينفذ طريقة أستاذ أبو ابراهيم ولكن عن طريق الكود
واعتذر عن الاسهاب في الرد
LowScuerity.rar
-
أبو عبدالله الحلوانى's post in محرر الأكواد يقوم باضافة رموز بنفسه اثناء الكتابة was marked as the answer
أخي في الغالب لديك فورم يعمل بالخلفية وبه مؤقت فكود التيمر يظل يعمل ويعيقك أثناء كتابة الكود
كل ما عليك هو ايقاف الفورم الذي به المؤقت (أو حدث عند المؤقت) On timer ثم افتح شاشة المحرر واعمل بدون مقاطعة ان شاء الله
-
أبو عبدالله الحلوانى's post in طلب مساعدة في برنامج حساب فواتير المياه was marked as the answer
أولا- المرفق لا يوجد به كود ولا بيانات لا يوجد سوي نموذج واحد ومجموعة تقرير
ثانيا- فكرتي المقترحة ما دام لا يوجد لديك مرفق:
أنت بحاجة لوجود عمودين للقراءات داخل الجدول الخاص باستهلاكات العملاء احدهما يسمي القراءة السابقة والأخر القراءة الحالية
وعمود ثالث يسمي القراءة الجديدة. هذا العمود يتم ملأه وفقا لآلية العمل لديكم وفي نهاية الدورة المحاسبية يتم تشغيل استعلام اجرائي يقوم بما يلي:
1- التأكد من كون القراءة الجديدة موجودة وغير خالية وفي حالة خلوها يتم اعتبار القراءة الحالية هي القراءة الجديدة
2- التأكد من بعض الأمور وفقا لطبيعة العمل لديكم مثل وجود عداد لا يعمل وطريقة محاسبته في مثل هذه الحالة أو لا يمكن قراءته لوجود مانع ما وكيف سيتم المحاسبة في هذه الحالة.
3- يقوم بتحويل القراءة الحالية الي عمود القراءة السابقة
4- يقوم بتحويل القراءة الجديدة الي عمود القراءة الحالية تمهيدا لبدأ عملية احتساب قيم الفواتير
هذا والله اعلم
أرجو أن أجد وقتا كافيا لأضع لك مرفق بالفكرة اعلاه.
-
أبو عبدالله الحلوانى's post in استبدال تاريخ بشرط was marked as the answer
جرب هذا إذا
ووافنا بالنتائج
مثال 4.accdb
-
أبو عبدالله الحلوانى's post in اريد تمرير اسم التقرير الي روتين من روتين آخر was marked as the answer
يبدو أني تعجلت في كتابة الموضوع
الحمد لله وجدت الحل بهذا الكود يمكن استدعاء اسم الكائن الحالي
Application.CurrentObjectName وهذا أيضا يجلب اسم التقرير النشط Screen.ActiveReport.Name ولكن لا بأس لعل الفكرة يستفيد منها أحدا مر من هنا
وجزاكم الله خيرا
-
أبو عبدالله الحلوانى's post in كود التأكد من الحفظ قبل اغلاق النموذج was marked as the answer
جرب هذا ووافنا بالنتائج
وبدون استخدام مصدر بيانات للفورم
مثال اوفيسنا كود عند اغلاق النموذج.rar
أبا الجود حمدا لله علي السلامة سجلنا اسمك في دفتر الغياب من أيام
لم ألحظ جوابك سوي الآن.
-
أبو عبدالله الحلوانى's post in حماية قاعدة البيانات was marked as the answer
هذا الخطوات السابقة لايقاف التأمين علي الجهاز الحالي ولا تحفظ داخل قاعدة البيانات وانما بالرجستري للجهاز هذه كانت الطريقة الثانية أن تقوم بتغير القيمة من الرجستري مباشرة أو من خلال الكود البرمجي كما هو موجود بمرفق أستاذنا @sandanet
ولكن لا أحبذ ايقاف اعدادات التأمين بالكلية فوجودها مطلوب لتفادي أضرار غير مقصودة أو مقصودة من برمجيات هدفها التخريب.
وأحيلك علي هذه المشاركة بموضوع مشابه لموضوعك بها جمع لطريقة تعديل الرجستري من خلال الكود وطريقة جميلة أخري للأستاذ جعفر لفتح البرنامج من موقع آمن برمجيا أيضا أتركك مع الرابط - ولا تنسانا من دعائك -