Merhaba
Ek'teki örnek dosyamda T_MOLA adlı bir tablom var. bu tablo içinde bilgisayar kullanıcı adlarının bulunduğu "kullanici" sutunu ve mola1 mola2 mola3 yemek gibi saat içeren sütünlar var.

ALARM formumda ise bir metin kutusu var adı "username"

yapmak istediğim ise

form açıldığında :
username metin kutusuna bilgisayar kullanıcı adı otomatik gelecek
T_MOLA tablosundaki mola saatleri içinden kullanıcı adının hizasındaki saat ile sistem saati aynı olduğu anda bir bat dosyası çalışarak kullanıcıyı uyarmak istiyorum.
yani mola1 saatinde bir bat dosyası çalışacak mola2 mola 3 ve yemek içinde aynı şekilde saati geldiğinde kullanıcı adının saatleri ne ise o saatte çalışmalı. Diğer kullanıcılara ait saatlerde ise çalışmamalı.
bu konuda yardımlarınızı bekliyorum.
şimdiden cevap yazacak arkadaşlara teşekkür ederim.
saygılar.

Form açıldığında metin kutusunda pc kullanıcı adı yazar,

tablodaki ilgili kişiye ait saat ile bilgisayar saati eşitlendiğinde aynı klasör içerisindeki (Uyari.txt) dosya açılır. Dosyaya göre kodun düzenlenmesi gerekli.

(28/11/2012, 01:34)karabattak yazdı: Merhaba
Ek'teki örnek dosyamda T_MOLA adlı bir tablom var. bu tablo içinde bilgisayar kullanıcı adlarının bulunduğu "kullanici" sutunu ve mola1 mola2 mola3 yemek gibi saat içeren sütünlar var.

ALARM formumda ise bir metin kutusu var adı "username"

yapmak istediğim ise

form açıldığında :
username metin kutusuna bilgisayar kullanıcı adı otomatik gelecek
T_MOLA tablosundaki mola saatleri içinden kullanıcı adının hizasındaki saat ile sistem saati aynı olduğu anda bir bat dosyası çalışarak kullanıcıyı uyarmak istiyorum.
yani mola1 saatinde bir bat dosyası çalışacak mola2 mola 3 ve yemek içinde aynı şekilde saati geldiğinde kullanıcı adının saatleri ne ise o saatte çalışmalı. Diğer kullanıcılara ait saatlerde ise çalışmamalı.
bu konuda yardımlarınızı bekliyorum.
şimdiden cevap yazacak arkadaşlara teşekkür ederim.
saygılar.

Cevabınız için çok teşekkür ederim.
uygulama çalışıyor yalnız bir konu hakkında daha desteğinizi rica edeceğim.
benim 4 adet ayrı bat dosyası çalıştırmam gerekiyor

Sub UyariCalistir()

Call Shell("c:\deneme\1.bat")


End Sub
bu kod ile bir bat dosyası çalıştırabildim
mola1 için ayrı bir bat mola 2 mola 3 yemek için ayrı bat çalıştırmak için kodlamayı birkez daha düzenleyebilirmisiniz.
tekrardan çok teşekkür ederim.

Kodları aşağıdakiler ile değiştirip, veritabanı ile aynı dizine koddaki gibi farklı dosya (Uyarı1.txt, Uyarı2.txt vs.vs.) eklerseniz saate göre farklı dosya açılır.

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

hocam çok teşekkür ederim.Allah razı olsun.