تكرار السجل

[زائر]

السلام عليكم .. محتاج اعمل تكرار لبيانات النموذج.. نفس فكرة زر تكرار السجل ولكن محتاج كود لتكرار السجل الحالي مع اضافة سؤال نعم ولا

[kanory]

5 ساعات مضت, albadr said:

السلام عليكم .. محتاج اعمل تكرار لبيانات النموذج.. نفس فكرة زر تكرار السجل ولكن محتاج كود لتكرار السجل الحالي مع اضافة سؤال نعم ولا

وعليكم السلام .....

ماذا تقصد سؤال نعم لا ... هل تقد رسالة تحذير مثلا ام ماذا وضح ...

[زائر]

عندي النموذج وتم ادخال بيانات لكي يتم حفظها في الجدول محتاج اكرر نفس البيانات ده.. يعني اعمل زر تكرر السجل الحالي من خلال النموذج.. وعند الضغط علي الزر تظهر رسالة هل تريد ادخال البيانات مرة اخري؟

[kkhalifa1960]

تفضل أخي 

1- لديك طريقتان كل طريقة بنموذج .

2- اقرأ جيداً المشاركة لأنها بتفيدك جداً .

3- اختار طريقة منهم وطبقها على ماتريد .

4- اذا كان هذا طلبك لا تنسى الضغط عى أفضل اجابة . 

5- تفضل المرفق .

حفظ السجلات بطريقتين.accdb

[زائر]

للاسف لم تظبط

[kkhalifa1960]

ارسل مرفق من فضلك .

[Eng.Qassim]

لماذا تريد تكرار البيانات بنفس الجدول؟

على كل حال تحتاج الى عمل استعلام الحاق ..من حقول النموذج الى حقول الجدول

ثم في زر الحفظ ..تشغل الحفظ الاولي ثم تشغيل الاستعلام ليلحقها ثانية الى الجدول

DoCmd.SetWarnings False
DoCmd.Save
DoCmd.OpenQuery "AppendQ", acViewNormal
DoCmd.SetWarnings True

 

[Moosak]

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

'===================================== تكرار السجل
Private Sub DublicateRecBtn_Click()
On Error GoTo Err_DublicateRecBtn_Click


    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdCopy
    DoCmd.RunCommand acCmdRecordsGoToNew
    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdPaste

Exit_DublicateRecBtn_Click:
    Exit Sub

Err_DublicateRecBtn_Click:
    MsgBox Err.Description
    Resume Exit_DublicateRecBtn_Click
    
End Sub

 

[زائر]

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

[Eng.Qassim]

تفضل هذا المثال

تكرار.rar

[زائر]

للاسف لم تظبط اي طريقة - لذلك تم عمل زر تكرار السجل زاي ما هو منغير تعديل - وشكرا لكم

[Eng.Qassim]

11 دقائق مضت, albadr said:

لاسف لم تظبط اي طريقة

هل جربت الملف الذي ارفقته؟

[زائر]

نعم لكن مش مظبوط للأسف وشكرا لمجهودك