السلام عليكم تم إضافة هذا الكود في الزر المسمى (كود لنسخ جميع بيانات موقع الذي تم إدخالة ولسنة مالية محددة)
Private Sub أمر8_Click()
On Error Resume Next
Dim MyAr As Variant, I As Integer, Z As Integer
MyAr = Array("يناير", "فبراير", "مارس", "إبريل", "مايو", "يونيو", "يوليو", "أغسطس", "سبتمبر", "أكتوبر", "نوفمبر", "ديسمبر")
Set db = CurrentDb()
sql = "select * from Actions "
Set rs = db.OpenRecordset(sql, dbOpenDynaset)
For I = 1 To DCount("[NamesHospitals]", "Hospitals")
For Z = 1 To 12
rs.AddNew
rs("BillTaype") = "رواتب عمالة ومستهلكات"
rs("Date1") = Year(Date)
rs("Month1") = MyAr(Z - 1)
rs("Status") = "لم يصل"
rs("idhospitals") = I
rs.Update
Next
Next
rs.Close
MsgBox "تم التحديث"
End Sub
جرب المرفق بعد التعديل
1111.rar