Skip to main content

AccessTr.neT


kullanıcı adı ,tarih , saat geldiğinde dosya çalıştırmak

kullanıcı adı ,tarih , saat geldiğinde dosya çalıştırmak

Çözüldü #1
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.

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.
.rar örnek -.rar (Dosya Boyutu: 23,55 KB | İndirme Sayısı: 17)
karabattak, 28-12-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #2

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.



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") & "#")
Cevapla
Çözüldü #3
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


Cevapla
Çözüldü #4
(19/12/2012, 06:35)benremix yazdı: 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.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da