mr steev

أعطاني رقم الخطأ 2105 لا يمكنك الذهاب للسجل المحدد في السطر عند الذهاب للسجل التالي DoCmd.GoToRecord , , acNext ماذا علي أن أفعل؟؟؟ قمت بما يلي فما رأيك: On Error GoTo Err_ÃãÑ8_Click Dim rst As DAO.Recordset Set rst = Me.RecordsetClone rst.MoveLast: rst.MoveFirst rc = rst.RecordCount DoCmd.GoToRecord , , acFirst For i = 1 To rc DoCmd.PrintOut acSelection DoCmd.GoToRecord , , acNext Next i DoCmd.GoToRecord , , acFirst Exit_ÃãÑ8_Click: Exit Sub Err_ÃãÑ8_Click: DoCmd.GoToRecord , , acFirst Resume Exit_ÃãÑ8_Click

الكود أصبح ممتاز لي لهذا الطلب بجهودك أستاذ جعفر Dim rst As DAO.Recordset Set rst = Me.RecordsetClone rst.MoveLast: rst.MoveFirst rc = rst.RecordCount DoCmd.GoToRecord , , acFirst For i = 1 To rc DoCmd.PrintOut acSelection DoCmd.GoToRecord , , acNext Next i DoCmd.GoToRecord , , acFirst ولكن عند الوصول للسجل الاخير لا يرجع للسجل الأول ولكن ذلك ليس له أهمية وإذا كان ذلك بإمكانك فلا بأس به وكرمكم علينا غزير وجزاك الله خيراً

عفوا أظنني لن أستفيد من هذا الكود ماذا لو تصحح لي هذه الإضافة على الكود الذي أدليت لي به سابقا Dim rst As DAO.Recordset Set rst = Me.RecordsetClone rst.MoveLast: rst.MoveFirst rc = rst.RecordCount For i = 1 To rc DoCmd.GoToRecord , , acNext DoCmd.PrintOut , , , , 1 Next i DoCmd.GoToRecord , , acFirst قمت باضافة DoCmd.PrintOut , , , , 1 بعد الانتقال للسجل التالي كيف يمكنني طباعة السجل الحالي ثم التالي فالتالي إالى أن أنتهي وأعود للسجل الأول

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

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

خطر في بالي أنه لو أن هناك زر أمر فيه كود تنقل تلقائي بين السجلات مع تنفيذ أمر الطباعة لكل سجل بدون تحديد الطابعة أي اعتماد الطابعة الافتراضية والعودة إلى السجل الأول بعد الانتهاء

هل من أحد لديه كود تنقل تلقائي بين السجلات والعودة إلى السجل الأول بعد الانتهاء

أريدها في الكود في الحالي حصراً

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

جزيت خيرا للحل السابق لكن هناك طلب آخر لو تكرمت،، ماذا لو كان النموذج الذي أحذف منه السجلات نموذج فرعي ؟؟ عندما قمت بالمحاولة أصبح يظهر لي رسالة أن النموذج الفرعي غير مفتوح فما الحل برأيك؟؟؟ جزاك الله خيرا Undeletion.rar

السلام عليكم كيف يمكنني الرجوع أو نقل التركيز إلى السجل السابق بعد عملية الحذف وبعد أمر Me.Requery تحديداً لقد قمت بهذه المحاولة لكن في بعذ الأحيان لا تنجح في نقل التركيز للسجل السابق بعد الحذف وذلك حصراً إذا كانت الأرقام غير متسلسلة أي كأن يكون أرقام السجلات 1-2-5-6-10-11-12-13.... فيرجى منكم التعديل وشكراً Undeletion.rar

جزاك الله خير أخ رمهان قد قمت بهذه المحاولة ويرجى التصحيح في حال الخطأ Undeletion.rar

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

السلام عليكم أريد كود لمنع حذف كافة السجلات في طريقة عرض النماذج المستمرة سواء بتحديد كافة السجلات عن طريق ضغط اختصار الكيبورد Ctrl+A ثم زر DELETE حذف كافة السجلات أو بتحديد كافة السجلات عن طريق ضغط اختصار الكيبورد Ctrl+A ثم اختصار Ctrl+X قص كافة السجلات والابقاء على حذف السجلات واحد واحد فقط وجزاكم الله خيراً Undeletion.rar

السلام عليكم لدينا في قاعدة البيانات المرفقة نموذجين وهناك زر حذف سجل يظهر لدي خطأ 3197 عند الضغط على زر حذف سجل أريد التعديل في الكود لتفادي هذا الخطأ والقيام بنفس الأوامر المدرجة عند الضغط على الزر قبل عملية حذف السجل ومن ثم حذف السجل المحدد SimpleStore.rar

جزاكم الله خيرا الحمد لله لقد وصلت لحل بواسطة أحد الأساتذة SimpleStore.rar

السلام عليكم بعطيك العافية لجهودك لكن أشعر أنه طولت اللفة علينا نحتاج لحل آخر جزاكم الله خير

أليس هناك من رد؟

السلام عليكم لدينا في الملف المرفق مثال بسيط لبرنامج المخزن والمطلوب كيفية حساب الكمية المتوفرة في المخزن من خلال تسجيل المدخلات والمخرجات في المخزن وعدم السماح باخراج كمية غير متوفرة من المخزن وجزاكم الله خير SimpleStor.rar

عذرا للدخول على الخط فهذه محاولة من اخوكم لما فهمته من المطلوب تقوم بوضع هذا الكود في حدث بعد التحديث للحقل المادة Private Sub المادة_AfterUpdate() Me.Refresh If DCount("*", "الدرجة", "[المادة]= form![المادة]") > 1 Then Me.المادة = "" MsgBox "لقد قمت بإدخال هذه المادة مسبقاً", vbOKOnly, "خطأ" Cancel = True End If End Sub أخوكم مصطفى طلاب1.rar

السلام عليكم أخي الكريم جزاك الله خيرا لاجتهادك ولكن ما طلبنه في الكود هو عكس ما قدمته لي في الحل وهو أني أريد ترحيل قيمة الحقل A من النموذج MainAB إلى السجلات في جدول AB بحيث تتجاور مع ما يقابلها في الحقل B وليس ارجاع القيمة من الجدول AB بل الترحيل للجدول AB وشكرا وبعد عدة محاولات توصلت لكود وأصبح 100% ضع الكود التالي في حدث عند الضغط على الزر DoCmd.RunSQL "UPDATE [AB] " & _ "SET A = form!A " & _ "WHERE B = " & Me.B مصطفى ...

السلام عليكم هذا ما استطعت الوصول إليه في صياغة المطلوب المعقد بعض الشيء فيرجى من ذوي الخبرة مساعدتي في طلبي لدينا نموذج MainAB الموجود في قاعدة البيانات المرفقة والمطلوب: أريد عند ضغط زر (Numbering) تحديث القيمة الموجودة في حقل A إلى ما يجاورها في الحقل B في جدول AB أي: يقوم الكود بالبحث في جدول AB وفي الحقل B تحديدا عن جميع السجلات المطابقة للحقل B في هذا النموذج ثم تحديث القيمة الموجودة في الحقل A إلى ما يجاورها في الحقل B في الجدول AB MainAB.rar

السلام عليكم كيف أقوم بإلغاء الكسر العشري وتقريب العدد في حقل (العمر شهريا) في قاعدة البيانات المرفقة MonthlyAge.rar

.

أليس هناك من رد علينا