ابوخليل

تفضل لحذف السجل من لوحة المفايح واخفاء تحذير اكسس 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 تحول القيمة الفارغة الى صفر

استخراج تاريخ الميلاد من الرقم القومي : =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) اما الخطأ الظاهر عندك فأعتقد بسبب عدم اعتماد التاريخ الهجري في قاعدة البيانات