ابوخليل

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

المشكلة عندك اما في برنامج الضغط او وندز

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

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

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

اخي الكريم الموضوع قديم منذ سنوات يمكنك بدلا من التعقيب فتح موضوع جديد بمسألتك

نعم يمكن بدون تدخل منك فقط اجعل القيمة الافتراضية للحقل في الجدول = Date()

شكرا لك استاذي نعم هو ما بحثت عنه بارك الله فيك وجعله في موازين اعمالك

تفضل لحذف السجل من لوحة المفايح واخفاء تحذير اكسس Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 46 Then DoCmd.CancelEvent If MsgBox("سيتم حذف السجل " & vbCrLf & _ "هل تريد المتابعة ؟؟", _ vbInformation + vbYesNo, _ "تحذير") = vbYes Then DoCmd.SetWarnings False DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 DoCmd.SetWarnings True Else Exit Sub End If End If End Sub db2.rar

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

السلام عليكم انظر الى آخر يسار السجل ، يوجد سهم صغير اسود اذا اردت حذف السجل حدد هذا السهم ثم انقر زر Del

السلام عليكم اخي بارك الله فيك اجتنب اي عمليات حذف او نقل داخل قاعدة البيانات تستطيع تحقيق طلبك بان تضيف حقل رقمي او حقل (نعم/لا) في جدول tab2 للتمييز بين السجلات المنتهية من غيرها

وبك اهلا ابا احمد نعم ولا اجمل .. وأعط القوس باريها وإذا اردنا ان ندخل الفئة (من/ الى ) حسب الاختيار db2.rar

السلام عليكم في المثال المرفق جدول يحتوي على اسماء وسنة الميلاد (اربعة ارقام) لكل واحد منهم المطلوب اظهار احصائية بالعدد حسب الفئة العمرية (بأقصر طريق) وكما هو موضح ومرسوم في النموذج علما انه يمكن استخراج العمر بمعلومية سنة الميلاد بمثل هذه Year(Date())-[brithyear] db1.rar

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

عليكم السلام ليست اصدار 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 تحول القيمة الفارغة الى صفر