كل الانشطه

المطلوب الأول حسب ما فهمت ، استبدل الاستعلام في الزر "تحويل حالة هذه الكتب ..." بالاستعلام التالي CurrentDb.Execute "UPDATE [جدول تسجيل الكتب] SET CaseBook = 'مفقود' WHERE [G N] = (SELECT MAX([G N]) FROM [جدول تسجيل الكتب]);", dbFailOnError المطلوب الثاني غير مفهوم .. وأتمنى منك التوضيح بشكل مفهوم أخي الكريم

تفضل Data125.rar

لا أعلم لم لا يتم التقيد بسياسة المنتدى عند فتح اي موضوع أخي الكريم 🙄 فلم تأتِ على ذكر ان الكود جزء من مديول ، هذا أولاً . ثانياً لا يتم الأمر بالصورة التي تتوقعها ، ولكن سيكون هناك دالة منفصلة على هذا الطلب . على العموم ، في مديول جديد أو موجود ، انسخ الدالة التالية ، والصقها في مشروعك :- Public Sub FokshBTN(btn As commandButton, ByVal PNAME As String, ByVal Kind As String, Optional ByVal JO_Title As String = "تأكيد طباعة") On Error Resume Next Dim msg As String msg = "الخاص " & btn.Caption & " هـل . . . . . تريـد طبـاعة تقريـر" & vbNewLine & vbNewLine & _ " بـــ " & PNAME & " " & Kind If MsgBox(msg, vbQuestion + vbMsgBoxRight + vbYesNo, JO_Title) = vbYes Then DoCmd.PrintOut DoCmd.Close acReport, Reports(0).Name Else DoCmd.Close acReport, Reports(0).Name End If End Sub ثم في أي زر ، يتم الاستدعاء بالشكل التالي :- FokshBTN Me.ActiveControl, PNAME, Kind 😅

في النموذج F_GardBooks عند الضغط على مفتاح "تحويل حالة هذه الكتب الى فاقد" يتم تحويل حالة الكتب من موجود الى فاقد كما هو الحال الان المطلوب اضافة في SQl معيار تحويل سنة الجرد لهذه الكتب إلى السنة الجرد الاخيرة فقط وفي حالة كانت حالة الرقم العام لهذا الكتاب فاقد من سنوات جرد سابقا تظهر العبارة التالية "هذا الكتاب كان فاقد في سنة الجرد / " أرجو أكون وصلت الفكرة وجزاكم الله خيرا

بارك الله فيك أخي الفاضل وزادك الله من علمه جميل الاختصار ده بس عايز كل طالب امامه رقم الجلوس والرقم السري في النموذج زي الصورة دي بتاعة الفصل الدراسي الأول والثاني

معلمى الفاضل دى وحدة نمطبة مش هينفع استخدم me ثم حضرتك دى بتعمل علي اكثر من زر مش هايتفع Me.BTNFoksh لان كل زر لة اسم انجليزىو Caption انجليزى مختلف

ما فهمت شي من المطلوب بشكل واضح للأسف ، ولكن من خلال رؤية بنية الإستعلام ، استعمل الشرط التالي في الحقل G N :- (SELECT MAX([G N]) FROM [جدول تسجيل الكتب]) بدلاً من عبارة ( [أعلى رقم جرد] ) . على ما أعتقد إذا كان فهمي للوضع صحيح .. وأخبرنا بالنتيجة

