AccessTr.neT

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.