Shivan Rekany

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

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

اخي الكريم االيك هذا الكود Private Sub Emp_Noo_AfterUpdate() Forms!forma!ZH!نص11 = Me.Emp_Noo End Sub

ودائما بيكون الجواب موجود بوجود استاذ جعفر ارفق الملفات المطلوبة تحياتي

اذا بترفق المرفق راح يكون احسن لكي نتم العملية عليه وبدون مرفق راح انطيك كود حذف DoCmd.RunCommand acCmdDeleteRecord

اخي العزيز كما انا فهمت من الموضوع اليك الحل كالتالي تكدر في البداية ان تستورد شيت واحد كأساسي وتكدر تستورد الشيتات الاخرى واحد تلو الاخر كالحاق مع التقدير

اخي الحبيب عندك جدولين الجدول الاول باسم Ded_k2_In بها الحقول (name , no, in_tot , in_mon, in_bal , ,new_tot , new_mon , new_bal ... الخ ) وبها 8 اسماء فقط والجدول الثاني باسم tblcustomer وبها عده‌ حقول و 35 سجلات و عندك استعلام مصدره جدولين الاول والثاني شوف بيأخذ استعلام الحقول كلا الجدولين والنموذج مصدره استعلام لذا ما تكدر تكتب في الحقول لاسماء الجدول الثاني لانه في الحقيقة ما عنده ذاك الحقول اللي تريد ان تكتب فيها ولكن تكدر تكتب في الاسماء الثمانية لانه هم في جدول الاول وعندهم حقول متاحة لكي تكتب فيها اتمنى ان يوصل لك مفهوم مع تقدير

وين المرفق ممكن ترفق المرفق لكي جماعة بيقدر بيساعدك بقدر مستطاع مع تقدير

لمساتك سحر يا استاذ

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

عزيزي لاداعي للشكر علواجب احنا بالخدمه‌ ان شاء الله

من رخصة استاذي الجليل جعفر القدير اتفضل هذا استعلام لعل يفيدك db1 (13).rar

اتفضل اتمنى ان ينال اعجابك استخدمت هذا الكود Private Sub add_doc_AfterUpdate() Dim a As Integer a = DCount("[doc]", "tra", "[doc]='" & Me.add_doc & "'") If a >= 1 Then MsgBox "عفوا رقم المستند موجود مسبقاً برجاء اضافة رقم 0 على يسار الرقم الحالى" End If End Sub New (3).rar

نعم بكل تأكيد وانا عملت لهذه السنة وما قبله اي يعني 2016 و 2015 واذا صار سنة 2017 اوتوماتيكيا راح يصير لسنة 2017 و 2016 واذا تريد ان يكون لسنة الحالية فقط لا عليك الا ان تغير شرط في استعلام q2 من Format(Date();"yyyy") Or Format(DateAdd("yyyy";-1;Date());"yyyy") الى Format(Date();"yyyy") اي يعني كان يأخذ معلومات اللي في سنه‌ الحاليه‌ أو سنه‌ ما قبل الحاليه‌ اي يعني 2015 غيرها الى سنة حالية فقط مع تقدير

عزيزي اذا بتعمل شبكة يجب عليك اولا بتقسيم القاعدة البيانات الى قسمين قسم للجداول الرئيسي و قسم الاخر يأخذ من الجداول و تكدر تعمل فيها النماذج المطلوبة والا هنا طريقة تكدر تما تريد ولكن لازم بيكون كلا من النموذجين مفتوحين مثلا لو تريد عدم الامكانية النموذج b للحذف If Me.ÅØÇÑ__ÅØÇÑ_ãÍíØ334 = 1 Then Forms.b.AllowDeletions = False End If مع تقدير

الوقت اصعب من كل شي يا حبيبي اتفضل عملت استعلامين استعلام q2 هم اللي حصل على الدورات للسنة 2015 او 2016 واستعلام اخر اللي لم يحصل الى الدورات في ذاك السنين مع تقدير training.rar

اخي الكريم لا عليك الا تغير هذا السطر If Me.ert <> "فعال" Then الى If Me.ert = "موقوف مؤقت" Then مع تقدير

ممكن ترفع المرفق لو سمحت لكي نتم العملية مع التقدير

عفوا لكن ممكن توضح اكثر لو سمحت

ممكن ترفع المرفق ليتم العملية عليه

اتفضل كان مصدر النموذج استعلام اوردر و مصدر التقرير كان استعلام اخر انا غيرت مصدر التقرير باستعلام اوردر مثل المصدر النموزج مع تقدير ترتيب سجلات التقرير نفس ترتيب سجلات النموذج الفرعي.rar

اتفضل كما طلبت مع توجيه معاينة فاتورات بين تاريخين مع توجيه.rar

اتمنى من صاحب السؤال ان يشارك معنا هل وصلت للمطلوب ولا بعد مع تقدير

اه منك يا جعفر اه وينك يا استاذ الحمد لله طلع الشمس من منتدانا من جديد اخوك الصغير شفان ريكاني

خذ طريقة بين تاريخين 111 (1).rar