nasser50001

اخي الفكرة اعتقد أنها بسيطة انا لم أجربها بالشكل الذي تقول عليه if rs!f1 >60 then repengm.Sections("section2").Controls("lb2").backcolor = qbcolor(3) datareport.show end if جرب هذا وانا سأجرب ايضا إن شاء الله وطبعا rs هي التي تعبي التقرير تحياتي اخوك ناصر

اختي الكريمة يمكنك طباعة ما تريدينه من الداتا ريبورت كالتالي : فمثلا لو اردتي طباعة طباعة نتيجة المعادلة السابقة فتقومي بعمل استعلام كالتالي : rs.open "select sum(f1),sum(f2),sum(f3),db repengm.Sections("section2").Controls("lb2").Caption = rs!f1 +rs!f2-rs!f3 …

جربي هذا الكود حيث يتم وضع زري اختيار للنسخ والضغط على القرص الصلب أو القرص المرن وطبعا يمكنك استخدام أداة common dialog لتحديد مسار الملف Private Sub Command6_Click() Dim dbstore As DAO.Database If db.State = adStateOpen Then db.Close Dim mypath, sorfile, des…

أخي جرب هذا الكود sql = "select * from neword where ordno like '%" + Text6.Text + "%'" If rsord.State = adStateOpen Then rsord.Close rsord.Open sql, db, adOpenDynamic, adLockOptimistic تحياتي لك أخوك ناصر

أخي nzvb تم تحميل الملف .... وإن شاء الله يكون برنامج رائع من أخ رائع بإذن الله جزاك الله خيرا على ثقتك الغالية وغن شاء الله بداية موفقة مع البرمجة ومع المنتدى بإذن الله تحياتي اخوك ناصر

الخطأ في هذه السطور عدل كالتالي rs1.MoveFirst rs1.Find "code1='" & x & "'", 0, adSearchForward, 1 تحياتي لك اخوك ناصر

أخي major بداية رائعة درس رائع أخي الكريم ... بارك الله فيك وفيما تقدمه لهذا المنتدى استمر أخي ونحن معك ومشكووووور على وضع الروابط للكتاب تحياتي لك أخوك ناصر

اختي يمكنك الاستعانة بهذا الكتاب /index.php?showtopic=61685 اخوك ناصر

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

السلام عليكم يمكنك الاستعانة بشرح الملفات وهو درس قيم للأخت بنت اليمن وإن شاء الله تستفيدي منه رابط الموضوع /index.php?showtopic=62599 تحياتي

اقترح عليك التالي 1 - في الجدول ضعي الحقول التالية رقم السؤال .... اجابة1 ....... اجابة2 .....اجابة3.....الصحيحة وعند اختيار السؤال تظهر بيانات السؤال في label ولإظهار الاجابات في الزرار استخدمي عنوان الزر كالتالي option1.caption = rs!ans1 option2.caption = rs…

أخي yr_m20 جزاك الله خيرا على كلماتك وابدا اخي الكريم على بركة الله ونحن جميعا معك أخي مفادي جزاك الله خيرا ويمكنك استخدام جمل sql المطروحة مع الأكسس أو sql server أو oracle وستجد اختلافات بسيطة جدا تحياتي للجميع اخوكم ناصر

تفضل مثال كامل الطلاب.rar

شرح رائع ...... والأروع منه هذا التصميم والأداء ....... والأروع منهما انه من مثل بنت اليمن تحياتي لك أخوك ناصر

إذا كان ناتج العملية موجود على التكست يمكنك اظهارة في التقرير بهذه الطريقة repeng.Sections("section2").Controls("lb1").Caption = text1.text") حيث section هو المقطع الذي فيه الأداة و lb1 هو اسم الأداة سواء مربع نص أو عنوان وهنا هي عنوان ولو كانت مربع نص طبعا تس…

السلام عليكم هذه الامكانية متاحة في الفيجوال بيسك دوت نت ولكن في الفيجوال 6 غير متاحة

السلام عليكم معلش هكتب الكود وانت نفذها على المثال rs.open "select 8 from tab where id_no = " & text1.text حيث id_no هو رقم الفاتورة المطلوبة و text1.text هو مربع النص الذي به رقم الفاتورة set report1.datasource = rs report1.show طبعا يجب أن تكون مصمم التقرير …

رابط المنتدى http://www.n4arab.com/forums/index.php?act=idx

أخي فنكشن إذا كانت لمتغير خارجي فتفعل التالي أولا : إذا كانت رقم فتكتب بهذا الشكل where col = " & function ثانيا : إذا كانت قيمة المتغير نص فتكتب كالتالي : & where col = ' " & function " ' " جرب تحياتي لك ملاحظة : لو الأخت بور جيرل تضع صورة أصغر من هذه الموجود…

مشكووووور جدا لكم اخواني الأعزاء أختي نجاة-عبدالله يمكنك ارسال ما تطلبينة على البريد أواضافتي على الماسنجر إن احببت تحياتي للجميع اخوكم ناصر