حلقه‌های تکرار (اضافه کردن رکورد با شرط‌های خاص و تعداد متغیر)

[Nazir Ahmad]

سلام به تمام اساتید
من میخوام یک تعداد رکورد رو در یک فرم اضافه کنم به طوری که شرطهایی که برای اون در نظر میگیرم نظر به تعدادی که در یک تکست باکس مشخص میشه متغیر باشه
یعنی در یک تکست باکس یک عدد (مثلا 10) وارد میشه و با کلیک کردن روی دکمه به تعداد 10 رکورد با شرطهای تعیین شده اضافه میشه
توضیح بیشتر هم اینه که،
1- وقتی روی دکمه کلیک میکنیم اول میبینه که اگر مقدار تکست باکس بیشتر از 0 بود کار رو شروع میکنه
2- بعدا میره و از یک ساب فرم مقادیری (مثلا 50 رکورد) رو کپی میکنه و میره در یک ساب‌فرم دیگه (که یک جدول دیگه هست) پیست میکنه
3- با هر بار انجام این‌کار یک شماره از مقدار تکست باکسی که تعداد رو از اون میگرفت کم میشه (یعنی مقدار تکست باکس منهای 1 میشه)
و این حلقه تا زمانی تکرار میشه که مقدار تکست باکس مساوی به 0 بشه

این هم کدهایی که من نوشتم، البته اگر دوستان در ارتباط با کدها و روش کار هم اگر پیشنهادی دارید ممنون میشم راهنمایی بفرمایید

 If Me.flt_Count > 0 Then                On Error Resume Next

                DoCmd.GoToRecord , "", acNewRec

                If (MacroError <> 0) Then

                    Beep

                    MsgBox MacroError.Description, vbOKOnly, ""

                End If

              Me.SMf_Nahieh = [FilterForm].Form![fltNahiya]

              Me.SMf_Note = "Adding"

              DoCmd.GoToControl "SMf_StartDate"

'              Me.EcoSocialMobileListExisting_SF.Requery

        On Error Resume Next

          'On Error GoTo AddErr

        DoCmd.GoToControl ("EcoSocialMobileListExisting_SF")

        DoCmd.RunCommand acCmdSelectAllRecords

        DoCmd.RunCommand acCmdCopy

        

        If Me.EcSocRecCount.Value > 0 Then

        

            If MsgBox("There are '" & Me.EcoSocialMobileList_SF.Form.Recordset.RecordCou  nt & "' Record has been added to list, Do you want to replace?", vbYesNo, "EUSHMP") = vbYes Then

                DoCmd.GoToControl ("EcoSocialMobileList_SF")

                DoCmd.RunCommand acCmdSelectAllRecords

                DoCmd.SetWarnings False

                DoCmd.RunCommand acCmdDelete

                DoCmd.RunCommand acCmdPaste

            Else

                DoCmd.GoToControl ("EcoSocialMobileList_SF")

                DoCmd.RunCommand acCmdSelectAllRecords

            '    DoCmd.RunCommand acCmdPaste

                DoCmd.SetWarnings True

        

            End If

        Else

            DoCmd.GoToControl ("EcoSocialMobileList_SF")

            DoCmd.RunCommand acCmdSelectAllRecords

            DoCmd.RunCommand acCmdPaste

        End If

        Me.flt_Count = Me.flt_Count - 1

        

'AddErr:         If Err.Number = "2046" Then

  '      MsgBox "The Operation is not complated. Pleas press 'Ctrl+V' on your keybord to Paste the data", vbCritical, "EUSHMP"

   '     Else

    '    Resume Next

     '   End If





    Else

        MsgBox "Plese fill field 'From' and 'To'"

        Me.SMf_StartDate.SetFocus

        End If

اساتید و دوستان لطفا همکار کنید
پیشاپیش ممنون از شما