متأمل

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

شكرا لكتابتك هذا الموضوع الموضوع يهمني كثيراً يا ليت لو تكمل ما بدأته و تعيد رفع الصور لأن نصفها لا يظهر و نكون لك من الشاكرين

شكرا على هذا العطاء الفريد

أعتذر للتأخر في الرد بسبب عدم دخولي للمنتدى تجد الحل في المرفق مع الشرح 'ÊÕÑíÍÇÊ ÎÇÕÉ ÈÇáÇÊÕÇá ÈÞÇÚÏÉ ÇáÈíÇäÇÊ Dim db As ADODB.Connection Dim rs As ADODB.Recordset Private Sub Command1_Click() Private Sub Form_Load() 'ãÊÛíÑ áÊÍÏíÏ ãÓÇÑ ÞÇÚÏÉ ÇáÈíÇäÇÊ Dim DB_Pa…

اسم الكائن.Close

استخدم الاجراء BeforeClick

ارفق مثال و سأقوم بالتعديل عليه كما تريد

جدولين الاول للعقود وبه حقل قيمة الايجار وحقل رقم الشقة ( o_no , c_value ) والجدول الثاني الايجارات وبه حقل المبلغ المدفوع وحقل رقم الشقة ( o_no , l_amount ) dim strSql strSql = "SELECT العقود.o_no as o1, c_value, الايجارات.o_no as o2, amount "_ & "FROM العقود…

منطقيّاً .. قد يكون من الصعب إنشاء استعلام تكون نتيجته صف واحد فيه معلومات العميل و جميع المشتريات الخاصة به خصوصاً و أنّ جدول المشتريات يتم فيه تسجيل كل عمليّة شراء في صف مستقل .. فقط .. أرفق لنا مثالاً و سأكوّن لك الاستعلام المطلوب .. بغض النظر عن القناعات ا…

Load Frm_Etype Frm_Etype.MDIChild = False Frm_Etype.Show 1 جرّبت هذه الحيلة و لم تفلح للأسف !!

بارك الله فيك أخي الفاضل ..

السلام عليكم و رحمة الله و بركاته و بعد استخدمت البحث و لكني لم أجد جواباً لسؤالي .. فهل يمكن أن أفتح فورم ( MDIChild ) مشروط ؟ و لكم جزيل الشكر ..

هكذا يكون العطاء .. لك الشكر على هذا المجهود الرائع

تفضل أخي الفاضل .. علماً بأنّني استخدمت أداة Adodc حيث سهولة استخدامها Private Sub Form_Load() Me.Label1.Caption = Me.Adodc1.Recordset.Fields(0) End Sub Private Sub Timer1_Timer() On Error Resume Next Static Count As Integer If (Label1.Left + Label1.Width) <= …

الحمد لله ان مشكلتك انتهت مع التاب .. على فكرة .... مين قال ان التاب معقداني !! :)

أخي الفاضل .. لقد قمت بالتعديل على مثالك الذي أرفقته كما يلي : 1- استبدلت أداة القريد بأخرى لسهولة التعامل . 2- إذا أدخلت عدد الأيام سيتم عرض جميع السجلات في القريد و لكن : سيتم تلوين السجلات الأكبر بلون أحمر و السجلات التي تنتهي بنفس اليوم بلون أصفر في حالة ر…

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

شكرا على هذا الشرح و العطاء

ليتك تضع طريقتك في النسخ لتعمّ الفائدة !!!

تستطيع تطبيق الفلترة كما يلي : Me.Adodc1.Recordset.Filter = "Field01 < " & CDate(Me.Text2.Text) أما بالنسبة للتنسيق تستطيع استخدام المثال التالي و هو للأخ جمال علي : Label3.Caption = Format$(Now, "D" & "/" & "MMMM" & "/" & "YYYY" & "هـ") Label3.RightToLeft = T…