السلام عليكم ورحمة الله وبركاته
لو سمحتو اخواني
بغيت كود :
عند الضغط على اسم معين في DataList1 ينتقل مباشرة الى DataList1
يعني اختار من قائمة DataList1 وانقلها الى DataList
وبعدها اضغط على زر الحفظ وتحفظ في قاعدة بيانات اكسس
اذا مو واضح راح ارفق مشروع لذلك
واذا ممكن لو تكرمتو اعطوني الكود
طبعا اعمل ADO
بارك الله لكم في علمكم
تحياتي الوردية
وعليكم السلام ورحمة الله وبركاته
الافضل ترفق مثال يحتاج فقط التعديل المطلوب
السلام عليكم
شكرا لك اخي الكريم على تواصلك
وقد تم ادراج المرفق للتعديل عليه
بارك الله لكم .
ملاحظة
نقل البيانات من DataGrid1 الى DataList2
تقبلوا تحياتي وامتناني
الجداول الحالية لا تكفي
تحتاج عمل فاتورة
هي كالاتي :-
الجدول الاول تحفظ فيه اسم صاحب الطلب وتاريخ الفاتورة ومبلغ الفاتورة نقد او اجل
والجدول الثاني يحتي على الطلبات كل صنف في صف وتحفظ معه رقم الفاتورة والمبلغ والكمية وهكذا
بحيث انك تستطيع عرض الفاتورة وكل الاصناف الملحقة بها عن طريق رقمها
لن يسعني الوقت لتطبيق مثال او تعديل مثالك ولكن ابحث في قسم الامثلة والمشاريع وستجد الفكرة
واتمنى من الاخوة من لديه الوقت ان يساعدك بما يستطيع
اهلا وسهلا اخي
انا عارف اللي بتقوله ولكن طلبي انا كما وضحته فقط الله يسلمك بفكرتي اللي انا ابغاها مايفيدني اللي قلته بفكرت تصميمي
اشككرك على تفاعلك وردك
ممكن تغير DBList ب listbox
وتستخدم الكود التالي DataGrid1_Click كما هو واضح في الكود
كود :
Private Sub DataGrid1_Click()
Me.ListBox1.AddItem Me.DataGrid1.Text
End Sub
يعطيك العافيه اخي
بس للاسف ماضبطت معي الله يوفقك
اذا ممكن تطبقه على مثالي الله يسلمك
شاكر ومقدر مجهودك
إقتباس : ممكن تغير DBList ب listbox
وتستخدم الكود التالي DataGrid1_Click كما هو واضح في الكود
كود :
Private Sub DataGrid1_Click()
Me.ListBox1.AddItem Me.DataGrid1.Text
End Sub
الف شكر لك اخي الكريم
تم الحل ابشرك ولله الحمد وهذا بفضل الله تعالى ثم بمجهودكم
وكان الخلل في الكود الذي اعطيتني هو (ListBox1) والصحيح (List1) فقط بدون بوكس
Me.List1.AddItem Me.DataGrid1.Text ( حتى يستفيد منه غيري)
اسال الله العظيم ان ينر دربك ويرزقك الاخلاص والبر
شاكر ومقدر
الحمد لله والشكر لله من قبل ومن بعد
اسف اذا كان هناك خطاء
احيانا نكتب الكود بدون برنامج لانه من جهاز العمل ... ولا يوجد فيه فجوال ... او من الجوال
الله يبارك فيك ياغالي
بس واجهتني مشكله بسيطه
وهي
عند الضغط على الداتاقريد مثلا على ثالث اسم فيه ينتقل اول اسم مؤشر عليه ماينتقل اللي اخترته ينتقل في الضغطه الثانية
وكمان الحفظ من ليست بوكس رفض يحفظ البيانات بهذا الكود طبعا
Rs.AddNew
Rs!N1 = Text1.Text
Rs!N2 = ListBox1
Rs.Update
MsgBox "Êã ÇáÍÝÙ ÈäÌÇÍ", vbQuestion, " ÍÝÙ"
تقبلو تحياتي واحترامي واسف على ازعاجكم
بصراحه اول مرة اتعامل مع الليست بوكس في نقل البيانات لها والحفظ