VB Ajanda Yapımı [Program İçinde]

[EcmeL]

Visual Basic Ajanda Programı Kodları ve Örnek Programıyla ...

[Sadece pasaj sakinleri linkleri görebileceklerdir. lütfen kısa bir vaktinizi ayırın ve pasajımıza üye olun.. ]

şifre: bilgipasaji

Form1 içindeki kodlar

Dim ajandadb As Database ' ajandadbyi veritabanı olarak tanımladık
Dim notbd As Recordset ' notbdyi tablo olarak tanımladık

Private Sub Command1_Click()
If Text1 = "" Then 'eğer text1 boşsa
 MsgBox "Lütfen Not Ekleyiniz!" 'uyar
 Else 'değilse
        notbd.AddNew 'notbd diye tanımlanmış tabloya yeni kayıt ekle
           not_gonder 'fonksiyon çalıştır
        notbd.Update 'notbd diye tanımlanmış tabloya veriyi kaydet
        MsgBox ("Yeni Bir not eklendi") 'uyar
        Text1.Text = "" 'text1'i boşalt
        
End If 'fonksiyonu bitir
End Sub

Private Sub Command2_Click()
Form2.Show 'form2 yi göster
End Sub


Private Sub Form_Load()
Text1.Text = "" 'text1 i boşalt
DTPicker1 = Date 'dtpicker1'in tarihini bugün olarak ayarla

Set ajandadb = OpenDatabase(App.Path & "\Ajanda.mdb") 'ajanda.mdb veritabanını ajandadb değişkeni olarak aç
   Set notbd = ajandadb.OpenRecordset("notlar") 'ajandadbnin içinde bulunan notlar tablosunu notbd değişkeni olarak aç

 kontrol 'fonksiyon çalıştır
End Sub
Sub kontrol()
On Local Error Resume Next 'yerel bir hatada devam et
    notbd.MoveFirst 'ilk kayda git
   For l = 0 To notbd.RecordCount 'l 0 dan kayıtsayısına kadar
   If DTPicker1 = notbd.Fields("tarih") Then 'eğer dtpicker1da yazan tarih notbd tablosunun tarih alanındakiyle aynıysa
   If notbd.Fields("durum") = "Uyarılmadı" Then 'eğer notbd tablosundaki durum uyarılmadı ise
   MsgBox ("Notunuz Var...!") & " " & notbd.Fields("not") 'notunuz var de ve notu göster
   notbd.Edit 'güncelle
   notbd.Fields("durum") = "Uyarıldı" ' tablodaki durum alanını Uyarıldı yap
   notbd.Update 'tabloya bilgiyi kaydet
   Else 'değilse
   End If
   End If
   notbd.MoveNext ' sıradaki kayda geç
   Next l
  
  
  notbd.MoveFirst ' ilk kayda git
   For l = 0 To notbd.RecordCount 'l 0 dan kayıtsayısına kadar
a = DTPicker1 - 3 ' a = dtpickerdeki tarihten 3 gün öncesiyse
   If a = notbd.Fields("tarih") Then ' a daki tarihler tarih alanlarından biriyle aynıysa
    If notbd.Fields("durum") = "Uyarılmadı" Then 've durum uyarılmadı ise
   MsgBox ("3 GÜN ÖNCE OKUNMAMIŞ Notunuz Var...!") & " " & notbd.Fields("not") '3 GÜN ÖNCE OKUNMAMIŞ Notunuz Var...! de ve notu göster
   notbd.Edit 'güncelle
   notbd.Fields("durum") = "Uyarıldı" ' tablodaki durum alanını Uyarıldı yap
   notbd.Update 'tabloya bilgiyi kaydet
   Else ' değilse
   End If
   End If
   notbd.MoveNext 'sıradaki kayda geç
   Next l
  
  ' aşağıdaki kodlar üsttekiyle aynı mantıkdadır.
  notbd.MoveFirst
   For l = 0 To notbd.RecordCount
