اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

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

رابط هذا التعليق
شارك

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

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

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

الشغل كله على هذا الزر 🙂  image.png.52581555713e52315e908271c639384d.png

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

تم تعديل بواسطه Moosak
  • Like 3
رابط هذا التعليق
شارك

في 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

الشغل كله على هذا الزر 🙂  image.png.52581555713e52315e908271c639384d.png

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

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

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

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

 

رابط هذا التعليق
شارك

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

حيث اننى قمت باضافة جزء من الكود ""= 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

 

تم تعديل بواسطه عبده الطوخى
تنسيق الكود
رابط هذا التعليق
شارك

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

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

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

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

 

  • Thanks 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information