نسخ سجل الى تيبل اخر

السلام عليكم ورحمة الله

قمت بالتعديل على ملفك و حذفت بعض الحقول للتبسيط

حاول تستخدم الكود على ملفك الأصلي

بعد التحية ...

اين الكود يا اخي العزيز . لا يوجد في الرد كود او حتى البرنامج ...

مع شكري لتعاونك معي ....

اخي الفاضل

ضع في جدولك (مفتاح اساسي) يتم الاعتماد عليه في مثل هذه الامور

آسف

أكيد حدث خطأ أثناء الارفاق

سوف أرفع لك المرفق مرة أخرى إن شاء الله

هناك بطء شديد في جهازي أثناء الرفع

على العموم هذا هو الكود الرئيسي :

Private Sub SearchList_DblClick(Cancel As Integer)

Dim entry
Dim x, sql As String
'Dim sql As String
entry = Me.SearchList.ItemsSelected(0)
x = Me.SearchList.ItemData(entry)
sql = "INSERT INTO table2 SELECT * FROM LCDUMAST WHERE [PCNO] = " & x & " ;"
DoCmd.RunSQL sql

End Sub

Microsoft Office Access 2007 Database.rar

اخي العزيز 

اشكرك جدا على تعاونك الكبير معي ..

لكن عندما قمت بتنفيذ البرنامج حسب الجدول المتوفر لدي يقوم البرنامج بنسخ اكثر من ريكورد واحد اثناء العملية الواحدة .

ارفقت لك قاعدة البيانات لكي تشاهد الموضوع بنفسك .

مشكري مرة ثانية لتعاونك معي .

Microsoft Office Access 2007 Database.rar

ممممممممممم

صحيح

لكن تعرف ليه ؟

لأن هناك شرط :

PCNO =   x

حيث x هي قيمة  أحد حقول السجل الحالي الذي تضغط عليه

و حيث أن  PCNO له قيمة قد تتكرر في أكثر من سجل

لذك نجد أنه أحيانا ينسخ سجل واحد وأحيانا يتم نسخ عدد أكثر

لذلك ممكن الاستفادة من اقتراح الأستاذ عبدالله المجرب

وذلك بالاعتماد على مفتاح أساسي

حيث لا يتكرر إلا مرة واحدة

وبالتالي ينسخ سجل واحد فقط

جرب كده وخلي PCNO مفتاح أساسي وأخبرني بالنتيجة

صديقي العزيز ...

لقد قمت بحذف ال pcno  الاساسي وعملت id

فنجحت العملية مع شكري لك ..

البرنامج فيه تطوير فأذا احتجت الى اي شي سأرفعهة في نفس الموضوع اكرر شكري لك ...