AccessTr.neT

Tam Versiyon: kullanıcı adı ,tarih , saat geldiğinde dosya çalıştırmak
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
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.

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") & "#")
Sn karabattak lütfen geri bildirimde bulununuz.

Saygılar...
(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.