تكرار سجلات النموذج الفرعي بعدد معين

[محمدنجار]

اخوتي اعضاء واداريوا المنتدى المحترمون ... السلام عليكم

:: كيف يمكن تكرار سجل النموذج الفرعي الاول بمقدار العدد الذي اقوم بكتابته في تكست الرئيسي No of dbl 

:: مع اضافة رقم واحد في حقل Emp_No لكل سجل تسلسلي مضاف في الفرعي  ..... مع التقدير

[صالح حمادي]

السلام عليكم

أخي محمد جرب الكود بهذه الطريقة غير به ما تحتاج حسب حاجتك:

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 ساعه مضت, صالح حمادي 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

[صالح حمادي]

15 دقائق مضت, محمدنجار said:

: لكن المشكلة هي في emp_no في السجل الثاني فقط يزداد رقم واحد ويتكرر في بقية السحلات ؟! المطلوب لكل سجل يزيد رقم واحد ...

لو لاحظت أخي الكود الذي أرسلته لك لم أضع فيه +1 بل وضعت فيه +i

[محمدنجار]

الان, صالح حمادي said:

لو لاحظت أخي الكود الذي أرسلته لك لم أضع فيه +1 بل وضعت فيه +i

:: نعم اخي صحيح كان خطأي ... شكرا لك لقد تم حل المشكله ... اصلح الله دنياك واخرتك ..

[صالح حمادي]

1 دقيقه مضت, محمدنجار said:

نعم اخي صحيح كان خطأي ... شكرا لك لقد تم حل المشكله ... اصلح الله دنياك واخرتك

آمين يا رب العالمين و إن شاء الله أجمعين

[حميد المعزبي]

بارك الله في جهودكم ونفع الله بكم

[محمدنجار]

في 2/1/2018 at 15:49, صالح حمادي said:

لو لاحظت أخي الكود الذي أرسلته لك لم أضع فيه +1 بل وضعت فيه +i

الاخ العزيز  .... @صالح حمادي .

:: مالذي يمنع حقل التاريخ وكذلك حقل الكومبو بوكس من التكرار اسوة ببقية الحقول ؟ مع التقدير

MultiDubl_2.rar

[صالح حمادي]

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

[محمدنجار]

13 ساعات مضت, صالح حمادي said:

تفضل هذا كود آخر يقوم بالعمل بشكل جيد

:: سلمت يداك اخي صالح .... نعم كود جميل ويعمل بشكل جيد . رحم الله والديك .