السلام عليكم
اريد جمع قيم التيكست بوكس داخل التقرير عند عدد 31 تكست بوكس اقوم بتعبئة البيانات عن طريق الكود الان اريد جمع القيم التى بداخل التكست بوكس عن طريق الكود ايضاًَ
استخدم الكود التالى ولكن لا يقوم بالجمع
Private Sub Report_Open(Cancel As Integer)
For i = 1 To 31
' s = Me.Val("text" & i)
s = ("text" & i)
Me.tttttt.ControlSource= s
Next i
End Subتمكنت من تجميع القيم ولكن هناك مشكلة
البرنامج يقوم بالتجميع ولكن انا اريد التجميع كل شخص على حدي الكود يقوم بالتجميع كل الاشخاص مع بعض
Sql = "SELECT InputDate,id,InputText FROM tblInput WHERE (((tblInput.InputDate)<=# " & D2 & " #) AND ((tblInput.InputDate)>=# " & D2 & " #) AND ((tblInput.Id)=" & EmpNumF & ")) "
Set RST = CurrentDb.OpenRecordset(Sql)
If RST.RecordCount >= 0 Then
HolDateType = RST.Fields("InputText")
s = s + HolDateType
MsgBox s
Report_test.tttttt = s
Else
s = 0
End Ifتم تعديل هذه المشاركة بواسطة الحزين اوى في 20 نوفمبر 2011 في 23:34