كود لنسخ بيانات موقع ولصقها في جميع المواقع

[abdullah 219]

السلام عليكم ورحمة الله وبركاته

في بادئ الأمر يعجز اللسان عن الشكر لجميع الأعضاء المتفاعلين في هذا المنتدى ، ومتى ما واجهتني أية صعوبة أو عقبة في الأكسس أتجه مباشرة إلى المنتدى لأبحث وأجد الحل الشافي بفضل جهود الأعضاء في نشر المعرفة والعلم .

 

احتاج كود يقوم بنسخ البيانات التي أدخلتها لموقع معين بحيث يكون هذا الموقع هو الموقع الأول الذي أقوم بإدخال بياناته ومن ثم لصقها في جميع المواقع بحيث تكون هذه البيانات هي البيانات الافتراضية لجميع المواقع خلال السنة المالية

على سبيل المثال :

موقع مستشفى عفيف :

 

السنة المالية

الشهر

حالة المستخلص

نوع المستخلص

2015

يناير

 لم يصل

رواتب عمالة ومستهلكات

2015

فبراير

 لم يصل

رواتب عمالة ومستهلكات

2015

مارس

 لم يصل

رواتب عمالة ومستهلكات

2015

 ......

 لم يصل

رواتب عمالة ومستهلكات

2015

......

 لم يصل

رواتب عمالة ومستهلكات

2015

......

 لم يصل

رواتب عمالة ومستهلكات

2015

نوفمبر

 لم يصل

رواتب عمالة ومستهلكات

 

 

بحيث يقوم هذا الكود بنسخ هذه السجلات ولصقها في جميع المواقع وبهذا يكون الإدخال لمرة واحدة فقط

1111.rar

[abdullah 219]

بأنتظار مساعدتكم , وكلي أمل في ذلك مع تقديري لظروف الأخوان ولأوقاتهم

[عبدالله المجرب]

السلام عليكم تم إضافة هذا الكود في الزر المسمى (كود لنسخ جميع بيانات موقع الذي تم إدخالة ولسنة مالية محددة)

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

[abdullah 219]

شكرا لك أستاذ عبدالله المجرب ورحم الله والديك وجعله الله في ميزان أعمالك

ولا حرمنا الله من ابداعات جميع الأعضاء الفاعلين في هذا المنتدى الرائع