محتاج كود لنسخ بيانات حقل الي حقل اخر في نفس الجدول

[ahmed_204079]

محتاج كود لنسخ بيانات حقل الي حقل اخر في نفس الجدول

اسم الجدول DATA_TECH

اسم الحقل المراد النسخ منه a1

اسم الحقل المراد النسخ اليه a6 مع اضافة جملة qena1.moe.edu.gov.eg@

 

[Foksh]

اخي الكريم @ahmed_204079 هل يوجد شروط للنسخ من الحقل المصدر إلى الحقل الهدف ؟

إن كان لا ، فجرب هذا الكود

 

Sub CopyData()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim strSQL As String
    Set db = CurrentDb
    strSQL = "SELECT * FROM DATA_TECH"
    Set rs = db.OpenRecordset(strSQL, dbOpenDynaset)
    rs.MoveFirst
    Do While Not rs.EOF
        If Not IsNull(rs!a1) Then
            rs.Edit
            rs!a6 = rs!a1 & "qena1.moe.edu.gov.eg@"
            rs.Update
        End If
        rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
    Set db = Nothing
    MsgBox "تم نسخ البيانات وتحديث الحقل بنجاح", vbInformation
End Sub

وفي الزر Btn_Doit كمثال تستطيع استدعاء الدالة من خلال الإسم :-

Private Sub Btn_Doit_Click()
    CopyData
End Sub

 

[ahmed_204079]

متشكر اخي الكريم بارك الله فيك هجرب واشوف 

[ahmed_204079]

برافوا عليك ياهندسة البرمجة اشتغلت الله ينور ومتشكر علي تعبك ومجهودك