محمدنجار قام بنشر فبراير 1, 2018 مشاركة قام بنشر فبراير 1, 2018 اخوتي اعضاء واداريوا المنتدى المحترمون ... السلام عليكم :: كيف يمكن تكرار سجل النموذج الفرعي الاول بمقدار العدد الذي اقوم بكتابته في تكست الرئيسي No of dbl :: مع اضافة رقم واحد في حقل Emp_No لكل سجل تسلسلي مضاف في الفرعي ..... مع التقدير رابط هذا التعليق شارك More sharing options...
صالح حمادي قام بنشر فبراير 1, 2018 مشاركة قام بنشر فبراير 1, 2018 السلام عليكم أخي محمد جرب الكود بهذه الطريقة غير به ما تحتاج حسب حاجتك: Dim i As Integer For i = 1 To Me.t4 DoCmd.RunSQL "INSERT into tbl(id, nn, ff) VALUES (" & Me.hh.Form![id] + i & ",'" & Nz(Me.hh.Form![t2], "") & "'," & Me.hh.Form![t3] & ");" Next i Me.Refresh و هذا المرفق يوضح ذلك tt.rar 1 2 رابط هذا التعليق شارك More sharing options...
محمدنجار قام بنشر فبراير 1, 2018 الكاتب مشاركة قام بنشر فبراير 1, 2018 1 ساعه مضت, صالح حمادي said: السلام عليكم أخي محمد جرب الكود بهذه الطريقة غير به ما تحتاج حسب حاجتك: Dim i As Integer For i = 1 To Me.t4 DoCmd.RunSQL "INSERT into tbl(id, nn, ff) VALUES (" & Me.hh.Form![id] + i & ",'" & Nz(Me.hh.Form![t2], "") & "'," & Me.hh.Form![t3] & ");" Next i Me.Refresh :: عليكم السلام اخي الكريم صـــــــالـح .... وشكرا لك لما تفضلت به. :: بعد تعديل الكود اصبح كالتالي : Dim i As Integer For i = 1 To Me.emp_No DoCmd.SetWarnings False DoCmd.RunSQL "INSERT into tbl_employee(co_id, emp_no, cost) VALUES (" & Me.Frm_Employee.Form![co_id] & "," & (Me.Frm_Employee.Form![emp_No]) + 1 & "," & Me.Frm_Employee.Form![cost] & ")" DoCmd.SetWarnings True Next i Me.Refresh :: لكن المشكلة هي في emp_no في السجل الثاني فقط يزداد رقم واحد ويتكرر في بقية السحلات ؟! المطلوب لكل سجل يزيد رقم واحد ... MultiDubl_1.rar رابط هذا التعليق شارك More sharing options...
صالح حمادي قام بنشر فبراير 1, 2018 مشاركة قام بنشر فبراير 1, 2018 15 دقائق مضت, محمدنجار said: : لكن المشكلة هي في emp_no في السجل الثاني فقط يزداد رقم واحد ويتكرر في بقية السحلات ؟! المطلوب لكل سجل يزيد رقم واحد ... لو لاحظت أخي الكود الذي أرسلته لك لم أضع فيه +1 بل وضعت فيه +i 1 رابط هذا التعليق شارك More sharing options...
محمدنجار قام بنشر فبراير 1, 2018 الكاتب مشاركة قام بنشر فبراير 1, 2018 الان, صالح حمادي said: لو لاحظت أخي الكود الذي أرسلته لك لم أضع فيه +1 بل وضعت فيه +i :: نعم اخي صحيح كان خطأي ... شكرا لك لقد تم حل المشكله ... اصلح الله دنياك واخرتك .. رابط هذا التعليق شارك More sharing options...
صالح حمادي قام بنشر فبراير 1, 2018 مشاركة قام بنشر فبراير 1, 2018 1 دقيقه مضت, محمدنجار said: نعم اخي صحيح كان خطأي ... شكرا لك لقد تم حل المشكله ... اصلح الله دنياك واخرتك آمين يا رب العالمين و إن شاء الله أجمعين 1 1 رابط هذا التعليق شارك More sharing options...
حميد المعزبي قام بنشر فبراير 1, 2018 مشاركة قام بنشر فبراير 1, 2018 بارك الله في جهودكم ونفع الله بكم 2 رابط هذا التعليق شارك More sharing options...
محمدنجار قام بنشر فبراير 4, 2018 الكاتب مشاركة قام بنشر فبراير 4, 2018 في 2/1/2018 at 15:49, صالح حمادي said: لو لاحظت أخي الكود الذي أرسلته لك لم أضع فيه +1 بل وضعت فيه +i الاخ العزيز .... @صالح حمادي . :: مالذي يمنع حقل التاريخ وكذلك حقل الكومبو بوكس من التكرار اسوة ببقية الحقول ؟ مع التقدير MultiDubl_2.rar رابط هذا التعليق شارك More sharing options...
صالح حمادي قام بنشر فبراير 4, 2018 مشاركة قام بنشر فبراير 4, 2018 7 ساعات مضت, محمدنجار said: مالذي يمنع حقل التاريخ وكذلك حقل الكومبو بوكس من التكرار اسوة ببقية الحقول ؟ مع التقدير تفضل هذا كود آخر يقوم بالعمل بشكل جيد Dim x As String, y As Integer, r As Integer, d As Date Me.Frm_Employee.SetFocus DoCmd.GoToRecord , , acFirst x = Me.Frm_Employee.Form![emp_No] y = Me.Frm_Employee.Form![co_id] r = Me.Frm_Employee.Form![cost] d = Me.Frm_Employee.Form![birthdt] If Me.No_of_dbl = "" Then MsgBox "Please Type No Of Employee" Else MsgBox "Are you sure you want add ," & [No_of_dbl] & ", Passengers" Dim i As Integer For i = 1 To Me.No_of_dbl DoCmd.GoToRecord , , acNewRec Me.Frm_Employee.Form![emp_No] = x Me.Frm_Employee.Form![co_id] = y Me.Frm_Employee.Form![cost] = r Me.Frm_Employee.Form![birthdt] = d Next i End If Me.Refresh MultiDubl_2.rar 1 رابط هذا التعليق شارك More sharing options...
محمدنجار قام بنشر فبراير 5, 2018 الكاتب مشاركة قام بنشر فبراير 5, 2018 13 ساعات مضت, صالح حمادي said: تفضل هذا كود آخر يقوم بالعمل بشكل جيد :: سلمت يداك اخي صالح .... نعم كود جميل ويعمل بشكل جيد . رحم الله والديك . رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان