ابوخليل

عليكم السلام ليست اصدار 2003 تم نقلها وتحويلها تفضل تم التعديل ، وقمت ببعض تعديل المسميات ،، db1.rar

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

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

الفكرة قريبة من الاولى ولكن هنا عملنا فلترة وفصل حسب النادي لاحظ القيمة الافتراضية في الجدول فمنطقيا قد يكون النقص من اليمين او يكون من اليسار لذا اي حقل فارغ ستظهر فيه العبارة الخاصة به rs.MoveFirst c1 = rs!club For i = 1 To ii If rs!club = c1 Then rs2.AddNew rs2!player1 = rs!player rs2!pl1club = rs!club rs2.Update rs.MoveNext Else rs.MoveNext End If Next i rs.MoveFirst rs2.MoveFirst For i2 = 1 To ii If rs!club <> c1 Then rs2.Edit rs2!player2 = rs!player rs2!pl2club = rs!club rs2.Update rs2.MoveNext rs.MoveNext Else rs.MoveNext End If Next i2 Append5.rar

اذا الوكلاء في جدول والمواطنين في جدول آخر فلنمسألة يسيرة فقط اربط علاقة بين الجدولين ( بين الرقمين في كلا الجدولين ) بحيث يكون جدول الوكلاء هو الرأس والآخر اطراف في هذا الوضع عندما تختار وكيلا يظهر جميع المواطنين المرتبطين به

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

وعليكم السلام انا رأيي لو كان التوزيع عشوائي او بالتوالي واحد ثم الذي يليه عموما تفضل هذا الكود يعمل حسب طلبك On Error GoTo err_g DoCmd.SetWarnings False DoCmd.RunSQL "DELETE Matches.*, * FROM Matches" DoCmd.SetWarnings True Dim rs, rs2 As Recordset Dim i, i2, c0, c1, c2 As Integer Set rs = CurrentDb.OpenRecordset("Qry1") Set rs2 = CurrentDb.OpenRecordset("Matches") c0 = DCount("*", "Qry1") c1 = c0 \ 2 c2 = c0 Mod 2 If c2 = 1 Then c1 = c1 + 1 rs.MoveFirst For i = 1 To c0 If rs.RecordCount = c1 + 1 Then rs2.MoveFirst For i2 = rs.RecordCount To c0 rs2.Edit rs2!player2 = rs!player rs2.Update rs2.MoveNext rs.MoveNext Next i2 If rs.RecordCount = c0 Then GoTo g Else rs2.AddNew rs2!player1 = rs!player rs2.Update rs.MoveNext End If Next i g: If c2 = 1 Then rs2.MoveLast rs2.Edit rs2!player2 = " بدون منافس" rs2.Update Else Exit Sub End If rs.Close rs2.Close err_g: Exit Sub Append2.rar

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

السؤال غير واضح !! لا يوجد شي اسمه نسخ الجدول ولصقه ، يوجد تعبير : جلب جدول او تصدير جدول او ربط جدول النسخ واللصق يتم التعبير به عن البيانات التي يتم نسخها ولصقها داخل الجداول ويمكن ان نعبر عنها ايضا بالتصدير والاستيراد وعموما كل ما تفكر به ممكن باذن الله : 1- حذف جدول وجلب آخر بديلا عنه من قاعدة أخرى 2- حذف بيانات جدول واستيراد بيانات اليه من جدول آخر خارجي

الاصل ان الحقول الرقمية تكون قيمتها الافتراضية في الجدول = صفر ولكن احيانا تظهر هذه الحقول الخالية في الاستعلامات و وعلاجها : جرب اذا كانت لديك مثل هذه expr:[a]+[b]-[c] استخدم الدالة NZ لتصبح الجملة هكذا expr:Nz([a])+Nz([b])-Nz([c]) الدالة NZ تحول القيمة الفارغة الى صفر

استخراج تاريخ الميلاد من الرقم القومي : =DateSerial(Mid([raqm_qomy];2;2);Mid([raqm_qomy];4;2);Mid([raqm_qomy];6;2)) باعتبار raqm_qomy هو حقل الرقم القومي hgyt2.rar

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

انا استخدم الخط Arial وانقل عملي على اجهزة كثيرة ولم اواجه اي مشكلة على جميع اصدارات اكسس

اخي الكريم سيتم نقل الموضوع الى الاعلانات الشخصية يمكنك هناك طرح مطلوبك ووضع وسيلة اتصال

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

ازيدك من الشعر بيت @alcasir كتب موضوعا جديدا منذ ساعة او ساعتين

المهم الفكرة تصل اليك الآن جرب : انقر زر 1 للنسخ ثم انقر زر2 للصق 6002.rar

بالنسبة للتاريخ الهجري انظر هنا اما تعديل الكود فيكون هكذا : =Round(DateDiff("d";[DateOfBirth];Date())/360;0) اما الخطأ الظاهر عندك فأعتقد بسبب عدم اعتماد التاريخ الهجري في قاعدة البيانات

طيب اين الملف الاصل accdb ؟ من المؤكد هو موجود عند التحويل نحن نأخذ نسخة من الملف ونحولها اما الاصل فيبقى كما هو نعم

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

اقرأمشاركتي اللأولى الرقم 1 في الكود اجعله صفر اما الهجري ففي مرفقي تم التعيين الى الهجري تجد هذا في خيارات قاعدة البيانات : استخدام التاريخ الهجري

اضغط على مفتاح الشيفت باستمرار بنفس اللحظة التي تفتح بها قاعدة بياناتك

تم التعديل لاحظ التالي : تم تغيير حقل العمر في الجدول الى تاريخ الميلاد تم عمل حقل لتاريخ الميلاد في النموذج حقل العمر يظهر آليا بمجرد كتابة التاريخ برنامج الايتام2.rar

مشاركة مع اخوتي : خذ البيانات من الجدول وليس من النموذج /// واستخدم دالة Dlookup والافضل من هذا كله ان الشرط يكون حسب متغير وليس رقما ، لان المستخدم قد يحتاج لتغييره لدواعي امنية ونحو ذلك

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