كود حفظ للفليكس جرد

ان شاء الله سوف نقوم بالبحث لك عن حل مناسب

ولكن ارجو الصبر حيث وانني مشغول حالياً

اخي العزيز لقد تم التعديل على مثالك

آمل ان يكون انجزنا لك المطلوب ولو انني قمت بتعديل بالكود

ارجو اخباري بما يحدث معك على الخاص حيث ان خاصية التنبيه بالمنتدى لا تعمل وذلك لمتابعة موضوعك

(h)

combo.rar

مثال الاخ / الفوارس صحيح 100%

لكن هذا الكود يسرى على اى عدد من الخانات فى ال datagrid

For x = 0 To MSFlexGrid1.Rows - 1
' put add new record here
For y = 0 To MSFlexGrid1.Cols - 1
MsgBox MSFlexGrid1.TextMatrix(x, y)
' put the data in the database here
Next y
Next x
' put update recorde here

شكراً لمرورك اخي العزيز VB6-Rocket بارك الله فيك

-----------------------------------------------------------

ولكن اخي العزيز لي ملاحظه على الذين يضعون بعض الاسئله فهم لا يتابعون مواضيعهم لكي يتم اكمال المناقشه للوصول الى الهدف المنشود

وإذا لم يتجاوب معهم احدا تجد التملل والعجله التي لا فائده منها

فما السبب في ذلك ؟؟؟؟

علماً بان المنتدى واعضائهم لم يقصروا مع اي احد

اخي VB6-Rocket

لوتكرمت باضافة زر امر اخر في المثال الذي قمت بتعديله وارفاق تعديلك لتعم الفائده

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

العفو اخى ابو الفوارس

واليك الكود الخاص بزر التسجيل .. ولكنى افترضت ان البيانات كلها جديدة ولا مجال للتعديل و ذلك للتسهيل

Private Sub Command1_Click()
    Set db = OpenDatabase(App.Path & "\db2.mdb")
    Set rs = db.OpenRecordset("select * from days ")
    
    For x = 1 To MSFlexGrid1.Rows - 1
        ' put add new record here
        rs.AddNew
        For y = 0 To MSFlexGrid1.Cols - 1
            MsgBox MSFlexGrid1.TextMatrix(x, y)
            ' put the data in the database here
            rs.Fields(y) = MSFlexGrid1.TextMatrix(x, y)
        Next y
        ' put update recorde here
        rs.Update
    Next x
End Sub

اما بالنسبة لاصحاب المشكلة واختفائهم وتسرعهم ... المثل بيقول اعمل الخير و ارميه فى البحر :)

وربك يجزينا ان شاء الله

شكراً اخي العزيز VB6-Rocket وشكراً على الكود

الفوارس كتب:

شكراً لمرورك اخي العزيز VB6-Rocket بارك الله فيك

-----------------------------------------------------------

ولكن اخي العزيز لي ملاحظه على الذين يضعون بعض الاسئله فهم لا يتابعون مواضيعهم لكي يتم اكمال المناقشه للوصول الى الهدف المنشود

وإذا لم يتجاوب معهم احدا تجد التملل والعجله التي لا فائده منها

فما السبب في ذلك ؟؟؟؟

علماً بان المنتدى واعضائهم لم يقصروا مع اي احد

أشكركم جميعا ولكن انا لي تعيب علي تعقيبكم انا ارسلت أكثر من خمسة اسئلة ومعا المثال المرفق وتم حفظها في رسائلي ولم يجيبني احد عليها من العلم ان هناك اسئلة معقدة للأعضاء تمت الإجابة عليها

مما يعني ان هناك بعض التقصير من بعض الأخوة وشكرا لكم

من لا يشكر الناس لا يشكره الله