Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
30/11/2012 01:30
Konu Sahibi
karabattak
Yorumlar
3
Okunma
1976
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

karabattak

Aktif Üye
13411
 39
 12
 32
 28/12/2009
0
 Batman
 
 Ofis 2003
 27/11/2017,17:56
Çözüldü 
Merhaba

Ekli dosyamda "ozanakkaya" üstadın yardımlarıyla pc kullanıcı adı(username) kontrolü ile T_MOLA tablosundaki mola saatleri geldiğinde dosya açılması işlemini yapabildim.

Yapmak istediğim bunu biraz daha geliştirip tarih ilavesi yapmak istiyorum.
T_MOLA tablosu içinde "kimlik" , "kullanici" , "mola1" , "yemek" , "mola2" , "mola3" , "tarih" sütunları var.
örneğin "30.11.2012" tarihinde pc kullanıcı adım "admin" olarak girdiğimde o güne ait mola1 mola2 vs .vs toplam 4 adet zaman dilimi geldiğinde bir dosya çalıştırmak için tarih kontrolünü bu kodlara nasıl ekleyebiliriz.

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
Private Sub Form_Load()
Me.username = fOSUserName()
Call Kriter
End Sub

Private Sub Form_Timer()
Me.Metin9.Requery

Call Kriter
End Sub

Sub Kriter()

Dim u1, u2, u3, u4 As Integer
Dim hwnd
Dim StartDoc

    hwnd = apiFindWindow("OPUSAPP", "0")

        u1 = DLookup("[mola1]", "T_MOLA", "[kullanici]=[username]")
        u2 = DLookup("[yemek]", "T_MOLA", "[kullanici]=[username]")
        u3 = DLookup("[mola2]", "T_MOLA", "[kullanici]=[username]")
        u4 = DLookup("[mola3]", "T_MOLA", "[kullanici]=[username]")


    If u1 = Time() Then
       StartDoc = ShellExecute(hwnd, "open", CurrentProject.Path & "\Uyari1.txt", "", "C:\", SW_SHOWNORMAL)
    End If
    
    If u2 = Time() Then
       StartDoc = ShellExecute(hwnd, "open", CurrentProject.Path & "\Uyari2.txt", "", "C:\", SW_SHOWNORMAL)
    End If
    
    If u3 = Time() Then
       StartDoc = ShellExecute(hwnd, "open", CurrentProject.Path & "\Uyari3.txt", "", "C:\", SW_SHOWNORMAL)
    End If
    
    If u4 = Time() Then
       StartDoc = ShellExecute(hwnd, "open", CurrentProject.Path & "\Uyari4.txt", "", "C:\", SW_SHOWNORMAL)
    End If


End Sub


cevap yazacak arkadaşlara şimdiden teşekkür ederim.


karabattak, 28-12-2009 tarihinden beri AccessTr.neT üyesidir.

ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 480
 12.053
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Bugün,00:25
Çözüldü 

Visual Basic Code
u1 = DLookup("[mola1]", "T_MOLA", "[kullanici]=[username]")
u2 = DLookup("[yemek]", "T_MOLA", "[kullanici]=[username]")
u3 = DLookup("[mola2]", "T_MOLA", "[kullanici]=[username]")
u4 = DLookup("[mola3]", "T_MOLA", "[kullanici]=[username]")


Bu kodları aşağıdakilerle değiştir.


Visual Basic Code
u1 = DLookup("[mola1]", "T_MOLA", "[kullanici] = '" & Me.username & "' And [Tarih]=" & "#" & Format(Date, "mm dd yyyy") & "#")
u2 = DLookup("[yemek]", "T_MOLA", "[kullanici] = '" & Me.username & "' And [Tarih]=" & "#" & Format(Date, "mm dd yyyy") & "#")
u3 = DLookup("[mola2]", "T_MOLA", "[kullanici] = '" & Me.username & "' And [Tarih]=" & "#" & Format(Date, "mm dd yyyy") & "#")
u4 = DLookup("[mola3]", "T_MOLA", "[kullanici] = '" & Me.username & "' And [Tarih]=" & "#" & Format(Date, "mm dd yyyy") & "#")


"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. 

benremix

Onursal Üye
6766
Ra.... So....
 52
 127
 4.443
 17/05/2009
365
 Ankara
 Şirket Sahibi
 Ofis 2010 64 Bit
 Dün,06:40
Çözüldü 
Sn karabattak lütfen geri bildirimde bulununuz.

Saygılar...


Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.


Access için her zaman lazım olacak konu başlıkları listesi



karabattak

Aktif Üye
13411
 39
 12
 32
 28/12/2009
0
 Batman
 
 Ofis 2003
 27/11/2017,17:56
Çözüldü 
(19/12/2012 06:35)benremix Adlı Kullanıcıdan Alıntı: Sn karabattak lütfen geri bildirimde bulununuz.

Saygılar...


kusuruma bakmayın cevap yazmayı unutmuşum.
teşekkür ederim. istediğim gibi çalışmaktadır.
saygılarımla.


karabattak, 28-12-2009 tarihinden beri AccessTr.neT üyesidir.


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Klasördeki Dosya İsimlerini Almak ates2014 17 505 27/04/2019, 21:14
Son Yorum: ates2014
Çözüldü Saat 17:00Da Otomatik Mail Atsın haziran4 6 181 26/04/2019, 15:52
Son Yorum: ozanakkaya
Çözüldü Takvim Ajanda Programını Ofis 2016 Da Çalıştırmak İçin Çevirmek hayalibey 11 238 28/03/2019, 21:04
Son Yorum: haliliyas
Çö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

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