كود نسخ سجلات محددة مع وضع شرط تغير التاريخ عند اللصق

[عبده الطوخى]

السادة الافاضل 
تحية طيبة وبعد ،،،
برجاء التكرم والمساعدة فى كود لنسخ السجلات المحددة ولصقها فى السجل الجديد 
مع امكانيه ادراج تاريخ جديد _ العمل فى نموذج frm_Search
ومرفق قاعدة البيانات لو امكن العمل عليها 
ولكم جزيل الشكر والاحترام

مراجعة فواتير العلاج الشهرى المزمن - Copy.rar

[عبده الطوخى]

هل يوجد حل لديكم 

افادكم الله 

 

[Moosak]

أهلا أخي عمر ..

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

Me.AllowAdditions = False
DoCmd.RunCommand acCmdSelectAllRecords
DoCmd.RunCommand acCmdCopy
Me.AllowAdditions = True
DoCmd.GoToRecord , , acNewRec
DoCmd.RunCommand acCmdPaste

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

DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
DoCmd.GoToRecord , , acNewRec
DoCmd.RunCommand acCmdPaste

الشغل كله على هذا الزر 🙂  

مراجعة فواتير العلاج الشهرى المزمن - Copy.rar

تم تعديل مارس 24, 2022 بواسطه Moosak

[عبده الطوخى]

في 24‏/3‏/2022 at 17:40, Moosak said:

أهلا أخي عمر ..

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

Me.AllowAdditions = False
DoCmd.RunCommand acCmdSelectAllRecords
DoCmd.RunCommand acCmdCopy
Me.AllowAdditions = True
DoCmd.GoToRecord , , acNewRec
DoCmd.RunCommand acCmdPaste

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

DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
DoCmd.GoToRecord , , acNewRec
DoCmd.RunCommand acCmdPaste

الشغل كله على هذا الزر 🙂  

مراجعة فواتير العلاج الشهرى المزمن - Copy.rar 862.5 kB · 5 downloads

الله ينور عليك يا استاذنا Moosak 

تم العمل بالكود الاول النسخ لجميع السجلات المطلوبة 

الف شكر لحضرتك 

 

[عبده الطوخى]

هل من الممكن استكمال لنفس الكود 

ان يتم تخصيص الحقل ( علاج شهر _ month ) عند اللصق يتم كتابة بيانات جديدة فى الحقل ( month )

اتمنى ان اجد الرد لديكم 

 

[عبده الطوخى]

برجاء الاستكمال والاضافة بخصوص الكود المطلوب 

حيث اننى قمت باضافة جزء من الكود ""= Me.Month

فى الكود الرئيسى الخاص بالاستاذ Moosak 

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

فهل يوجد طريقة اخرى لتفريغ هذا الحقل لكل السجلات 

ومرفق الكود 

()  Private Sub CmdCopy_Click
On Error GoTo ErrHandler
Me.AllowAdditions = False
DoCmd.RunCommand acCmdSelectAllRecords
DoCmd.RunCommand acCmdCopy
Me.AllowAdditions = True
DoCmd.GoToRecord , , acNewRec
DoCmd.RunCommand acCmdPaste

  هذا ما تم اضافته لتفريغ بيانات الحقل                  ""= Me.Month

 :ErrHandler
    If Err.Number <> 0 Then
        MsgBox Err.Number & " \\\\\ " & Err.Description
        Me.AllowAdditions = True
    Else
    Exit Sub
    End If

End Sub

 

تم تعديل مارس 26, 2022 بواسطه عبده الطوخى
تنسيق الكود

[Moosak]

ضع هذا الكود بدل السابق أخي عبده :

On Error GoTo ErrHandler
    
Dim y As Integer, x As Integer: x = Me.Form.Recordset.RecordCount
    
Me.AllowAdditions = False
DoCmd.RunCommand acCmdSelectAllRecords
DoCmd.RunCommand acCmdCopy
Me.AllowAdditions = True
DoCmd.GoToRecord , , acNewRec
DoCmd.RunCommand acCmdPaste

DoCmd.GoToRecord , , acLast
For y = 1 To x
Me.Month = ""
DoCmd.GoToRecord , , acPrevious
Next

ErrHandler:
    If Err.Number <> 0 Then
        MsgBox Err.Number & " \\\\\ " & Err.Description
        Me.AllowAdditions = True
    Else
    Exit Sub
    End If

 

[عبده الطوخى]

17 ساعات مضت, Moosak said:

ضع هذا الكود بدل السابق أخي عبده :

On Error GoTo ErrHandler
    
Dim y As Integer, x As Integer: x = Me.Form.Recordset.RecordCount
    
Me.AllowAdditions = False
DoCmd.RunCommand acCmdSelectAllRecords
DoCmd.RunCommand acCmdCopy
Me.AllowAdditions = True
DoCmd.GoToRecord , , acNewRec
DoCmd.RunCommand acCmdPaste

DoCmd.GoToRecord , , acLast
For y = 1 To x
Me.Month = ""
DoCmd.GoToRecord , , acPrevious
Next

ErrHandler:
    If Err.Number <> 0 Then
        MsgBox Err.Number & " \\\\\ " & Err.Description
        Me.AllowAdditions = True
    Else
    Exit Sub
    End If

 

الف شكر لاستاذنا الغالى Moosak

الكود فعال جدا وتم تجربته 

جزاك الله كل خير 

 

[Moosak]

العفو أخي عبده 🙂