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