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

[محمدنجار]

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

:: كيف يمكن تكرار سجل النموذج الفرعي الاول بمقدار العدد الذي اقوم بكتابته في تكست الرئيسي 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‏/2‏/2018 at 10:23, صالح حمادي 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

 

Expand  

:: عليكم السلام اخي الكريم صـــــــالـح .... وشكرا لك لما تفضلت به.

:: بعد تعديل الكود اصبح كالتالي :

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

[صالح حمادي]

  في 1‏/2‏/2018 at 12:33, محمدنجار said:

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

Expand  

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

[محمدنجار]

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

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

Expand  

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

[صالح حمادي]

  في 1‏/2‏/2018 at 12:51, محمدنجار said:

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

Expand  

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

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

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

[محمدنجار]

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

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

Expand  

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

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

MultiDubl_2.rar

[صالح حمادي]

  في 4‏/2‏/2018 at 14:46, محمدنجار said:

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

Expand  

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

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

[محمدنجار]

  في 4‏/2‏/2018 at 21:50, صالح حمادي said:

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

Expand  

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