نقل قول نوشته شده توسط Nazir Ahmad مشاهده تاپیک
باز هم ممنون
من کاری که گفتید رو انجام دادم و کد رو به این شکل تغییر دادم
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 رکوردی که باید اضافه بشه رو اضافه نمیکنه متاسفانه
لطفا خودتون اصلاح بفرمایید
احتمالا مشکل از نوع ویندوز باشه .
باز هم بررسی میکنم ببینم چی میشه . ولی اصول کار انجام میشه . اینجا من مشکلی ندارم.