Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
03/12/2017 12:28
Konu Sahibi
prestij06
Yorumlar
2
Okunma
344
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

prestij06

Aktif Üye
64826
 33
 15
 42
 11/06/2014
3
 -
 
 -
 09/05/2019,12:38
Çözüldü 
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.



ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 480
 12.053
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
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.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
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


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

prestij06

Aktif Üye
64826
 33
 15
 42
 11/06/2014
3
 -
 
 -
 09/05/2019,12:38
Tmm hocam tşkler. Elinizi sağlık




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Tarih Bilgisini Silemiyorum. aliyuzen 3 120 08/03/2019, 15:02
Son Yorum: aliyuzen
Çözüldü İki Tarih Arası Ay Bazında Satır Ekleme fkilic76 6 292 06/03/2019, 09:13
Son Yorum: haliliyas
Çözüldü İki Tarih Arası Satır Ekleme Ve Veri Kaydetme fkilic76 5 207 26/02/2019, 18:04
Son Yorum: fkilic76
Çözüldü Tarih Kayıt zaferlacin 2 181 30/01/2019, 16:40
Son Yorum: zaferlacin
Çözüldü İki Tarih Arası Veri Sayma furens 6 343 25/01/2019, 15:15
Son Yorum: furens

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.