نقل قول نوشته شده توسط padide55 مشاهده تاپیک
http://s15.picofile.com/file/8409038168/shmp3.zip.html

50 تا انتقال میده و درنهایت چک اپ رو تبدیل به 2 میکنه به معنی انتقال داده شده. دیگه حذف نمیشه

برای تکرار کد do رو غیرفعال کردم . فعال کنید . فقط اگر میخواین در formId دیگه 50 تا اضافه کنه باید کد docmd.gotocontrol next یا add new record در مسیر اضافه کنید .
باز هم ممنون
من کاری که گفتید رو انجام دادم و کد رو به این شکل تغییر دادم
DoCmd.SetWarnings FalseDoCmd.RunCommand acCmdSaveRecord





Do





If flt_Count >= 1 Then

 Me.SMf_Note = "."

  stDocName = "Q01-TechnicalSurvey Query"

    DoCmd.OpenQuery stDocName









    stDocName = "q02-"

    DoCmd.OpenQuery stDocName

    

  

    

     stDocName = "q03-"

    DoCmd.OpenQuery stDocName

    

  

DoCmd.RunCommand acCmdSaveRecord

flt_Count = flt_Count - 1





 On Error Resume Next

    DoCmd.GoToRecord , "", acNewRec

    If (MacroError <> 0) Then

        Beep

        MsgBox MacroError.Description, vbOKOnly, ""

    End If









End If





Loop Until flt_Count = 0





'Me.Form.Requery

End Sub

اما باز هم مشکل دارم
به رکورد بعدی میره و رکورد رو اضافه میکنه اما 50 رکوردی که باید اضافه بشه رو اضافه نمیکنه متاسفانه
لطفا خودتون اصلاح بفرمایید