تكرار السجل الحالى

[jo_2010]

السادة الافاضل الخبراء

بعد التحية

اعلم انة يوجد اكثر من مواضيع مشابة لسؤالى  وحاولت تطبيقها على برنامجى وفشلت 

كل مااريدة هو تكرار السجل الحالى فى الثلاث جداول مع اضافة 1 الى  حقل   pcode   لعدم التكرار رقم الكود وتحديث حقل التاريخ الى تاريخ اليوم الذى اكرر فى السجل    لكم خالص الشكر

2025.rar

[ابو جودي]

مش عارف انا عارف افهمك واللا لاء

جرب استخدام الاكواد التاليه

Sub DuplicateRecords()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim newPCode As Long
    Dim todayDate As Date
    Dim sqlInsertLab As String
    Dim sqlInsertRequest As String
    Dim sqlInsertTests As String

    ' فتح قاعدة البيانات الحالية
    Set db = CurrentDb()
    todayDate = Date

    ' جلب آخر PCode من جدول tbl_NewLab لتجنب التكرار
    Set rs = db.OpenRecordset("SELECT MAX(PCode) AS MaxPCode FROM tbl_NewLab")
    If Not rs.EOF Then
        newPCode = rs!MaxPCode + 1
    Else
        newPCode = 1 ' في حالة عدم وجود سجلات
    End If
    rs.Close

    ' استبدال المرجع بالصيغة الصحيحة
    Dim currentPCode As Long
    currentPCode = Forms!New_Project!newRequest.Form!PCode

    ' إدراج السجل الجديد في tbl_NewLab
    sqlInsertLab = "INSERT INTO tbl_NewLab (DDate, PCode, Pname, Name_Month, C_Year, Area, Code_Month, Mon_Year) " & _
                   "SELECT #" & todayDate & "#, " & newPCode & ", Pname, Name_Month, C_Year, Area, Code_Month, Mon_Year " & _
                   "FROM tbl_NewLab WHERE PCode = " & currentPCode
    db.Execute sqlInsertLab

    ' إدراج السجل الجديد في tbl_NewRequest
    sqlInsertRequest = "INSERT INTO tbl_NewRequest (PCode, TCode, Date_R, Price_R, Tname_R) " & _
                       "SELECT " & newPCode & ", TCode, #" & todayDate & "#, Price_R, Tname_R " & _
                       "FROM tbl_NewRequest WHERE PCode = " & currentPCode
    db.Execute sqlInsertRequest

    ' إدراج السجل الجديد في tbl_NewTests (إذا لزم الأمر)
    sqlInsertTests = "INSERT INTO tbl_NewTests (TCode, TName, Price) " & _
                     "SELECT TCode, TName, Price " & _
                     "FROM tbl_NewTests WHERE TCode IN (SELECT TCode FROM tbl_NewRequest WHERE PCode = " & currentPCode & ")"
    db.Execute sqlInsertTests

    MsgBox "تم تكرار السجل بنجاح مع تحديث PCode والتاريخ.", vbInformation
End Sub


Private Sub أمر4030_Click()
   DuplicateRecords
End Sub

 

[jo_2010]

اخبير الفاضل

شكرا على اهتمام حضرتك بحل مشكلتى

اود ان اخبر حضرتك بان الكود يعمل بكفاءة ولكنة لايكرر السجل المطلوب تكرارة فى جدول Tbl_NewResults   مطلوب اضافة الكود الجديد ووضع علامة صح فى حقل  OK

ارجو المساعدة لاكمال الكود لك خالص الشكر

هل من الممكن اضافة زر NO   للتراجع عن التكرار        و زر YES    لتاكيد التكرار 

خالص الشكر لابداعاتك التى لاتنتهى

 

تم تعديل يناير 29 بواسطه jo_2010

[jo_2010]

الخبير الفاضل   ابو جودي

شكرا 

خالص الشكر