18-05-16, 09:50 PM
(آخر تعديل لهذه المشاركة : 20-05-16, 09:24 PM {2} بواسطة Ahmed_Mansoor.)
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
Text1.Text = Adodc1.Recordset.RecordCount
End Sub
[هدا كود كم عدد السجلات المدخلة في ...ادود
Private Sub DataGrid1_DblClick()
Dim dblSum As Double
Me.Adodc1.Recordset.MoveFirst
Do While Not Me.Adodc1.Recordset.EOF
dblSum = dblSum + Me.Adodc1.Recordset.Fields(2)
Me.Adodc1.Recordset.MoveNext
Loop
Me.Print "Total: " & dblSum
Adodc1.Refresh
Me.Adodc1.Recordset.MoveFirst
End Sub
هدا كود جمع العمود
اريد منكم كود البحث بين تاريخين .
كود (جمع البيانات المدخلة في اودك مثلا كم عدد الذكور ... جزاكم الله خيرا
Text1.Text = Adodc1.Recordset.RecordCount
End Sub
[هدا كود كم عدد السجلات المدخلة في ...ادود
Private Sub DataGrid1_DblClick()
Dim dblSum As Double
Me.Adodc1.Recordset.MoveFirst
Do While Not Me.Adodc1.Recordset.EOF
dblSum = dblSum + Me.Adodc1.Recordset.Fields(2)
Me.Adodc1.Recordset.MoveNext
Loop
Me.Print "Total: " & dblSum
Adodc1.Refresh
Me.Adodc1.Recordset.MoveFirst
End Sub
هدا كود جمع العمود
اريد منكم كود البحث بين تاريخين .
كود (جمع البيانات المدخلة في اودك مثلا كم عدد الذكور ... جزاكم الله خيرا