Örnek Kodlar kendinize göre düzenleyiniz.
Data Bağlatısı
Private Sub Form_Load()
'&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& Data Bağlantısı
Adodc1.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0; Data Source=" & App.Path & "\VeriKayit.mdb"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from Kasa ORDER BY ID"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount <> 0 Then
End If
End Sub
Kaydet Kodları
Private Sub kaydet_Click()
'&&&&&&&&&&& Kaydet
With Adodc1.Recordset
.AddNew
'.Fields(0) = id.Text
.Fields(1) = tarih.Text
.Fields(2) = aciklama.Text
.Fields(3) = gelir.Text
.Fields(4) = gider.Text
.Update
End With
Adodc1.Refresh
Call temizle_Click
MsgBox "Kaydınız Tamamlanmıştır."
End Sub
Arama Yapma ile ilgili Kodlar
Private Sub bul_Click()
Adodc1.Refresh
Dim bul As String
bul = btarih.Value
If Trim(bul) <> "" Then
bul = "Tarih='" + bul + "'"
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find bul
Call VeriSet
End If
End Sub
Private Sub VeriSet()
With Adodc1.Recordset
id = .Fields(0)
tarih = .Fields(1)
If .Fields(2) <> "" Then aciklama = .Fields(2)
If .Fields(3) <> "" Then gelir = .Fields(3)
If .Fields(4) <> "" Then gider = .Fields(4)
End With
End Sub
Düzeltme ile ilgili Kodlar
Private Sub duzelt_Click()
With Adodc1.Recordset
'.Fields(0) = id.Text
.Fields(1) = tarih.Text
.Fields(2) = aciklama.Text
.Fields(3) = gelir.Text
.Fields(4) = gider.Text
.Update
End With
Adodc1.Refresh
Form_Load
Call temizle_Click
MsgBox "Kayıtlarınız Düzeltilmiştir."
End Sub
Silme ile ilgili Kodlar
Private Sub sil_Click()
On Error Resume Next
'&&&&&&&&&&& Kayıt Silme
If Adodc1.Recordset.RecordCount <> 0 Then
Adodc1.Recordset.Delete
Adodc1.Recordset.Update
Adodc1.Recordset.MovePrevious
End If
MsgBox "Kayıdınız silinmiştir."
'&&&&&&&&&& Temizle
Call temizle_Click
End Sub
İlk Kayda Gitme
Private Sub ilkkayit_Click()
If Adodc1.Recordset.RecordCount = 0 Then Exit Sub
Adodc1.Recordset.MoveFirst
Call VeriSet
MsgBox "İlk Kayıttasınız"
End Sub
Önceki kayda gitme
Private Sub oncekikayit_Click()
If Adodc1.Recordset.RecordCount = 0 Then Exit Sub
Adodc1.Recordset.MovePrevious
If Adodc1.Recordset.BOF Then
Adodc1.Recordset.MoveFirst
MsgBox "İLK KAYITDASINIZ"
End If
Call VeriSet
End Sub
Sonraki kayda gitme
Private Sub sonrakikayit_Click()
On Error Resume Next
If Adodc1.Recordset.RecordCount = 0 Then Exit Sub
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveLast
MsgBox "SON KAYITDASINIZ"
End If
Call VeriSet
End Sub
Son kayda gitme
Private Sub sonkayit_Click()
If Adodc1.Recordset.RecordCount = 0 Then Exit Sub
Adodc1.Recordset.MoveLast
Call VeriSet
MsgBox "Son Kayıttasınız"
End Sub
Temizleme ile ilgili kodlar
Private Sub temizle_Click()
tarih = ""
aciklama = ""
gelir = ""
gider = ""
End Sub
#13