أستاذي الكريم جزاكم الله خيرا مرفق نموذج مصغر للقاعدة والمطلوب فيها هو المطلوب 1.في النموذج F_GardBooks مفتاح تحويل حالة الكتب الى فاقد كما هو مطلوب اضافة تحويل رقم الجرد إلى أحدث رقم جرد أي تعديل الكود التالي كما تراه SELECT MAX([G N]) FROM [جدول تسجيل الكتب] 2. عند تسجيل الرقم العام للكتاب في الحقل txtSearch يتم تحوبل حالة الكتب من الفاقد إلى موجود (زر تحديث) كما هو موجود اضافة إذا كان هذا الرقم العام للكتاب كان فاقد في تاريخ جرد سابق يذكر العبارة MsgBox " الكتاب تالف في عملية الجرد سابقة لسنة " & from_to 3. في التقرير وضع في المعيار (SELECT MAX(from_to) FROM T_Gard) في العمود G N مع تعديل ما يلزم (اسم الجدول "جدول تسجل الكتب"، واسم العمود "G N وجزاكم الله خيرا وأشكركم لسعة صدركم هلما بأن القاعدة على أكسس 2003 القاعدة.rar

السلام عليكم ورحمة الله وبركاتة نشكركم على جهودكم ملاحظة :- هنالك عده اشخاص يستفيدون من البرنامج فى عده دول وهنالك اختلاف فى العملات والبرنامج يظهر الريال السعودى فقط هل يمكن تعديل العمله على حسب عمله الدوله التى متوجد بها ولكم الشكر

شاكر جدا لتنبيهي علي ذلك لكن لو امكن تحويل موضوعي لهذا القسم

اعتقد ان القسم المناسب لنشر الموضوع هو قسم الإعلانات الشخصية للأعضاء

برنامج ادارة بيانات ادارة تعليمية بمدارسها للبيع مع امكانية تقسيمها علي سيرفر be&fe للطلب والاستعلام 012730901221

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

لم انسك ولكني تركت متابعة العمل قصدا .. لايمكن الاستمرار .. لأن الطريقة ستختلف جذريا

تحسين الإتصال بقاعدة البيانات الخلفية ( الجداول ) ، وتلافي أخطاء محتملة .. تحسين واجهة العرض الرئيسية ( شاشة الإنتظار ) ، وتحسين سرعة في تحديث البيانات على الشاشة . عدم إتاحة الفرصة لأي مستخدم باختيار قاعدة بيانات خلفية غير المسموح بها . توسيع صلاحيات المدير بإضافة ميزة النسخ الإحتياطي ( إنشاء و إستعادة ) . وهذه الميزة جديدة بفكرتها ، بحيث تتميز بـِ :- التعامل مع الجداول فقط عند النسخ الإحتياطي أو الإستعادة ، وليس كقاعدة كاملة . ولكن بسهولة ويسر .. التعامل بإحترافية مع تضمين كلمة المرور الحالية للقاعدة المرتبطة ضمن اسم النسخة الإحتياطية ( باستخدام تشفير بسيط Base64 ) . سهولة تمرير كلمة المرور لكل قاعدة يتم استعادتها أو ربطها من النسخ الإحتياطية - دون الحاجة إلى كتابة كلمة مرور قاعدة بيانات الجداول - حتى لو اختلفت من نسخة الى نسخة . توحيد مجلد قاعدة البيانات الخلفية في مكان واحد لجميع الأجهزة المرتبطة عند الإستعادة لأي نسخة احتياطية . عملية ربط ديناميكية سريعة محدثة عن النسخة السابقة . نظام رسائل تنبيه حديث ومتطور ( بدلاً من رسائل آكسيس ) . حيث تم الإستغناء عن 90% من رسائل آكسيس التقليدية MsgBox . تحسين تفاعل شاشة المدير مع المستخدم . افتح قاعدة بيانات المدير (Manager Controls) ، وسيطلب منك اختيار قاعدة بيانات الجداول الخلفية المرفقة بجانب قاعدة البيانات حالياً باسم (TBL) ، والغير محمية بكلمة مرور طبعاً - ( الأمر اختياري لك ) . الآن تباعاً سيتم نسخ قاعدة البيانات الى المجلد TBL:- \Data\TBL انتهى دور المدير في الوقت الحالي . الآن بالتسلسل سيقوم كل موظف / جهاز حجز الدور بتشغيل قاعدة بياناته ، وسيطلب منه تحديد قاعدة البيانات الخلفية بشكل يدوي أول مرة طبعاً فقط . وهنا فقط تستطيع الربط مع القاعدة الموجودة في المجلد \Data\TBL في مساره على الجهاز الرئيسي طبعاً . بعد تحديد مسار الملف بغض النظر عن موقعه ( شبكة محلية / بجانب قاعدة البيانات ... إلخ ) سيتم فتح نافذة - ( الصورة أدناه ) - تطلب منك إدخال كلمة مرور الجداول ، فإذا كانت محمية بكلمة مرور فقم بكتابتها . وإلا اضغط موافق واترك الخانة فارغة للمتابعة . ونكون قد انتهينا من الربط وتهيأة النظام للعمل 😅 . :- دائماً يسعدني إبدائكم الرأي والملاحظات حول الأخطاء والمشاكل التي يمكن مواجهتها في أي مشروع يتم تأسيسه في آكسيس أو غيره من لغات البرمجة . في حال رغبتك أخي المستخدم بإضافة التقارير ، فقد تم تأسيس الجداول بسهولة ودون تعقيد ، وبعدد حقول قليل ويخدم جميع البيانات التي تحتاجها . QMS 1.3.zip

وعليكم السلام ورحمة الله وبركاته ,, If MsgBox("الخاص " & Me.BTNFoksh.Caption & " هـل . . . . . تريـد طبـاعة تقريـر" & vbNewLine & vbNewLine & _ " بـــ " & PNAME & " " & kind, vbQuestion + vbMsgBoxRight + vbYesNo, JO_Title) = vbYes Then DoCmd.PrintOut DoCmd.Close acReport, Reports(0).Name Else DoCmd.Close acReport, Reports(0).Name End If جرب هذا التعديل ؟؟

هل استخدمت التجميع في الاستعلام ؟؟؟؟ اذا لم يكن هناك دوال حسابية في الاستعلام ، فحاول استخدم التجميع ، وفي الحقل G N ، في الحقل Total = Max ... غير ذلك ، أعتذر لعدم إفادتك دون ملف مرفق !!!!

انظر لهذه الرسالة يمكن انا اريد أضع مع معيار التحديث أن يكون في أعلى رقم

ابعت ملفك أخي الكريم

ان شاءالله استاذي (ابو خليل) ماناسني🙏🙏🙏

فعلا استاذي الكريم تعلمت ذلك ولكن بعد ما قطعت مشوار طويل في هذه القاعدة الحين أريد تعديل الكود للضرورة للاسف الكود الذي حضرتك قلت لي أجربه به خطأ واعطاني هذه الرسالة أرجو أن يتسع صدركم لي

الخبراء الافاضل بعد التحية هل استطيع اظهار اسم الزر فى رسالة بمعنى عندى اكثر من زر وكل زر يفتح تقرير معين مثلا زر urine عند الضغط علية تظهر رسالة مكتوب بها If MsgBox("هـل . . . . . تريـد طبـاعة تقريـر الخـاص " & vbNewLine & vbCrLf & _ " بـــ " & PNAME & " " & kind & " ", vbQuestion + vbMsgBoxRight + vbYesNo, JO_Title) = vbYes Then DoCmd.PrintOut DoCmd.close acReport, Reports(0).Name Else DoCmd.close End If اريد بعد كلمة تقرير الموجود بالرسالة اضيف ال Caption الخاص بالزر

لا طبعا حضرتك لفت انتباهي إلى إنه ممكن تغيير الاوفيس فانتبهت الى أنه قد يكون لهذا السبب أشكر حضرتك على مساعدتي كثيرا

وعليكم السلام ورحمة الله وبركاته ،، في المسميات العربية والتي دائماً ننبه من خطأ وخطورة استعمالها في الحقول والجداول من جهة ، ومن جهة أخرى الفصل بمسافة بين اسماء الحقول والجداول بدلاً من استعمال إشارة "_" ، يجب استعمال الحاصرتين [] لتمييز اسماء الحقول والجداول بالعربية .. جرب هذا التعديل :- SELECT MAX([G n]) FROM [جدول تسجيل الكتب]

وعليكم السلام ورحمة الله وبركاته ,, اذا إجابتك هي من يجب اختيارها ، وليس إجابتي يا صديقي . شكراً على متابعتك وثقتك .