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