بحث وترحيل نتيجة البحث

[فؤاديحيى]

السلام عليكم اخواني الاعزاء 

عندي قاعدة بيانات تحتوي على نموذج باسم pp وهو للبحث عن اي طالب وبياناته وهو معتمد على جدول باسم kk

هل بالامكان عندما ابحث عن طالب معين ويظهر في النموذج pp ترحيله الى جدول اخر وهو باسم kol

مرفق لكم القاعدة

اتمنى ان تكون الفكرة واضحة

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

التقدم الاخير1.rar

[.Azhar]

نعم تستطيع ذلك 

من خلال وضع زر على النموذج الذي يستند الى الجدول الاساسي . وهو KK 

وتضع هذا الكود لحدث عند النقر للزر 

Private Sub cmdDelete_Click()
Dim intSeat As Integer
If MsgBox("Click ""Yes"" هل انت متاكد بنقل هذا القيد الى الارشيف", vbYesNo, "نقل البيانات") = vbYes Then
    intSeat = Me.Seat
    CurrentDb.Execute "Insert into Kol (School, Seat, Total) SELECT  School, Seat, Total FROM KK WHERE Seat = " & intSeat
    CurrentDb.Execute "Delete * FROM KK WHERE Seat = " & intSeat
    Me.Requery
End If
End Sub

الكلمات School, Seat, Total والتي تظهر لك في الكود هي اسماء حقول الجدول 

[.Azhar]

يقوم هذا الكود بحذف السجل من الجدول الاساسي لكن يقوم كود SQL بتخزين هذا السجل في الجدول الاخر بدل ان يرمي هذا السجل في سلة المحذوفات . 

[فؤاديحيى]

السلام عليكم

عملت مثلما قلت تمام 

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

يا ترى ماهي المشكلة

[.Azhar]

اسف استاذ فؤاد على التأخر بالرد لان النت رديء عندي 

لاحظ هذا المثال المرفق

انا استطيع منذ البداية ارفاق لك مثال ... لكن انا دائما احاول ارفاق كود للموضوع او الرد على الموضوع شفوياً حتى تزداد الخبرة عند الاعضاء . 

 

Active.rar

[فؤاديحيى]

تسلم اخي العزيز

نعم في المثال الذي ارفقته انت يعمل الكود

لكن في المثال الذي ارفقته انا لا يعمل

هل بالامكان ان تطبق الكود على المثال الذي ارفقته انا 

اكون شاكرا لك ذلك

[.Azhar]

اسف استاذ فؤاد انا ارفقت لك مثالين الاول نظري والثاني عملي ,, لا استطيع التعديل على مرفقك حاول انت . 

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

[فؤاديحيى]

تسلم اخي الفاضل

[فؤاديحيى]

تسلم واتمنى ان يجد الموضوع حلا من اي اخ لديه خبرة 

تم تعديل نوفمبر 14, 2014 بواسطه فؤاديحيى