اخي الكريم الخطا في هذا الكود
DoCmd.RunSQL ("update tablastid set tablastid.newid=" & vLastN & " ,tablastid.newyear=" & Year(Now))
DoCmd.SetWarnings True
Me.t2 = vLastN & DLookup("code", "tablastid") & Year(Now)
وتحديدا في اسم الجدول
المفترض ان تكتب الجدول tablastid2 عوضا عن tablastid
beirut ifradi akeli2رقم 2متسلسل للتقرير كل طباعة.rar