مشكلة في جمع الحقول من قاعدة البيانات تلقائيا واظهارها في التقرير

اقتباس

لدي حقول بإسم ( الرسوم - الغرامة - الاتعاب - المدفوع من المكتب ) طبعا هو خاص بالمعقبين صاحب المكتب يريد

كل شهر يأتي ويضغط على زر فتخرج له مجموع الاتعاب ومجموع الرسوم ومجموع الغرامة ..... الخ .

ستكون الشفرة كالتالي

Private Sub Command2_Click()
Dim a1, a2, a3, a4 As Integer

rsmo.MoveFirst   'HnHn الانتقال لأول سجل
'HnHn : مجموع المبالغ

'HnHn : انشاء جملة تكرار إلى نهاية السجلات لعملية الجمع
Do Until rsmo.EOF
a1 = Val(a1) + Val(rsmo.Fields(6))  ' Rosom
a2 = Val(a2) + Val(rsmo.Fields(7))
a3 = Val(a3) + Val(rsmo.Fields(8))
a4 = Val(a4) + Val(rsmo.Fields(9))
rsmo.MoveNext
Loop

Text2 = a4
Text3 = a3
Text4 = a2
Text5 = a1

End Sub

اقتباس

التقرير : عند الضغط على التقرير تخرج لي نافذة التقارير هذي سهلة .... لكن المشكلة انني اريدها تكون منسقه

داخل جدول لنفترض انه من اربعة صفوف ( طبعا بفرض عدد المعقبين الموجودين في قاعدة البيانات ثلاثة ) والصف الأول

للعناوين الرئيسية

من خصائص التقرير يمكنك تنسيق التيكس وتجعل له حدود من خاصية

borderStyle = 2 - rptbssolid

وبالتالي سيظهر كانه جدول وتم التعديل على المثال

اقتباس

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

تحت زر الاضافة أو الحفظ اكتب في نهاية الشفر أمر الضغط على زر المجموع لـ اجمالي الرسوم والاتعاب والمدفوع والغرامة كالتالي

Private Sub btsave_Click()
If Trim(t1.Text) = "" Then
	MsgBox "áÇíÜãÜßäß ÇáÍÜÝÙ ÈÜÏæä ßÊÇÈÉ ÇáÇÓÜÜã", vbCritical, "Message"
	t1.SetFocus
	Exit Sub
 End If
'
 With rsmo
	  .AddNew
'
	![Rosom] = Trim(tRosom.Text)
	![atteab] = Trim(tatteab.Text)
	![Madfo] = Trim(tMadfo.Text)
	![penalty] = Trim(tpenalty.Text)

	  ![Empname] = Trim(t1.Text)
	   ![Empnum] = Trim(t2.Text)
		![kfeelname] = Trim(t3.Text)
		 ![Dir] = Trim(t4.Text)
		  ![Mkind] = Trim(t5.Text)



	  .Update
	  MsgBox "ÊÜã ÇáÍÜÝÜÜÙ ÈäÜÜÌÜÜÜÇÍ"
 End With
 btsave.Enabled = False
 Call enableall
 Command2_Click
End Sub

والمثال بعد التعديل موجود هنا