أحمد مبارك الحيقي

أخي الكريم، يمكنك استخدام نفس الطريقة السابقة، لكن الخطأ عندك في تسمية حقل الجدول، إذ أنه في الجدول عندك (Date)، وقد كتبته في دالة DMax بالشكل txtDate... جرب هذا: Private Sub Form_Current() If Me.NewRecord Then Me.txtDate = DateAdd("d", 1, Nz(DMax("Date", "Ove…

إذا كنت تريد إحصائية كاملة لكل الأنواع دفعة واحدة، فيمكنك استخدام عبارة SQL التالي: SELECT [type_field], COUNT([type_field]) FROM [table_name] GROUP BY [type_field] حيث: type_field هو اسم الحقل الذي يحوي النص المطلوب (مثل "سنوية أو "عارضة"،...) table_name هو ا…

بسم الله الرحمن الرحيم من الأمور التي تدعم العلاقة بين المستخدم وبين التطبيق، نظام جيد للمساعدة أو التعليمات، يسترشد به المستخدم في التعرف على وظيفة التطبيق، ووظائف أجزائه المختلفة. أحياناً، يكون هذا النظام على هيئة ملف أو مجموعة ملفات مستقلة، كأنها مستند أو ك…

وعليكم السلام ورحمة الله وبركاته ما أقدر عليه الآن أخي الكريم، هو أن أعيد إرفاق هذا الكتاب الذي كنت قد كتبته خلال دروس سابقة هنا في المنتدى... ويحوي مقدمة إلى هذه اللغة. أرجو لك التوفيق... مقدمة إلى لغة SQL.rar

وعليكم السلام ورحمة الله وبركاته... لدينا هنا عدد من المسائل: الأولى، بالنسبة لأسعار الأصناف، فالمفروض ألا يؤثر تغيير سعر بيع الصنف بجدول الأصناف في الحركة التاريخية للأسعار. السبب في ذلك هو وجود حقل مستقل للسعر مع تفاصيل الفواتير. هذا يعني أننا نوثق بالفعل سع…

وعليكم السلام ورحمة الله وبركاته أخي الكريم، هذا ما تيسر لي حالياً، ويتعلق بالمطلوب الأول فقط... Gr.rar

لنقل أن لديك العدد التالي: 0123456789 في متغير اسمه no من عشرة أرقام، وتريد تجزئته إلى ثلاث خانات var1 (أربعة أرقام) وvar2 (ثلاثة أرقام) وvar3 (ثلاثة أرقام)... يمكن ذلك كالتالي: var1 = Val(Mid(no, 1, 4)) var2 = Val(Mid(no, 5, 3)) var3 = Val(Mid(no, 8, 3)) حيث …

هذه محاولة لتنفيذ ذلك من خلال متغير على مستوى وحدة التقرير النمطية، ويتم نقل القيمة الابتدائية عبر خاصية OpenArgs للتقرير. كل ذلك في الملف المرفق... والله أعلم. ملحوظة: من فضلك أخي، غيّر نوع المشاركة إلى (سؤال) وليس (مشروع)... New Microsoft Office Access Appli…

أخي الكريم، حدث BeforeInsert للنموذج يحدث فوراً عند الشروع في إدخال سجل جديد، وذلك بالبدء في الكتابة في أي حقل... يبدو أن حقل التاريخ عندك هو أول حقل تبدأ فيه الكتابة، لذلك لن يتم تعيين التاريخ المطلوب إلا عند الكتابة فيه. لو كان أول حقل هو حقل آخر، لظهرت القي…

يمكنك أخي أن تستخدم مثل هذا الكود في حدث BeforeInsert للنموذج: Me.tstDate = DateAdd("d", 1, Nz(DMax("tstDate", "tblTest"), Date)) حيث tblTest هو اسم الجدول، وtstDate هو اسم حقل التاريخ، والله أعلم.

أخي mr steev، مرحباً بك... سأحاول بإذن الله النظر في المطلوب أعلاه، فأمهلني إلى يوم غد، وإن واجهتني استفسارات فسأضعها هنا إن شاء الله...

وعليكم السلام ورحمة الله وبركاته، أخي مستر استرا: راجع الملف المرفق من فضلك، ففيه محاولة لطلبك، جدول tblTest، وفي انتظار المردود. الأخت Roro2020: المطلوب الأول (عدم إظهار الجداول والاستعلامات المخفية) موجود أيضاً في الملف المرفق. أما بالنسبة للبحث، فهناك الكثي…

وعليكم السلام ورحمة الله وبركاته أخي الكريم، أكسس 2007 و2010 يستخدمان المكتبة ACEDAO.DLL عوضاً عن المكتبة DAO360.DLL في أكسس 2000 و2002 و2003. هذا يعني أنك، والله أعلم، تحتاج إلى المرجع إلى DAO360.DLL في أكسس 2003، وليس إلى ACEDAO.DLL. قم بإزالة المرجع إلى هذه…

وعليكم السلام ورحمة الله أخي الكريم، مرفق الملف بعد التعديل، وفيه استعلام باسم q_warnings وتعديل في مود النموذج. هذا التعديل أصح من الكود الأول، لأنني اكتشفت خطأ منطقياً في الكود الأول... أرجو الاطلاع على الملف المرفق، والمعذرة. أخوك أحمد new geab2010.rar

أخي صايل عزام، أشكرك على المجاملة، لكنني مسرور جداً لأنك قد استفدت شيئاً من الدرس... الحمد لله. أخي أبا يعقوب، أولاً: مرحباً بك، وأقدّر جداً أن تكون أول مشاركاتك في هذا الموضوع... شكراً لك. ثانياً: مرة أخرى، أشعر بالارتياح ودافع للاستمرار عندما أسمع أن ما أكتب…

أخي مستر استرا، هل ستطبع التقرير في المرة الواحدة لعميل واحد فقط، أم لكل العملاء؟ لأن عدد الأعمدة التي تحوي قيماً لعميل واحد قد يكون محدوداً، لكن أكثر من عميل قد يكون كل منهم دفع مبالغ في أعمدة (حسابات) مختلفة، وبالتالي، يجب إخراج كل الأعمدة التي تحوي قيماً حت…

وعليكم السلام ورحمة الله وبركاته أخي الكريم، تستطيع ببساطة استخدام عبارة SQL تحديث واحدة فقط، كالتالي: UPDATE جدول1 SET جدول1.[Month] = 8; كما في الملف المرفق... أنصحك حقاً بمراجعة لغة SQL، فهي ضرورية لمبرمج قواعد البيانات، وستساعدك كثيراً جداً بإذن الله في حل…

أختي الكريمة، ساحاول إن شاء الله أن أجيب عن تساؤل الأخ مستر استرا، وعن تساؤلك الأخير غداً بإذن الله، لكن أريدك أولاً أن تقومي ببحث صغير من كل المصادر المتاحة، وأولها ملفات المساعدة في أكسس عن الطريقة التالية: DoCmd.OpenReport ابحثي عن معنى المعاملات، وفكري بطر…

وعليكم السلام ورحمة الله وبركاته أظن والله أعلم أن واحداً من الحلول الممكنة لهذه المسألة يمكن أن يتحقق بكود مثل التالي: Dim rs As DAO.Recordset, intRecCount As Integer Set rs = CurrentDb.OpenRecordset("SELECT date FROM geab WHERE stud_id = '" & Me.stud_id & "'…

نعم أخي الكريم، شكراً على الاستفسار فهو في موضعه... كل نموذج له خاصية هي عبارة عن مجموعة العناصر التي تنتمي إليه. هذه الخاصية تسمى Controls. لاحظ أن هذه الخاصية عبارة عن مجموعة من العناصر (على عدد عناصر تحكم النموذج) وترقم ابتداءً من صفر. وعلى هذا، يمكن الوصول…