دمج البيانات و فرزها و إعادة ترقيمها وفق معايير معينة

الفزعة يا أخوان

الكود لازم يكون زي التالي ، بس أنا ما قادر اعمله ينفذ المطلوب

Private Sub en_Click()

On Error GoTo ImpData_Click

Dim mywork As Workspace, _

mydb As Database, _

MisPar As Recordset, _

MisChl As Recordset, _

years As Double, _

yearno As Double, _

monthno As Double, _

daysno As Double, _

X As Double, _

docs As String, _

PerCounter As Integer, _

ChildCounter As Integer

Set mywork = DBEngine.Workspaces(0)

Set mydb = DBEngine.Workspaces(0).Databases(0)

Set MisPar = mydb.OpenRecordset("MCopy Of FINAL", DB_OPEN_DYNASET)

Set MisChl = mydb.OpenRecordset("FINAL", DB_OPEN_DYNASET)

MisChl.MoveFirst

mywork.BeginTrans

Do Until MisChl.EOF

mywork.CommitTrans

MsgBox "Operation Is Done"

ImpData_Click_ex:

Exit Sub

ImpData_Click:

MsgBox Error$

Resume ImpData_Click_ex

End Sub

للرفع

للرفع