08-02-2012, 18:28
selam
basit bir hatırlatma yapmak istedim fakat olmadı
örneğin
hatırlatmalar tablosunda bu güne ait bir tarih ve not ve hatırlatması için evet hayır alanları var
tarih
not
aktif-pasif
gunu gelince olayını sorgu ile alabiliyorum fakat istediğim akti ise hatırlatsın değilse hatırlatma çalışmasın
basit bir hatırlatma yapmak istedim fakat olmadı
örneğin
hatırlatmalar tablosunda bu güne ait bir tarih ve not ve hatırlatması için evet hayır alanları var
tarih
not
aktif-pasif
gunu gelince olayını sorgu ile alabiliyorum fakat istediğim akti ise hatırlatsın değilse hatırlatma çalışmasın
Visual Basic
- Function Hatirlatma()
- Dim hatirlat As Integer
- Dim bastar, bittar As String
-
- bastar = "#" & Format(Date, "yyyy") & "/" & Format(Date, "mm") & "/" & Format(Date, "dd") & "#"
- bittar = "#" & Format(Date, "yyyy") & "/" & Format(Date, "mm") & "/" & Format(Date, "dd") & "#"
-
- hatirlat = DCount("HatirlatmaTarih", "Hatirlatmalar", "HatirlatmaTarih Between " & bastar & " AND " & bittar)
- If hatirlat > 0 Then
- DoCmd.OpenForm "hatirlatmalar"
- Else
- End If
- End Function

