خالد عبد الغفار قام بنشر أبريل 12, 2022 مشاركة قام بنشر أبريل 12, 2022 كل عام وانتم جميعا بكل خير بمناسبة الشهر الكريم بالمرفق نموذج اردت ان احدث السجلات دفعة واحدة عن طريق زر التحديث الموجود بالنموج ولكنة يحدث سجل واحد فقط ثم تقف على حقل (m_bg1) ليحدث السجل التالى وهكذا ارجو ممن لديه الخبرة المساعدة إن أمكن وللجميع تحياتى Database6.rar رابط هذا التعليق شارك More sharing options...
kanory قام بنشر أبريل 13, 2022 مشاركة قام بنشر أبريل 13, 2022 15 ساعات مضت, خالد عبد الغفار said: كل عام وانتم جميعا بكل خير بمناسبة الشهر الكريم بالمرفق نموذج اردت ان احدث السجلات دفعة واحدة عن طريق زر التحديث الموجود بالنموج ولكنة يحدث سجل واحد فقط ثم تقف على حقل (m_bg1) ليحدث السجل التالى وهكذا ارجو ممن لديه الخبرة المساعدة إن أمكن وللجميع تحياتى وانت في صحة وسلامة ...... اخي خالد ... دقق في البيانات هل هذه النتيجة هي المطلوبة ,,, 4 رابط هذا التعليق شارك More sharing options...
خالد عبد الغفار قام بنشر أبريل 13, 2022 الكاتب مشاركة قام بنشر أبريل 13, 2022 السلام عليكم ورحمة الله نعم استاذنا الفاضل البيانات الظاهرة سليمه بارك الله فيك وزادك من علمه كل عام وانتم بخير استاذنا رابط هذا التعليق شارك More sharing options...
kanory قام بنشر أبريل 13, 2022 مشاركة قام بنشر أبريل 13, 2022 1 ساعه مضت, خالد عبد الغفار said: السلام عليكم ورحمة الله نعم استاذنا الفاضل البيانات الظاهرة سليمه بارك الله فيك وزادك من علمه كل عام وانتم بخير استاذنا طيب ... تفضل ... Dim rst As Recordset '' Dim ast_1, ast_3, ast_4, ast_10, ast_11, ast_12, ast_t, cast_1 As Integer Set rst = CurrentDb.OpenRecordset("tb_mbd", dbOpenDynaset) With rst .MoveFirst Do While Not .EOF .Edit If rst!case_cod.Value = 1 Or rst!case_cod.Value = 2 Or rst!case_cod.Value = 4 Then rst!m_es_1.Value = rst!m_bg1 rst!m_es_3.Value = rst!m_bg1 * 6 rst!m_es_4.Value = rst!m_bg1 * 0 rst!m_es_10.Value = rst!m_bg1 * 0 rst!m_es_11.Value = rst!m_bg1 rst!m_es_12.Value = rst!m_bg1 rst!m_es_t.Value = rst!m_bg1 'Form.Refrm_esh End If If rst!case_cod.Value = 3 Or rst!case_cod.Value = 5 Then rst!m_es_1.Value = rst!m_bg1 rst!m_es_3.Value = rst!m_bg1 * 6 rst!m_es_4.Value = rst!m_bg1 rst!m_es_10.Value = rst!m_bg1 * 0 rst!m_es_11.Value = rst!m_bg1 rst!m_es_12.Value = rst!m_bg1 * 0 rst!m_es_t.Value = rst!m_bg1 'Form.Refrm_esh End If If rst!case_cod.Value = 6 Then rst!m_es_1.Value = rst!m_bg1 rst!m_es_3.Value = rst!m_bg1 * 5 rst!m_es_4.Value = rst!m_bg1 rst!m_es_10.Value = rst!m_bg1 * 0 rst!m_es_11.Value = rst!m_bg1 * 2 rst!m_es_12.Value = rst!m_bg1 * 0 rst!m_es_t.Value = rst!m_bg1 'Form.Refrm_esh End If If rst!case_cod.Value = 7 Then rst!m_es_1.Value = rst!m_bg1 rst!m_es_3.Value = rst!m_bg1 * 5 rst!m_es_4.Value = rst!m_bg1 * 0 rst!m_es_10.Value = rst!m_bg1 rst!m_es_11.Value = rst!m_bg1 rst!m_es_12.Value = rst!m_bg1 rst!m_es_t.Value = rst!m_bg1 'Form.Refrm_esh End If If rst!case_cod.Value = 8 Then rst!m_es_1.Value = rst!m_bg1 rst!m_es_3.Value = rst!m_bg1 * 5 rst!m_es_4.Value = rst!m_bg1 * 0 rst!m_es_10.Value = rst!m_bg1 rst!m_es_11.Value = rst!m_bg1 rst!m_es_12.Value = rst!m_bg1 * 0 rst!m_es_t.Value = rst!m_bg1 'Form.Refrm_esh End If .Update .MoveNext Loop End With '' Call t rst.close MsgBox "تم التحديث" 2 2 رابط هذا التعليق شارك More sharing options...
خالد عبد الغفار قام بنشر أبريل 13, 2022 الكاتب مشاركة قام بنشر أبريل 13, 2022 تمام استاذنا الفاضل / kanory وألف شكر لك وكل عام وانتم بخير مرة أخرى 1 رابط هذا التعليق شارك More sharing options...
kanory قام بنشر أبريل 13, 2022 مشاركة قام بنشر أبريل 13, 2022 الحمد لله رب العالمين ... حياك الله استاذ . خالد @خالد عبد الغفار 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.