حفظ البيانات في جدول جديد

[هشام كمال]

الأخوة الأعزاء خبراء الأكسس الكرام 

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

لدي نموذج أسمه frm1 فيه أسم الموظف الأول واسم الموظف الثاني عند كتابة رقم الموظف مثلاً 265580 ويتم الضغط على زر استدعاء بيانات يتم إحضار البيانات . 

هذا الاستدعاء غير مبنى على جدول إنما يتم الاستدعاء عن طريث قاعدة DLookup 

المطلوب 

عند استدعاء البيانات يتم حفظ هذه البيانات في جدول جديد غير الجدول الأصلى عن طريق زر حفظ لتكون جدول به بيانات جديده يتم الرجوع لها 

وشكراً هشام كمال 

DLookup - Copy.rar

[مـــحـــمــــود]

معذرة أخي استفسار من الهدف من خطوة مثل هذه

 

خاصة عندما تكون البيانات كثيرة أليس هذا سيبب ثقل في القاعدة بكثرة الجدول التى تنشئ تلقائيا

 

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

[هشام كمال]

أخي العزيز 

شكراً للمتابعة الهدف هو عمل استعلام بعد ذلك لهذه الاستعلامات 

[Elsayed Bn Gemy]

اخى الكريم ما الحكمة من انشاء جدول لكل موظف مع انه يمكنك انشاء سجل لكل موظف ويمكنك ايضا عمل الاستعلام الخاص بك

[هشام كمال]

أخى العزيز لقد أخطأ في عرض المشكلة 

ليس جدول لكل موظف ولكل جدول يجمع جميع اللاستعلامات التي يتم عمل استعلام لها 

[jjafferr]

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

 

الاستعلام qry_Append_Names سيعمل الذي تريد ، وقد تم إضافته الى الزر "احفظ".

 

ورأيت عندك عدة Dlookup ، فرجاء مراجعة الرابط التالي للإستفادة: http://www.officena.net/ib/index.php?showtopic=61152&p=394338

 

 

جعفر

98.DLookup - Copy.mdb.zip

[هشام كمال]

أخى العزيز 

جزاكم الله خير الجزاء المثال وافي جداً وهو المطلوب 

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

[Elsayed Bn Gemy]

وهذه طريقة اخرى اضافة الى ما تقدم به اخى جعفر

 انشات جدول اخر لحفظ الاستعلامات به table2

 

وضع هذا الكود فى زر حفظ

If IsNull(TextID) Or IsNull(Text1) Or IsNull(Text2) Or IsNull(Text3) Then
MsgBox "عفوا احد الحقول فارغة "
Else
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO Table2 (ID,FullName,Mem,salry)values ('" & [TextID] & "','" & [Text1] & "','" & [Text2] & "','" & [Text3] & "');"
MsgBox "تم اضافة البيانات بنجاح"
End If

DLookup - Copy.rar

[مـــحـــمــــود]

رائع هكذا الأمور سارت بشكل رائع بارك الله فيكم