Visual basic kodunu da ayrıcana paylaşacam, belki ilerde birine yardımım dokunur.
Kod:
Private Sub Command3_Click()
On Error Resume Next
Adodc1.Recordset.Filter = "Tarih like '" & Text205 & "%' "
Adodc1.RecordSource = "SELECT Sum(id) AS Topla FROM Tablo1"
Text3.Text = DataGrid1.Columns(76)
Adodc1.Recordset.Filter = "Tarih like '" & Text177 & "%' "
Adodc1.RecordSource = "SELECT Sum(id) AS Topla FROM Tablo1"
Text4.Text = DataGrid1.Columns(76)
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "SELECT Sum(yikama) AS Topla FROM Tablo1 WHERE id Between '" & Text3.Text & "' And '" & Text4.Text & "'"
Adodc1.Refresh
Text22.Text = DataGrid1.Text
End Sub
Teşekkürler accesstr.net ailesi.