AccessTr.neT

Tam Versiyon: Eski Tarih Değilse Uyarsın
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Merhaba ustalar. Buradaki ustalardan biri projemde işlem yap butonuna bastığımızda Girişi Tarihi Kayıt Tarihinden 7 günden eskiyse Excel e veri yollama işlemini yapmıştı. 7 günden eski değilse işlem yap butonuna bastığımızda "Bildirim Zamanında Yapılmış" uyarısı vermesi gerekiyordu. Bu uyarı çalışmıyor. İşlem Yap butonuna bastığımızda tarihlere bakmadan çalışıyor. Bu sorunumu çözerseniz sevinirim. Örnekle açıklayayım. Kayıt Tarihi 03.12.2017 olsun Giriş tarihi bu tarihten 7 gün ve fazlası eski değilse İşlem Yap butonuna bastığımızda "Bildirim Zamanında Yapılmış" uyarısı versin. Teşekkürler şimdiden.
Merhaba,

Lütfen sorularınızı açık ifade ediniz.  "Giriş tarihi bu tarihten 7 gün ve fazlası eski değilse" cümlesi anlaşılır değil. 



Alıntı:Giriş tarihi 03/12/2017, Kayıt Tarihi 25.11.2017 ise excele aktarma kodu çalışsın,
Giriş tarihi 03/12/2017, Kayıt Tarihi 28.11.2017 ise Bildirim Zamanında Yapılmış" uyarısı versin
 


Butonun tıklandığında olayındaki kodu aşağıdaki ile değiştirerek deneyiniz.

If DateDiff("d", Me.TARİHİ, Me.KAYIT_TARIHI) >= 7 Then


Dim objXL As Object
Dim strWhat As String, boolXL As Boolean
Dim objActiveWkb As Object

   If fIsAppRunning("Excel") Then
       Set objXL = GetObject(, "Excel.Application")
       boolXL = False
   Else
       Set objXL = CreateObject("Excel.Application")
       boolXL = True
   End If
   
   Set objXL = CreateObject("Excel.Application")
   Set objActiveWkb = objXL.Workbooks.Open(CurrentProject.Path & "\karar.xls")
   objXL.Visible = True
   
 
   
   With objActiveWkb.Worksheets("Sayfa1")
   .Cells(10, 2) = Me.firmaadi
   .Cells(11, 2) = Me.firmaadi.Column(1)
   .Cells(12, 2) = Me.firmaadi.Column(2)
   .Cells(13, 4) = InputBox("Temsilci Adı", "Temsilci Adını Yazınız")
   .Cells(13, 9) = InputBox("Vergi No", "Vergi No") & Chr(13) & Chr(10) & InputBox("Vergi Dairesi", "Vergi Dairesi")
   .Cells(18, 3) = InputBox("İşlendiği Tarih", "İşlendiği Tarih")
   .Cells(19, 3) = InputBox("Kişi Sayısı", "Kişi Sayısı")
   .Cells(20, 3) = InputBox("Ceza Miktarı Hesaplama", "Kişi Sayısı") * Dlookup ("islemucreti", "Ayarlar")

   End With
   
  ' objActiveWkb.Close savechanges:=False
   
   'If boolXL Then objXL.Application.Quit
   
   Set objActiveWkb = Nothing: Set objXL = Nothing


Else

MsgBox ("Bildirim Zamanında Yapılmış")

End If
Tmm hocam tşkler. Elinizi sağlık