كيفية عمل استعلام الحاق عن طريق VBA Code

[Luqman Khooshnaw]

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

اخواني الاعزاء في المنتدى ان شاءالله اشوفكم بخير والسعادة دائما...

عندي برنامج اعتمدت على Apend Query لاضافة سجلات من نموذج الى نموذج الفرعى ...هل ممكن عمل مثل هذه الفكرة عن طريق الكود ؟ 

اي اقصد  اضافة سجلات من نموذج الى نموذج الفرعى...

ارفقت لكم الملف ...اذا واحد منكم يطبق لي الفكرة....

ولكم مني اجمل تحية وشكرا

Tests.accdb

[Shivan Rekany]

1 ساعه مضت, Luqman Khooshnaw said:

ارفقت لكم الملف ...اذا واحد منكم يطبق لي الفكرة....

اتفضل 
تقدر تشغل الاستعلام بواسطة كود و تقدر تتحول الاستعلام الى كود اي تفتح استعلام في وضع sql وتنسخه كما مبينة في الاسفل
 

Private Sub BtnAdd_Click()
    DoCmd.SetWarnings False
    DoCmd.RunSQL ("INSERT INTO sub ( tests, price, selecting, [no] SELECT chem.test, chem.price, chem.[select], [Forms]![main]![no] AS Expr1 FROM chem WHERE (((chem.[select])=Yes));")
    DoCmd.SetWarnings True
    MsgBox "تم اضافة"
End Sub

Private Sub BtnChemUpdate_Click()
    DoCmd.SetWarnings False
    DoCmd.RunSQL ("UPDATE chem SET chem.[select] = No;")
    DoCmd.SetWarnings True
    MsgBox "تم تحديث"
End Sub

Private Sub Command43_Click()
    DoCmd.SetWarnings False
    DoCmd.OpenQuery "add chem tests"", acViewNormal"
    DoCmd.SetWarnings True
    MsgBox "تم اضافة"
End Sub

Private Sub Command44_Click()
    DoCmd.SetWarnings False
    DoCmd.OpenQuery "chem update"", acViewNormal"
    DoCmd.SetWarnings True
    MsgBox "تم تحديث"
End Sub

 

Tests.accdb

[Luqman Khooshnaw]

اشكرك اخي العزيز شفان للتعاون والمساعدة المستمرة التي نتلقاه منك في المنتدى..

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

لكن عندي ملاحظة..انا كان قصدي عمل مثل هذا البرنامج بدون استعلام اي عن طريق الاكواد فقط ....هل ممكن ذلك ؟؟ 

ولكم مني اجمل تحية وشكرا جزيلا...

[Shivan Rekany]

39 دقائق مضت, Luqman Khooshnaw said:

انا كان قصدي عمل مثل هذا البرنامج بدون استعلام اي عن طريق الاكواد فقط ....هل ممكن ذلك ؟؟ 

اتفضل اليك هذا
 

Private Sub Command29_Click()
    DoCmd.SetWarnings False
    DoCmd.RunSQL ("INSERT INTO sub ( [no], price, tests, selecting ) SELECT [Forms]![chem]![MyListNumber] AS MyListNumber, chem.price, chem.test, chem.[select] FROM chem WHERE ((([Forms]![chem]![MyListNumber])=[Forms]![chem]![MyListNumber]) AND ((chem.[select])=Yes))")
    MsgBox "تم اضافة"
    DoCmd.RunSQL ("UPDATE chem SET chem.[select] = No;")
    DoCmd.SetWarnings True
    DoCmd.Close acForm, Me.name
    Form_sub.Requery
End Sub

 

Tests (1).accdb

[Luqman Khooshnaw]

جزاك الله خيرا اخي الحبيب.....وبارك الله فيك...

كةلةك ممنون سةيدا هةر ساغ بي برا....

[arsalan]

كةلةك ممنون سةيدا هةر ساغ بي برا....

واو برا تؤش كوردى خؤمانةى ؟؟؟

 

[Shivan Rekany]

17 ساعات مضت, Luqman Khooshnaw said:

كةلةك ممنون سةيدا هةر ساغ بي برا....

پیتڤی ب سوپاسیێ ناکەت ... دخزمەت داینە 
لا داعی للشکر ... نحن فی خدمتکم

3 ساعات مضت, arsalan said:

واو برا تؤش كوردى خؤمانةى ؟؟؟

پێ خوش بوم بنیاسینا وە ل ڤێرە ... بخێر ھاتن
سررت بلقائکم ھنا ... اھلا بکم
 

[arsalan]

زؤر زؤر زؤر سوباس برا كيان خؤشحالم.......سررت بلقائکم ھنا ... اھلا و سهلا بکم

[Luqman Khooshnaw]

زۆر سوباس برایان جاوتان ماج ده‌كه‌م منیش زیاتر حۆشحالتر بووم...ببورن له‌سه‌قه‌ر بووم كه‌میك مشغول بووم بۆیه‌ دره‌نك وه‌لامم دایه‌وه‌

اشكركم اخوانی الاعزاء انا ایضا فرحت كثيرا بمعرفتكم