ابوخليل

جزاك الله خيرا استاذنا .. برامج التحزيم استفيد منها غالبا في تسجيل المكتبات وقتل الامان في اكسس

هذا هو DoCmd.RunCommand acCmdDatabaseSplitter ولكن الافضل أدلك على المستودع وتختار وتنتقي ما تريد في محرر الفيجوال اكتب العبارة التالية : DoCmd.RunCom ثم انقر زر المسافة ستظهر لك قائمة طويلة بمعظم أوامر أكسس

انقل الحدث من التنسيق الى الطباعة

حيث ان اكسس عندي لا يدعم هذا الاصدار فسأكتفي بالتعليق على صورة البرنامج الظاهرة الخلفية رائعة و تمنح المستخدم راحة في نفسه فملاحظتي انك تجعل للمستخدم صلاحية اخفاء الازرار اذا اراد حتى يعيش الاجواء التي خلفها

عليكم السلام DoCmd.RunCommand acCmdOptions

نستخدم الدالة iif : iif(text>0;text;0) 'text تمثل الكود الموجد تصبح كامل الجملة هكذا : =IIf(DSum("Alkmiah";"Hrakatsanf";"Rajmsanf='" & werNumSenf() & "'" & " and month(Atarih)=1" & " and Nwaha='" & 13 & "'")>0;DSum("Alkmiah";"Hrakatsanf";"Rajmsanf='" & werNumSenf() & "'" & " and month(Atarih)=1" & " and Nwaha='" & 13 & "'");0)

السلام عليكم الاخ الكريم ابوعمار تحية طيبة وبعد العمل على اكسس يختلف تماما عن اكسل ، فجداول اكسس لا يتم العمل عليها مباشرة ابدا ، وانما يتم العمل عليها من خلال النماذج والنتائج تظهر في التقارير اما بالنسبة للترقيم فالرقم المتسلسل في المحافظة او المديرية او المدرسة لا اعتبار له وانما يأخذ المعلم رقما خاصا فريدا ( الرقم القومي ) وحين تبحث عنه بهذا الرقم يظهر لك ضمن بياناته المحافظة والمديرية والمدرسة وبالنسبة للنقل في اكسس فهو يسير جدا بحيث يتم تحديث رقم المدرسة المعين عليها الى رقم المدرسة الجديدة ملحوظة : يتم في البداية ضبط الجداول ( رئيسية وفرعية ) بالنسبة لـــ المحافظات/المديريات/ المدارس بحيث كل محافظة يندرج تحتها المديريات التابعة لها وبحيث كل مديرية يندرج تحتها المدارس الخاصة بها اتمنى تكون استوعبت الدرس المبدئي

بما ان نوع الفاتورة نصي حسب مثالك في موضوعك السابق فسيكون التعديل هكذا : =DSum("Alkmiah";"Hrakatsanf";"Rajmsanf='" & werNumSenf() & "'" & " and month(Atarih)=1" & " and Nwaha='" & 13 & "'")

تفضل حذفت الكثير من الكائنات من اجل ترى كيف يتم تطبيق الفكرة انقر على السهم الاسود الصغير في النموذج الفرعي ثم استخدم زر السهم الى اسفل والى اعلى ولاحظ القيم في المربعات جلب القيمه2.rar

الطريقة التي عملتها لك هو الاعلان عن رقم الصنف عند اختياره من نموذج الادراج وبموجب هذا الرقم يتم جلب القيمة ولن تتغير القيمة الا بعد اختيار رقم صنف آخر قد تختفي للحظة حين يتم تحديث النموذج ولكنها ستظهر انا جربت المثال ويعمل بشكل ممتاز يبدوا انك نسيت بعض الاكواد عند تطبيقك على برنامجك

لا اعلم ما ذا حصل عندك وعلى الظاهر في الصورة : المفروض ان يكون الرصيد في شاشة المشتريات بالموجب حاولت اني اعيد العمليات وكانت النتيجة ان كل شي بالسليم ملحوظة : يمكنك فصل سند الدفع بحيث يكون منفصل تماما ، وبالطبع عند التعامل معه سيتطلب اختيار المورد او الزبون ‘ وايضا يتم ادراج المبلغ يدويا .

تفضل وكمل الباقي .. فقط غير الرقم في آخر السطر حسب الشهر جلب القيمه 1.rar

نموذج الدفع هو نموذج بسيط مرتبط لاسلكيا _ ان جاز التعبير_ بجدول الدفع اي انه غير منضم ويمكن جعل النموذج منضم مباشرة الى الجدول ولكني رأيت ان المسائل المالية بحاجة الى زيادة ضبط بحيث لن يتم ادراج اي بيانات الا بعد ضغط الزر والمسؤول عن الحاق البيانات في جدول المدفوعات هو هذا الكود الموجود في وحدة نمطية في المديول العام : Public Function cmdsavedAll() On Error GoTo ErrHandler Dim db1 As Database Dim rs As Recordset Set db1 = CurrentDb Set rs = db1.OpenRecordset("tblPay") rs.AddNew rs!pay_ID = Forms!FrmPay!pay_ID rs!FatoraType = Forms!FrmPay!FatoraType rs!ID_fGnt = Forms!FrmPay!ID_fGnt rs!pay = Forms!FrmPay!pay rs!Paydate = Forms!FrmPay!Paydate rs.Update ErrHandler: If Err.Number = 3022 Then MsgBox "مكرر" Exit Function End If rs.Close: Set rs = Nothing End Function ويتم استدعاؤه في حدث الزر بـــ cmdsavedAll فيقوم بالحاق البيانات في جدول المدفوعات

