تكرار سجلات فى النموذج الفرعى

[محمد احمد لطفى]

السلام عليكم ورحمة الله و بركاته 

اعمل على نموذج فيه تكرار للسجلات فى النموذج الفرعى 
احتاج عند الضغط على تكرار 1
أن يسألنى كم سجل تريد وعند كتابة 4 مثلا يكرر 4 سجلات 

وعند الضغط على تكرار 2 
يكرر بعض الحقول الى السجل التالى 
أمر الدفع - رقم الشيك - بتاريخ - شهر 

وجزاكم الله خيرا 

test5005.rar

تم تعديل نوفمبر 15, 2017 بواسطه محمد احمد لطفى

[محمد احمد لطفى]

هل من مساعدة

[محمد احمد لطفى]

هل من مساعدة

 

[Shivan Rekany]

في ١٥‏/١١‏/٢٠١٧ at 18:34, محمد احمد لطفى said:

السلام عليكم ورحمة الله و بركاته 

اعمل على نموذج فيه تكرار للسجلات فى النموذج الفرعى 
احتاج عند الضغط على تكرار 1
أن يسألنى كم سجل تريد وعند كتابة 4 مثلا يكرر 4 سجلات 

وعند الضغط على تكرار 2 
يكرر بعض الحقول الى السجل التالى 
أمر الدفع - رقم الشيك - بتاريخ - شهر 

وجزاكم الله خيرا 

test5005.rar

اتفضل
هذا لتكرار 1 
 

Private Sub أمر20_Click()
On Error GoTo Err_أمر20_Click
    Dim Eded As Integer
        Dim I As Integer
            Eded = InputBox("اکتب عدد سجلات التکرار", "عدد الكرارات")
                DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
                DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
            For I = 1 To Eded
                DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 'Paste Append
            Next
Exit_أمر20_Click:
    Exit Sub

Err_أمر20_Click:
    MsgBox Err.Description
    Resume Exit_أمر20_Click
    
End Sub

وهذا للتكرار 2
 

Private Sub أمر21_Click()
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 'Paste Append
    Me.ملاحظات = "": Me.[رقم الملف] = "": Me.[رقم التسجيل] = "": Me.المبلغ = "": Me.الاسم = ""
    Me.Refresh
End Sub

اليك المرفق

test5005.rar

[محمد احمد لطفى]

19 minutes ago, Shivan Rekany said:

اتفضل
هذا لتكرار 1 
 

Private Sub أمر20_Click()
On Error GoTo Err_أمر20_Click
    Dim Eded As Integer
        Dim I As Integer
            Eded = InputBox("اکتب عدد سجلات التکرار", "عدد الكرارات")
                DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
                DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
            For I = 1 To Eded
                DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 'Paste Append
            Next
Exit_أمر20_Click:
    Exit Sub

Err_أمر20_Click:
    MsgBox Err.Description
    Resume Exit_أمر20_Click
    
End Sub

وهذا للتكرار 2
 

Private Sub أمر21_Click()
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 'Paste Append
    Me.ملاحظات = "": Me.[رقم الملف] = "": Me.[رقم التسجيل] = "": Me.المبلغ = "": Me.الاسم = ""
    Me.Refresh
End Sub

اليك المرفق

test5005.rar

جزاك الله خيراً

[محمد احمد لطفى]

بعد اذنك استاذ 
 

Shivan Rekany

عند الضغط على على تكرار 2 ان تكون البيانات فى السجل التالى 
عند اضافة سجل جديد و اريد نقل البيانات من السجل الاعلى يضيف سجل جديد و لا يضيفها فى السجل التالى 

 

[Shivan Rekany]

2 ساعات مضت, محمد احمد لطفى said:

بعد اذنك استاذ 
 

Shivan Rekany

عند الضغط على على تكرار 2 ان تكون البيانات فى السجل التالى 
عند اضافة سجل جديد و اريد نقل البيانات من السجل الاعلى يضيف سجل جديد و لا يضيفها فى السجل التالى 

 

اليك هذا

Private Sub ÃãÑ21_Click()
On Error Resume Next
Dim AmirALDafia, RqmAlShik, Tarix, MyMonth
    AmirALDafia = Me.ÃãÑ_ÏÝÚ: RqmAlShik = Me.ÑÞã_Ôíß: Tarix = Me.today1: MyMonth = Me.month1
    DoCmd.GoToRecord , , acNext
    Me.ÃãÑ_ÏÝÚ = AmirALDafia: Me.ÑÞã_Ôíß = RqmAlShik: Me.today1 = Tarix: Me.month1 = MyMonth
End Sub

 

test5005.rar