تكملة لموضوعي السابق في الرابط التالي https://www.officena.net/ib/topic/109973-مساعدة-في-كود-نقل-السجلات/ وكل الشكر والتقدير للأستاذ kanory على المساعدة On Error Resume Next Me.Refresh TimerId = SetTimer(0, 0, 1, AddressOf TimerProc) str_Title = "كلمة المرور" If InputBox("ادخل كلمة المرور") <> 123 Then Cancel = True Exit Sub Else Dim i i = Me.IDED If MsgBox("هل تريد إحلال الاجهزة وطباعة الإستمارة؟", _ vbCritical + vbYesNo, _ "") = vbNo Then Exit Sub Else DoCmd.SetWa