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

وعليكم السلام ورحمة الله وبركاته... من أجل هذا أخي بالضبط، تم تقديم دالة DSum... sum = DSum([field], [table], [condition]) field = القيمة table = الأصناف condition = ([حالة الصنف] = 'مباع')

بســم الله الـرحمــن الرحيــم الحمد لله. اللهم صل على محمد وعلى آل محمد كما صليت على إبراهيم، وبارك على محمد وعلى آل محمد كما باركت على إبراهيم، في العالمين إنك حميد مجيد... هل أنت مبرمج قواعد بيانات؟... سؤال أختاره لبدء هذه السلسلة من النقاشات التي تهدف إلى ب…

هذا هو الاستعلام: SELECT New_Q_File.Specification, New_Q_File.In_in, New_Q_File.Out_out, New_Q_File.Pro_Date, New_Q_File.Contract_Num, New_Q_File.Con, (select(sum([IN_in])-sum([OUT_out])) from [Contract_File] where New_Q_File.[Pro_Date]>=[Pro_Date] and New_Q_F…

تم تغيير اسم النموذج الفرعي... لذلك لم يعمل... emp_2.rar

وعليكــم السـلام ورحمة الله وبركاتـه.. هذا مثال بدون أي كود يمكن أن تستفاد منه بعض الأفكار.... emp.rar

وعليكم السلام ورحمة الله وبركاته... أخي أنت قد حللت المشكلة بالفعل بواسطة الاستعلام chang، ولم يبق إلا أن تكتب هذا الكود فقط (استعلام تحديث، استخدمنا الكائن DoCmd لتنفيذه عبر الطريقة RunSQL): DoCmd.RunSQL "UPDATE Chang SET OldQty = NewQty"

أخي، تلاستعلام ينبغي أن يكون شيئاً كهذا: SELECT CC_Applications.[status date], Mid([status date],12) AS [time], IIf(format([status date], 'hh:mm') between "17:00" and "24:00",[status date]+1,[status date]) AS Expr1 FROM CC_Applications

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

وعليكم السلام ورحمة الله وبركاته... بارك الله فيك أخي... فقط حدد مسار قاعدة البيانات التي ترغب في حذفها كالتالي: Kill "d:\victim.mdb" من أجل التجربة، أنشئ قاعدة بيانات اسمها victim.mdb في D، وأنشئ قاعدة بيانات أخرى (مثلاً killer.mdb)، ومن ضمن زر أمر مثلاً اكتب…

حسناً... هذا إذاً واحد من الحلول الممكنة... Report.rar

وعليكــم السـلام ورحمة الله وبركاتـه.. يا أخي إن لم تكن في حاجة الـ Report Header فأبعده فقط، فهو سبب المشكلة.... والله أعلم. Report.zip

وعليكــم السـلام ورحمة الله وبركاتـه.. طيب من الممكن أخي أن تتبع هذه الطريقة كما في الملف المرفق... الكود المضاف هو If IsNull(InvNo) Then InvNo = Nz(DMax("[f]", "[t]"), 0) + 1 End If في حدث Current للنموذج... هذا يعني أنه عند كل سجل، إذا كان حقل رقم الفاتورة خ…

وعليكم السلام ورحمة الله وبركاته... من أين تريد أن تحذفه؟ من قاعدة بيانات أكسس أخرى؟ استخدم الأمر Kill...

نعم، ممكن؛ هذه طريقة... INOUT.rar

وعليكــم السـلام ورحمة الله وبركاتـه.. جرب أخي هذا... Buildingg.zip

أظن أن الموضوع لا يتعدى إضافة حقل أو اثنين والله أعلم... charity.rar

من الممكن أن تنشئ جدولاً جديداً بناء على الاستعلام الذي لا يحوي البيانات المكررة ثم تقوم بحذف الجدول الأصلي... لكن من الأفضل منع التكرار أصلاً... إذا جعلت القيمة الافتراضية في حقل الوقت بالشكل Format(Now(); 'dd/mm/yyyy hh:mm') فإن الأكسس لا يقبل سجلين بنفس رقم…

وعليكــم السـلام ورحمة الله وبركاتـه.. هل هذا هو المطلوب أخي؟ INOUT.rar

بل نحن نشكرك على هذه الأفكار الجميلة... أسأل الله أن يفتح علينا جميعاً...

أخي الكريم، ما هذه dbsCurrent في السطر الأخير؟ لعلك تقصد CurrentDB؟ إذا استبدلت بها CurrentDB فإن الكود يعمل بالفعل...