امير عاطف

عفواً لعدم تناسق اللغة العربيه بالكود

الأخ أبوعبدالله2: لنفترض ان النموذج المسمى تسجيل مصدر سجله هو جدول اسمه ]تسجيل[ والنموذج المسمى عقود مصدر سجله هو جدول اسمه ]عقود[ ضع عند حدث الفتح on open للنموذج المسمى عقود الكود التالي: DoCmd.GoToRecord , , acNewRec Docmd.runsql"INSERT INTO عقود ( [رقم العقد], [نوع البيانات] ) SELECT تسجيل.[الرقم العام], تسجيل.النوع FROM تسجيل;" Me.Refresh

هل قمت بعمل Debug من خلال محرر القيجوال بيسك

جزاك الله كل خير نسأل الله العظيم أن يهديك ويجعلك بالطريق المستقيم

هل تقوم بعمل ضغط واصلاح لقاعدة البيانات بعد الحذف

عفواً اخي الكريم :$

الطريقة سليمه واذا لم تنفع يمكن استخدام الكود التالي ايضاً: Private Sub Form_Current() If Me.NewRecord Then If Me.RecordsetClone.RecordCount >= Parent!txtnum Then Me.AllowAdditions = False Else Me.AllowAdditions = True End If Else Me.AllowAdditions = True End If End Sub ومثال على ذلك تجده هنــــــــــــــــــــــــــــــــــــــا او تجد المثال مع المرفقات test.zip

ضع الكود التالي لحدث قبل الادخال Before Insert للنموذج الفرعي : Private Sub Form_BeforeInsert(Cancel As Integer) If Me.RecordsetClone.RecordCount >= Parent!txtnum Then Me.AllowAdditions = False End If End Sub

الأخ asaz : يجب عدم توجيه السؤال لشخص محدد حتى يتسنى للجميع المشاركة ادراج ملف باوربوينت فى الأكسس PowerPoint

ايضاً يمكن عمل ذلك باستخدام الداله Dcount

1 - ضع مربع نص على النموذج وليكن اسمه txtmove 2 - ثم تضع عند حدثالتحميل On Load للنموذج الكود التالي: txtmove = Space(100) & Dlast("strNews","tblNews") حيث tblNews هو اسم الجدول الذي يتم تسجيل االأخبار به و strNews هو اسم حقل الأخبار داخل الجدول الذي يتم التسجيل كل خبر بداخله بحيث يظهر آخر خبر دائماً بالشريط الإعلاني 3 - ثم تضع عند حدث الفاصل الزمني On Timer للنموذج الذي تريد العرض عليه الكود التالي: txtmove = Mid(txtmove, 2) & Left(txtmove, 1)

الأكواد الذي وضعها الأخ عصام بأعلى التي تقوم بغلق الجهاز واعادة تشغيله تعمل بشكل سليم وبدون مشاكل

ضعيها في مجلد الـ Startup

ضع الكود التالي عند حدث زر الأمر: Dim i As Integer For i = 1 To Forms!formcriteria!txtnum DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdCopy Me.txtnum.SetFocus DoCmd.GoToRecord , , acNewRec DoCmd.RunCommand acCmdPasteAppend Next i حيث txtnum هو اسم مربع النص الذي تقوم بكتابة عدد مرات السداد بداخله و formcriteria هو النموذج المتواجد عليه مربع النص txtnum والذي به حقول ادخال البيانات حيث لو قمت بكتابة الرقم 4 داخل مربع النص txtnum ثم تقوم بتسجيل عملية سداد واحدة فقط ثم تقوم بالضغط على زر الأمر الذي يقوم بتنفيذ الكود السابق فسوف يقوم بتكرار عملية السداد 4 مرات

1 - ضع مربع نص على النموذج وليكن اسمه txtmove 2 - ثم تضع عند حدثالتحميل On Load للنموذج الكود التالي: txtmove = Space(100) & "تضع هنا الخبر او اللإعلان الذي تريد عرضه" 3 - ثم تضع عند حدث الفاصل الزمني On Timer للنموذج الذي تريد العرض عليه الكود التالي: txtmove = Mid(txtmove, 2) & Left(txtmove, 1)

لحذف المستندات Kill ("D:\Documents and Settings\Ameer Atif\My Documentss\*.*")

استفسار حول وظيفة كـــود Me.Refresh تحديث Refresh كائن تحديثRefresh نموذج يحتوي على نماذج فرعية ولعمل زر يقوم بتحديث النموذج بشكل مباشر قم بوضع الكود التالي لحدث عند النقر On Click لزر الأمر: Me.Refresh

التعبير Order By يقوم باعطاء امر الفرز ولكن يمكن التحكم في نوع الفرز بأن يكون تصاعدي أو تنازلي عن طريق Ascending للترتيب التصاعدي Descending للترتيب التنازلي ولتطبيق ذلك على مثالك السابق لعمل ترتيب تصاعدي من خلال جملة SQL SELECT c2.c1, c2.c3 FROM c2 ORDER BY c2.c3; ولتطبيق ذلك كترتيب تنازلي من خلال جملة SQL SELECT c2.c1, c2.c3 FROM c2 ORDER BY c2.c3 DESC; اذا اردت عمل ذلك من خلال الكود اضغط هنــــــــــــــــــــــــــا

عن طريق حقل رقم الطالب

ممكن تضع عينه من البيانات كمثال

الكود 100% اخي جمال فايز: من الأفضل عدم توجيه السؤال لشخص محدد حتى يتسنى للجميع المشاركه ايضاً لا يمكن وضع اكثر من سؤال بالمشاركة حيث يجب ان يتم وضع كل سؤال بمشاركة مستقله

اما في حالة اظهار السجلات الغير فارغة اذاً في خانة المعايير(Criteria) للاستعلام اسفل الحقل الي من نوع مذكرة(memo) يتم كتابة التعبير Is Not Null

ضع في المعايير [a] فقط وسوف تظهر رساله تسألك عن قيمة المتغير اثناء تشغيل الاستعلام .. اذا اردت اكتب رقم 10 أو اي رقم اخر تريد ... ولكن اذا كان المتغير الذي تريد هو الرقم 10 ولا يوجد احتمال لتغييره اكتب في الجزء الخاص بالمعاير الرقم 10 فقط هذا من خلال ما فهمت من سؤالك

الرساله التي تظهر صحيحه لأنه لم تقومي باظهار الصف الخاص بالمجاميع (Totals) وحتى لو قمتي باظهار هذا الصف فسوف تقوم بعد السجلات حسب كل سجل بمعنى .. مثلاً لدينا حقل به رقم الصف وحقل اخر به رقم الطالب ونريد ان نعرف عدد الطلبه بكل المدرسه ... في هذه الحاله لا يجب ان نقوم بإدراج حقل رقم الصف بالاستعلام بل نضع حقل رقم الطالب فقط ونستخدم الدالة Count عن طريق اظهارالصف الخاص بالمجاميع (Totals) وفي هذه الحاله فسوف يعطينا عدد الكلي للطلبه بكل المدرسة واذا اردنا ان نقوم بادراج الحقل الخاص برقم الصف فسوف يعطينا العدد الكلاي للطلبه (بكل صف) وليس بكل المدرسه واذا اردنا معرفة العدد الكللي لكل الطلبه بالمدرسه كللها وايضا نريد ادراج حقل رقم الصف في هذه الحاله الداله Count لن تجدي ومن الأفضل استخدام الدالة Dcount

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