[alfakeehy]

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

لو سمحتو اخواني
بغيت كود :
عند الضغط على اسم معين في DataList1 ينتقل مباشرة الى DataList1
يعني اختار من قائمة DataList1 وانقلها الى DataList
وبعدها اضغط على زر الحفظ وتحفظ في قاعدة بيانات اكسس
اذا مو واضح راح ارفق مشروع لذلك
واذا ممكن لو تكرمتو اعطوني الكود
طبعا اعمل ADO

بارك الله لكم في علمكم

تحياتي الوردية

[sendbad100]

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

الافضل ترفق مثال يحتاج فقط التعديل المطلوب

[alfakeehy]

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

نقل البيانات من DataGrid1 الى DataList2

تقبلوا تحياتي وامتناني

[sendbad100]

الجداول الحالية لا تكفي 

تحتاج عمل فاتورة

هي كالاتي :-  
الجدول الاول تحفظ فيه اسم صاحب الطلب وتاريخ الفاتورة ومبلغ الفاتورة  نقد او اجل

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


بحيث انك تستطيع عرض الفاتورة وكل الاصناف الملحقة بها عن طريق رقمها  


لن يسعني الوقت لتطبيق مثال او تعديل مثالك ولكن ابحث في قسم الامثلة والمشاريع وستجد الفكرة

واتمنى من الاخوة من لديه الوقت ان يساعدك بما يستطيع

[alfakeehy]

اهلا وسهلا اخي

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

[sendbad100]

ممكن تغير  DBList  ب listbox 

وتستخدم الكود التالي  DataGrid1_Click  كما هو واضح في الكود 

كود :

Private Sub DataGrid1_Click()

Me.ListBox1.AddItem Me.DataGrid1.Text

End Sub

[alfakeehy]

يعطيك العافيه اخي
بس للاسف ماضبطت معي الله يوفقك
اذا ممكن تطبقه على مثالي الله يسلمك

شاكر ومقدر مجهودك

[alfakeehy]

إقتباس : ممكن تغير  DBList  ب listbox

وتستخدم الكود التالي  DataGrid1_Click  كما هو واضح في الكود


كود :
Private Sub DataGrid1_Click()

Me.ListBox1.AddItem Me.DataGrid1.Text

End Sub

الف شكر لك اخي الكريم
تم الحل ابشرك ولله الحمد وهذا بفضل الله تعالى ثم بمجهودكم
وكان الخلل في الكود الذي اعطيتني هو (ListBox1) والصحيح (List1) فقط بدون بوكس
Me.List1.AddItem Me.DataGrid1.Text   ( حتى يستفيد منه غيري)

اسال الله العظيم ان ينر دربك ويرزقك الاخلاص والبر
شاكر ومقدر

[sendbad100]

الحمد لله والشكر لله من قبل ومن بعد
اسف اذا كان هناك خطاء
احيانا نكتب الكود بدون برنامج لانه من جهاز العمل ... ولا يوجد فيه فجوال ... او من الجوال

[alfakeehy]

الله يبارك فيك ياغالي
بس واجهتني مشكله بسيطه

وهي
عند الضغط على الداتاقريد مثلا على ثالث اسم فيه ينتقل اول اسم مؤشر عليه ماينتقل اللي اخترته ينتقل في الضغطه الثانية

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


Rs.AddNew
Rs!N1 = Text1.Text
Rs!N2 = ListBox1
Rs.Update
MsgBox "Êã ÇáÍÝÙ ÈäÌÇÍ", vbQuestion, " ÍÝÙ"

تقبلو تحياتي واحترامي واسف على ازعاجكم

بصراحه اول مرة اتعامل مع الليست بوكس في نقل البيانات لها والحفظ