26-02-17, 01:00 AM (آخر تعديل لهذه المشاركة : 26-02-17, 01:20 AM {2} بواسطة عبد العزيز البسكري.)
السّلام عليكم و رحمة الله و بركاته
بارك الله فيك و لك و جزاك خير الجزاء على المساعدة الرّائعة و البسيطة و المفهومة و الواضحة و على الشّرح و التّوضيح الكافي و الشّافي ..
أخي الفاضل " SENDBAD100 "
لكي أعمل على قاعدة بيانات أكسس 2007 هل المطلوب منّي حذف الأوفيس 2010 و أقوم بتسطيب الأوفيس 2007 ؟؟
و لو أمكن بإضافتيْن أخيرتيْن على نفس الملف :
1 - كيف يمكن عند فتح المشروع تظهر البيانات على الجدول بالفورم تلقائيًّا
أنا عملت هكذا على سبيل المثال لكن لست أدري إذا الكود كامل و الكمال لله أم تنقصه إضافات
2- أحتاج فقط لزر أمر للتّعديل .. لو أمكن عمل مثال فقط بسطر أو سطريْن
26-02-17, 02:11 AM (آخر تعديل لهذه المشاركة : 26-02-17, 02:32 AM {2} بواسطة السيد الغالي.)
(26-02-17, 01:00 AM)عبد العزيز البسكري كتب :
السّلام عليكم و رحمة الله و بركاته
بارك الله فيك و لك و جزاك خير الجزاء على المساعدة الرّائعة و البسيطة و المفهومة و الواضحة و على الشّرح و التّوضيح الكافي و الشّافي ..
أخي الفاضل " SENDBAD100 "
لكي أعمل على قاعدة بيانات أكسس 2007 هل المطلوب منّي حذف الأوفيس 2010 و أقوم بتسطيب الأوفيس 2007 ؟؟
و لو أمكن بإضافتيْن أخيرتيْن على نفس الملف :
1 - كيف يمكن عند فتح المشروع تظهر البيانات على الجدول بالفورم تلقائيًّا
أنا عملت هكذا على سبيل المثال لكن لست أدري إذا الكود كامل و الكمال لله أم تنقصه إضافات
2- أحتاج فقط لزر أمر للتّعديل .. لو أمكن عمل مثال فقط بسطر أو سطريْن
أجدّد شكري لك و امتناني
إحتراماتي
شكر جزيلا للاخ SENDBAD100 لجهوده المبذولة
اخي عبد العزيز عملت لك مثال للحفظ بشكل مختصر وكذلك وضعت زرين احدهما لعرض البيانات والاخر للتعديل حسب طلبكم وهو تعديل للمثال الذي عمله اخي SENDBAD100 جزاه الله كل خير
اسف لم ارفق الملف بعد التعديل وهذا هو في المرفقات
26-02-17, 02:33 AM (آخر تعديل لهذه المشاركة : 26-02-17, 02:44 AM {2} بواسطة عبد العزيز البسكري.)
السّلام عليكم و رحمة الله و بركاته
بارك الله فيك أخي الغالي على لطفك و كرمك
دومًا سبّاق للخيرات ..أسأل الله العلي القدير أن يجعل و يعوّض كل حرف و كل نقطة و كل فاصلة ممّا كتبته بما لا نهاية من الحسنات و يرزقك من حيث لا تحتسب أنت و كل من تحب
مثال رائع .. كلّه على بعضه ممتاز .. مثال متكامل أعجبني كثيرًا بكل صدق
جد ممنون لأفضالك اللامنتهية معي أخي الغالي
هذا هو المطلوب و لله الحمد و الشّكر
اعتقدت انك لا تريد استخدام المصفوفات كما فهمت من مشاركتك الاولى
على العموم طريقة الاخ / السيد الغالي هي الافضل لانها تختصر الوقت والجهد وحتى عند التعديل ستجد سهولة كبيره
ممكن ايضاً تعديل الكود التالي
من
PHP كود :
Private Sub Command2_Click() If RS.State = 1 Then RS.Close RS.Open "Select * From LISTE1 ", DB, adOpenStatic, adLockPessimistic RS.AddNew Dim i As Integer i = 1 Do Until i = 101 RS.Fields(i) = Text1(i) RS.Update i = i + 1 DoEvents Loop
MsgBox "تمت العملية بنجاح"
End Sub
الى
PHP كود :
Private Sub Command2_Click() If RS.State = 1 Then RS.Close RS.Open "Select * From LISTE1 ", DB, adOpenStatic, adLockPessimistic RS.AddNew Dim i As Integer i = 1 Do Until i = 101 RS.Fields(i) = Text1(i)
i = i + 1 Loop
RS.Update
MsgBox "تمت العملية بنجاح"
End Sub
وايضا الكود التالي من
PHP كود :
Private Sub Command4_Click()
If RS.State = 1 Then RS.Close RS.Open "Select * From LISTE1 ", DB, adOpenStatic, adLockPessimistic Dim i As Integer i = 1 Do Until i = 101 RS.Fields(i) = Text1(i) RS.Update i = i + 1 DoEvents Loop
MsgBox "تمت العملية بنجاح"
End Sub
الى
PHP كود :
Private Sub Command4_Click()
If RS.State = 1 Then RS.Close RS.Open "Select * From LISTE1 ", DB, adOpenStatic, adLockPessimistic Dim i As Integer i = 1 Do Until i = 101 RS.Fields(i) = Text1(i) i = i + 1