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

prestij06

Aktif Üye
64826
 33
 17
 48
 11/06/2014
3
 -
 
 -
 29/06/2019,13:27
Çö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

ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 482
 12.116
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Dün,21:53
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

prestij06

Aktif Üye
64826
 33
 17
 48
 11/06/2014
3
 -
 
 -
 29/06/2019,13:27
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ü İki Tarih Arası Sorgulma Sorunu HORZUM 4 310 05/07/2019, 19:25
Son Yorum: halily
Çözüldü İki Tarih Ve İki Saat Arası Sorgu Formülü furens 5 248 18/06/2019, 15:28
Son Yorum: furens
Çözüldü Tarih Bilgisini Silemiyorum. aliyuzen 3 162 08/03/2019, 15:02
Son Yorum: aliyuzen
Çözüldü İki Tarih Arası Ay Bazında Satır Ekleme fkilic76 6 370 06/03/2019, 09:13
Son Yorum: halily
Çözüldü İki Tarih Arası Satır Ekleme Ve Veri Kaydetme fkilic76 5 265 26/02/2019, 18:04
Son Yorum: fkilic76

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