عليكم السلام المثال فيه سجلين فقط بيع يعني لا بد مثالك (جدول الحركة ) يكون وافي ويشتمل على مبيعات كثيرة وفي تواريخ متعددة وانت لست بحاجة الى استعلامات الحاق واستعلام جدولي وجداول مؤقتة حيث يمكن استخراج المطلوب من الجدول مباشرة المهم في الامر : ماذا تستفيد من وضع حقول تبين عدد المبيعات خلال الشهر ، هذا الاجراء مكانه الصحيح التقارير وبالتحديد في البيانات الاحصائية والرسوم البيانية

الافضل على الصيغة نفسها mdb حتى يتمكن الجميع من الاستفادة مع الشكر والتقدير

عليكم السلام اهلا بك ابا عبدالله .. المشكلة نابعة من ان العدد يتم ادراجه في الجدول والاستعلام يحسبها على طول فانا لما قمت بحذف القيمة الافتراضية من الحقل في النموذج وجعلت الحدث قبل التحديث امكنني التعديل بدون ظهور الرسالة بشرط اني لا اخرج من السجل ، ولكن عندما اجعل التركيز على السجل الثاني وارجع اريد التعديل تظهر الرسالة فالحل المحكم الذي اراه احد اثنين : الاول : ان نجعل النموذج غير منضم ويتم الحاق البيانات بالكود الثاني : التحايل وذلك بجعل الحقل غير منضم وعمل حقل وسيط مخفي ياخذ قيمته من الحقل المذكور ما رأيك ؟ .. وهل تعتقد وجود حل آخر اسهل ؟

تفضل 1599.rar

السلام عليكم لست بحاجة الى ضم جداول ولا الى استعلامات تجميع فقط اجعل مصدر النموذج هو جدول الاسماء واستخدم مثل هذا السطر لجلب القيمة : =DCount("ID";"TTaweedh";"EmbNo='" & [EmbNo] & "'") مثال.rar

عليكم السلام اضبط خصائص العلاقة كما هو ظاهر في الصورة

وعليكم السلام تم عمل مثال حسب الطلب احتساب التأخر بين فترتين .rar

تم عمل المطلوب في الاستعلام علما ان الدرجات غير مكتملة حيث لا يوجد درجات في اعمدة النتائج التبديل بين حقلين4.rar

الحقول التي ذكرتها في الــ sheet لا يوجد فيها درجات ؟

شكرا للاستاذ شيفان على ما يقدمه من جهد ووقت وفائدة وشكرا لاخونا السالم على حسن خلقه وعلى وصبره تم تنقيح الموضوع وحذف المشاركات الزائدة تفضل اخونا هذه محاولة جعلت عملياتك وحسب فهمي في وحدة نمطية عامة Public Function wrWagt(time1 As Date, time2 As Date, rateb As Double, fram1 As Byte) Dim wrHour1, wrHour2, wrHour3, wrHour4 As Integer Dim tawed1, tawed2, tawed3, tawed4 As Double If time2 <= "21:00" Then wrHour1 = DateDiff("h", time1, time2) tawed1 = 0.01 ElseIf time2 > "21:00" And time2 <= "23:00" Then wrHour1 = DateDiff("h", time1, "21:00") tawed1 = 0.01 wrHour2 = DateDiff("h", "21:01", time2) tawed1 = 0.02 ElseIf time2 > "23:00" And time2 <= "23:59" Then wrHour1 = DateDiff("h", time1, "21:00") tawed1 = 0.01 wrHour2 = DateDiff("h", "21:01", "23:00") tawed2 = 0.02 wrHour3 = DateDiff("h", "23:01", time2) tawed3 = 0.01 ElseIf time2 > "00:01" And time2 <= "12:00" Then wrHour1 = DateDiff("h", time1, "21:00") tawed1 = 0.01 wrHour2 = DateDiff("h", "21:01", "23:00") tawed2 = 0.02 wrHour3 = DateDiff("h", "23:01", "23:59") tawed3 = 0.01 wrHour4 = DateDiff("h", "00:01", time2) tawed3 = 0.01 End If If fram1 = 1 Then wrWagt = rateb * tawed1 * wrHour1 + rateb * tawed2 * wrHour2 + rateb * tawed3 * wrHour3 + rateb * tawed4 * wrHour4 Else wrWagt = rateb * 0.05 * wrHour1 + rateb * 0.05 * wrHour2 + rateb * 0.05 * wrHour3 + rateb * tawed4 * 0.05 End If End Function التعويض عن العمل الإضافي2.rar

تفضل Public adat1_, bdat2, cdat3 As Integer Public Function kmDate(d1 As Date, d2 As Date) adat1 = DateDiff("yyyy", d1, d2) If adat1 >= 4 Then bdat2 = 4 cdat3 = adat1 - bdat2 Else MsgBox "لا يوجد مدة كافية او البيانات غير صحيحة" End If End Function db1.rar

اخوي انا صححت كودك الموجود في التقرير لاحظ الخانات الموجودة في رأس الصفحة يتم تعبأتها بناء على الصف قم بالتبديل بين الصفحات لترى النتيجة ايضا في المرفق ادناه عدلت على العنوان في رأس التقرير بحيث يتناسق مع كل صفحة حسب الصف اذا المطلوب غير هذا عليك زيادة الايضاح التبديل بين حقلين3.rar