Alıntı:Yazan mcmaho - 10-12-2011 13:04
Private Sub DataGrid1_AfterUpdate()
Text1.Text = ""
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Adodc1.Recordset.MoveLast
Adodc1.Recordset.MoveFirst
For i = 0 To Adodc1.Recordset.RecordCount - 1
Text1.Text = Val(Text1.Text) + Adodc1.Recordset.Fields(3)
Adodc1.Recordset.MoveNext
Next i
Timer1.Enabled = False
End Sub

--------------------------------------------------------------------------------
diğer sorunu anlayamadım, sadece grid üzerinde görünen bilgilerimi silmek istiyorsun, yoksa veritabanındaki bütün bilgileri mi silmek istiyorsun.

Merhaba;

İlk olarak sorlulan soruya cevap verebilirseniz yardımcı olabiliriz.

Kolay gelsin.

Private Sub Command1_Click()
Adodc2.RecordSource = Adodc1.RecordSource
Adodc2.Refresh
End Sub

silme toplama işlemleri tamam sorun yok

sorun tablo1 deki bilgileri toblo2 kaydetme

mcmaho arkadaşim senin söylediğinde ise sadece gride gösteriyor kaydetmiyor tabloya

Dosyanın son halini eklerseniz yardımcı olacaklara çok daha kolaylık sağlamış olursunuz.

tablo1 ve tablo2 arasında hiçbir fark yok. tablo1 dekileri neden tablo2 ye kaydettirmek istiyorsun anlamış değilim.aslında tablo1 e kaydetmek için yazdığın kodları kopyalayıp bir alt satırına yapıştır,tablo1 kelimesini tablo2 olarak değiştir, aynı anda hem tablo1 e hemde tablo2 ye kayıt edersin.

şimdi tablo1 daha önceden kayıt var .tablo 2 ye ise sonradan kayıt yaptırmak istiyorum bu örneği projede birçok yerde kulanacğım için tektuşla iki tabloya kayıt yaptırmıyorum yani bunu tablo1 den tablo2 değilde başkabir veritabanındada kulanacam tşk

P