rudwan

السلام عليكم هذا مثال فيه استعلامين الأول يلحق سجلات الجدول CurrentStudent بالجدول Student و الثاني يقوم بتحديث حقل Age في جدول Student بناء على قيمة نفس الحقل في الجدول CurrentStudent و ذلك عندما يتحقق شرط تطابق الاسم Update_Append.rar

السلام عليكم نرجو عند طرح موضوع أن يكون المطلوب واضحا بشكل مفصل حتى تحصل على الجواب أسرع من هكذا . الحقل في النموذج الفرعي الآخر هو ناتج طرح الحقل في النموذج الفرعي الأول من حقل آخر [stco]-[addtlab] AS frg و بهذه الحاله لن يكون stco أقل من frg بحال من الأحوال نرجو توضيح أكثر للمطلوب

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

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

اذا أعد تنصيب الويندوز مره أخرى , ثم الأوفيس

لديك جدول الامتحانات فيه سجلين ( أي نوعين من الامتحانات ) , و جدول الموظفين فيه ثلاثة موظفين . و لمعرفة الامتحانات المفروض عملها لجميع الموظفين , عملنا الاستعلام exames due الذي يأخذ الجدولين الامتحانات و الموظفين بدون أي علاقه بينهما , ليعطي ستة سجلات هي عباره عن 3 * 2 اي ثلاة موظفين و كل موظف لديه امتحانين الآن في جدول الانتائج لدينا أربعة سجلات , حيث موظفين اثنين خاض كل منهما عدد 2 من الامتحانات , نريد الآن معرفة الموظفين الذين لم يتقدموا للاختبار بعد , و ذلك يتم بأخذ الفرق بين الاستعلامين exames due - results و الناتج هو الاستعلام ExamesDue Without Matching Result الذي يعطي سجلين هما الموظف الذي لم يتقدم للامتحانات بعد . و من خلال النموذج عملنا مربع تحرير و سرد للادارت , و باختيار كل اداره يتم معرفة الموظفين في تلك الاداره الذين لم يتقدموا للامتحان بعد اعتمادا على نفس الاستعلام الأخير ExamesDue Without Matching Result

ليس هناك علاقه بين رقم المورد و رقم الزبون , كل منهم له حقله الخاص ضمن جدول حركة المخزون

هذا ملف ممتاز للنسخ الاحتياطي من موقع أجنبي تقوم باختيار قاعدة البيانات الت يترغب بنسخها ( يمكنك اختيار أكثر من واحد ) , ثم تحدد مسار ملف النسخ الاحتياطي , ثم تقوم بتحديد التوقيت التي ترغب أن يتم نسخه يوميا AutoBkUp2K.rar

حاول تصحيح تنسيق التاريخ من الاعدادات الاقليميه للويندوز

أضف المعامل fix الذي يتكفل بحذف الخانات العشريه بعد الفاصله Private Sub CS_Exit(Cancel As Integer) If ([Cash] * 0.0015) < 15 And ([Cash] * 0.0015) > 0 Then AU = 15 Else AU = fix(([Cash] * 0.0015)) End If End Sub

أرفق لي ملفك كما هو موضح في أعلى صفحة مواضيع القسم

دع الحقل الثاني تاريخ أيضا بدلا من نص , و اجعل تنسيقه mmm-yyyy و اجعل قيمته الافتراضيه تساوي قيمة الحقل الأول . ثم ضع الكود التالي في حدث بعد التغيير للحقل الأول if day(MyDate)>15 then MyText=dateadd("M",[MyDate],1) end if

طبعا الأفضل أن يكون جدول تفاصيل البضاعه موحدا و الترقيم التلقائي لايؤثر و يمكن التمييز بين المبيعات و المشتريات من خلال حقل الكميه ( وارد - صادر ) يمكنك الاطلاع علىالموضوع التالي , و تحميل الملف الأخير فيه قد يساعدك برنامج مبيعات و مخازن

السلام عليكم اذا كان لديك الحقل الرقمي MyNumber و الحقل النصي MyText ضع هذا الكود بعد التحديث للحقل الرقمي private sub MyNumber_AfterUpdate() if mode([MyNumber]/2)<>0 then MyText.visible=false end if exit sub

انسخ الكود التالي و ضعه في حدث زر أمر على النموذج Fixed Private Sub Command32_Click() Dim f As String f = "UPDATE fixed, salary SET salary.alaw1 = [fixed].[alaw1], salary.alaw2 = [fixed].[alaw2], salary.alow3 = [fixed].[alaw3];" DoCmd.RunSQL f End Sub و هذا طبعا مثال لتحديث قيم ثلاثة حقول , و يمكنك التعديل في الكود حسب الحقول التي تريدها

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

الملف بعد التعديل Train.rar

اتظر الاستعلام الأول Train.rar

اذا كان يتم ادخالبيانات الراتب من خارج النموذج ممكن أن تضع الكود التالي Private Sub Form_Current() Me.TotalSalary = Me.BasicSalary + Me.Commidation + Me.ExtaPayment + Me.Food + Me.Transports End Sub أما اذا كان الادخال يتم من خلال نفس هذا النموذج , ممكن أن يكون الكود كما يلي : Private Sub ExtaPayment_Exit(Cancel As Integer) Me.TotalSalary = Me.BasicSalary + Me.Commidation + Me.ExtaPayment + Me.Food + Me.Transports End Sub

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

الملف الأخير يعمل بشكل جيد أعد التحميل مره أخرى

السلام عليكم هذا الملف المرفق من الأخ himas itemes.rar

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

أرجو توضيح ما هو الاستعلام المطلوب ؟ ادخال البيانات الرئيسي يتم من خلال نموذج النتائج حيث يتم اختيار رقم الامتحان و في النموذج الفرعي يتم ادخال أرقام الموظفين الممتحين و نتائجهم

الأخ himass شكرا على تجاوبك و عودتك للموضوع يمكنك تحميل الملف في الصفحه الرئيسيه للمنتدى - قسم التحميل المؤقت و سيتم ارفاقه بالموضوع نفسه بعد ذلك تحياتي