a = DTPicker1 - 2
   If a = notbd.Fields("tarih") Then
    If notbd.Fields("durum") = "Uyarılmadı" Then
   MsgBox ("2 GÜN ÖNCE OKUNMAMIŞ Notunuz Var...!") & " " & notbd.Fields("not")
   notbd.Edit
   notbd.Fields("durum") = "Uyarıldı"
   notbd.Update
   Else
   End If
   End If
   notbd.MoveNext
   Next l
  
  notbd.MoveFirst
   For l = 0 To notbd.RecordCount
a = DTPicker1 - 1
   If a = notbd.Fields("tarih") Then
    If notbd.Fields("durum") = "Uyarılmadı" Then
   MsgBox ("1 GÜN ÖNCE OKUNMAMIŞ Notunuz Var...!") & " " & notbd.Fields("not")
   notbd.Edit
   notbd.Fields("durum") = "Uyarıldı"
   notbd.Update
   Else
   End If
   End If
   notbd.MoveNext
   Next l
  
End Sub

Sub not_gonder()
   notbd.Fields("tarih") = DTPicker1 'notbd tablosundaki tarih alanına dtpicker1deki tarihi ata
    notbd.Fields("not") = Text1 'notbd tablosundaki not alanına text1deki notu ata
    notbd.Fields("durum") = "Uyarılmadı" ''notbd tablosundaki durum alanına Uyarılmadı ata
    End Sub

Private Sub Timer1_Timer()
Label3.Caption = Time
End Sub

Form2 İçindeki Kodlar

Dim ajandadb As Database
Dim notbd As Recordset


Private Sub Form_Load()
Set ajandadb = OpenDatabase(App.Path & "\Ajanda.mdb")
   Set notbd = ajandadb.OpenRecordset("notlar")
       grid_doldur
       listele
End Sub

Sub listele()
On Local Error Resume Next
       Mg1.Rows = notbd.RecordCount + 1 'mg1 flexgriddeki SAtırlar kayıt sayısı kadar
       notbd.MoveFirst 'ilk kayda git
         For c = 1 To notbd.RecordCount ' C 1 den kayıt sayısına kadar
         
    Mg1.TextMatrix(c, 0) = notbd.Fields("tarih") 'mg1in ilk satırına tarih alanını
    Mg1.TextMatrix(c, 1) = notbd.Fields("not") 'ikinci satırına not alanını
    Mg1.TextMatrix(c, 2) = notbd.Fields("durum") 'üçüncü satırına durum alanını ata
     notbd.MoveNext 'sonraki kayda geç
   Next c
End Sub

Sub grid_doldur()
Mg1.ColWidth(0) = 1500 '1. sutun genişliği 1500
     Mg1.ColWidth(1) = 7000 'ikinci sütun genişliği 7000
     Mg1.ColWidth(2) = 1500 'üçüncü sütun genişliği 1500
     Mg1.TextMatrix(0, 0) = "Tarih" 'mg1 in ilk fixed satırına tarih yaz
     Mg1.TextMatrix(0, 1) = "Olay" 'mg1 in ilk fixed satırına Olay yaz
     Mg1.TextMatrix(0, 2) = "Gösterildi" 'mg1 in ilk fixed satırına Gösterildi yaz
End Sub

[modkova]

emege saygı gusel olmuş

[miraz_49]

arkadasım 2005 falan fark oluor mu aydınlatırsan teşekkürler...

[EcmeL]

miraz_49 Nickli Üyeden Alıntı

arkadasım 2005 falan fark oluor mu aydınlatırsan teşekkürler...

bu program visual basic 6.0 ile yapılmış bir program. Fark olurmu bilmiyorum 2005 hiç kullanmadım.

[nef_rett]

arkadaşım peki bunları word ve ecxcele akraramazmıyız ajandaya yazdıklarımızı,

[veritas90]

bu kodlar işe yaramıyor yardımcı olurmusunz tam olrak yazsanız kodları

[EcmeL]

veritas90 Nickli Üyeden Alıntı

bu kodlar işe yaramıyor yardımcı olurmusunz tam olrak yazsanız kodları

Nerde takıldınız ona göre yardımcı olabilirim çünkü kodlar çalışıyordu.