A.S.C Filtre, Grafik ve Raporlama Eklentisi

Access te yaklaşan tarih hatırlatması
#1
herkese kolaylıklar diliyorum.
access tablomda dilekçe bilgileri içeren bir tablom mevcut. bu tablonun bir sütünu dilekçe bitiş tarihini içermektedir. bugünün tarihi ile bu tarihin farkını alıp işlemini bitişine 3 ile 1 gün arasında uyarı verebilecek bir macroya ihitiyacım var. örneğin aarslan dilekçe bitiş tarihine 2 gün var.... aarslan dilekçe bitiş tarihine  1 gün var....aarslan diklekçe işlem tarihi bugün son şeklinde msgbox içinde uyarması gerekiyor.

excelde bunu güzel bir uygulam ile yapmıştık ancak accesste yeniyimSmile)


Visual Basic
  1. Sub hatirlatma1()
  2. Dim bugun As Long, tarih As Long, i As Long, a As Long
  3. Dim s As Worksheet, mesaj As String
  4. Set s = Sheets("dilekçe")
  5. a = s.Range("a65536").End(3).Row
  6. bugun = CLng(CDate(Date))
  7.  
  8. For i = 2 To a
  9. On Error Resume Next
  10.     tarih = CLng(CDate(s.Cells(i, "j")))
  11.  
  12.     fark = tarih - bugun
  13.         If fark >= 1 And fark < 3 And s.Cells(i, "c").Value <> "bitti" Then
  14.             Baslik = "Dilekçe Tarih Hatırlatması"
  15.             mesaj = mesaj & vbCr & s.Cells(i, "a") & "   " & s.Cells(i, "b") & " " & "   İşlem Tarihine : " & CInt(tarih - bugun) & "   gün kaldı."
  16.         End If
  17.  
  18.         If fark = 0 And s.Cells(i, "c").Value <> "bitti" Then
  19.             Baslik = "Dilekçe Tarih Hatırlatması"
  20.             mesaj = mesaj & vbCr & s.Cells(i, "a") & "   " & s.Cells(i, "b") & " " & "  Son İşlem Tarihi BUGÜN "
  21.         End If
  22. Next i
  23.     MsgBox Baslik & vbCr & mesaj, vbInformation, "Deneme By AARSLAN"
  24.  
  25. Set s = Nothing
  26. i = Empty: a = Empty
  27. bugun = Empty: tarih = Empty:
  28. mesaj = vbNullString: Baslik = vbNullString
  29. End Sub




excelde ki kod bloku bu 
mantığın accessten veriyi çağırma şekline dönmesi gerekiyor ilgilenen olursa şimdiden tşkler.



  Alıntı
Bu mesajı beğenenler:
#2
merhaba
 yaptıgınız kadarıyla acces örneğinizi eklerseniz bakma şansımız olur.



  Alıntı
Bu mesajı beğenenler:
#3
Merhaba Sn arif3606,
Access'teki karşılığı;
Visual Basic
  1. Dim fark as Integer
  2. Dim baslik as String
  3. baslik = ” Dilekçe Tarih Hatırlatması”
  4. fark =Datediff (“d”,dilekcetarihi,Date())
  5. if fark = 3 Then
  6. Msgbox “Dilekçe bitiş tarihine 3 gün var”,,baslik
  7. Elseif fark = 2 Then
  8. Msgbox “Dilekçe bitiş tarihine 2 gün var”,,baslik
  9. Elseif fark = 1 Then
  10. Msgbox “Dilekçe bitiş tarihi Bugün SON GÜN!...,,baslik
  11. Else
  12. Endif





  Alıntı
Bu mesajı beğenenler:
#4
tşk ederim deneyip olmaz ise örnek dosyayı atarım



  Alıntı
Bu mesajı beğenenler:
#5
(29-08-2019, 15:49)onur_can demiş ki: Merhaba Sn arif3606,
Access'teki karşılığı;
Visual Basic
  1. Dim fark as Integer
  2. Dim baslik as String
  3. baslik = ” Dilekçe Tarih Hatırlatması”
  4. fark =Datediff (“d”,dilekcetarihi,Date())
  5. if fark = 3 Then
  6. Msgbox “Dilekçe bitiş tarihine 3 gün var”,,baslik
  7. Elseif fark = 2 Then
  8. Msgbox “Dilekçe bitiş tarihine 2 gün var”,,baslik
  9. Elseif fark = 1 Then
  10. Msgbox “Dilekçe bitiş tarihi Bugün SON GÜN!...,,baslik
  11. Else
  12. Endif

Sn Onur_Can,

Bu kodlarla ilgili 3 sorum olacak;

1) Tabloda konuya dair birden fazla "dilekcetarihi" verisi varsa, tablodaki bu verilere tek tek bakıp uyumlu olan "dilekcetarihi" verisini nasıl işleme alabiliriz? 
2) Tablodaki birden fazla kayıt bu kod ile uyumlu ise birden fazla msgbox uyarısı oluşturabilir miyiz?
3) Belirttiğiniz kodları formun hangi olay yordamına eklemeliyiz?



  Alıntı
Bu mesajı beğenenler:
#6
Form kaynagina SQL'i tasima veya sorguyu kaydedip referans verme yapilabilir.
SQL
  1. SELECT *, iif(Datediff ("d";[dilekcetarihi];DATE())<=3;Datediff ("d";[dilekcetarihi];DATE()) & " Gun var";"") AS Bitis FROM TabloAdi



Rapor duzenlenir ise, rapor kaynagina

SQL
  1. SELECT *, iif(Datediff ("d";[dilekcetarihi];DATE())<=3;Datediff ("d";[dilekcetarihi];DATE()) & " Gun var";"") AS Bitis FROM TabloAdi WHERE Datediff ("d";[dilekcetarihi];DATE())<=3



ile 3 gunden az olanlar suzdurulebilir.



  Alıntı
Bu mesajı beğenenler: ebenli


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [FORM] Tarih Seçici / Tarih Formatı h2001 5 217 15-01-2020, 22:55
Son Mesaj: dsezgin
access-sql-9 [SORGU] iki tarih arası gün tarih bulma m45m45 95 8.530 12-01-2019, 23:13
Son Mesaj: m45m45
  [SORGU] Uzun Tarih Filtreleme Hakkında (tarih Saat) sertac75 1 765 21-06-2018, 19:04
Son Mesaj: onur_can
  [SORGU] Access VBA'da Sql ile Tarih Sorgusu Kodu Hakkında dogkan75 2 1.910 24-03-2017, 14:24
Son Mesaj: dogkan75
  [SORGU] access veri tabanı tarih sorgusunu radbuilder datetimepicker'a baglama codebreaker 0 1.288 13-01-2017, 16:23
Son Mesaj: codebreaker
  [SORGU] Süresi sınırı yaklaşan ve geçmiş cihazlar okanocak 6 1.721 28-11-2016, 14:24
Son Mesaj: okanocak
access-sql-9 [SORGU] Access Bölme ve Tarih Sorgusu melodylower 1 971 14-06-2016, 11:45
Son Mesaj: dsezgin
  [TABLO] Sql server tarih formatı access tarafinad tanınmıyor ENMEREL 1 1.060 10-10-2015, 06:43
Son Mesaj: dsezgin

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi