Merhaba
ekteki dosyamda çalışması için c:\ornek\ klasörü şeklinde bilgisayarda açılması gerekmektedir.
öncelikle ne yaptığımı ve sonrada ne yapmak istediğimi anlatarak yardımlarınızı rica edeceğim.
şuan yaptığım c:\ornek klasörü içinde ana mdb dosyam 2 tane bat dosyam bunlar 2 tane vbs uzantılı dosyayı çalıştırıyor (not: bat ve vbs dosyalarında zararlı birşey yok notpad ile içeriğini görebilirsiniz bat dosyam vbs dosyamı açıyor vbs dosyası ise sadece msg box olup bir satır yazı yazmaktadır)
alarm mdb içinde kod olarak

Private Sub Form_Timer()
Me.ZAMAN = Time()

If Time >= #11:37:00 PM# And Time <= #11:37:00 PM# Then
Call Shell("c:\ornek\1.bat")

böyle bir kod var burada saat 11:37 olunca önce bat dosyam çalışıyor oda vbs dosyasını açarak mola saatini hatırlatan bir mesaj kutusu çıkarıyor.


yapmak istediğim ise :
işyerindeki pcde kullanıcı adımız sicilimizden oluşuyor ve rakamdan oluşmaktadır.
formda kullanıcı adını gösteren bir metin kutusu var

Private Sub Form_Open(Cancel As Integer)
Me.username = Environ("username")
End Sub


yukarıdaki kod ile kullanıcı adını bu metin kutusuna yazdırabiliyorum.

Tablo1 de kullanıcı adları ve mola saatleri bulunuyor

belli bir saat geldiğinde bat dosyası çalıştırmak için kullandığım kod çoklu kullanıcıda işime yaramıyor

aşağıdaki kodu

If Time >= #11:37:00 PM# And Time <= #11:37:00 PM# Then

nasıl değiştirirsek pc kullanıcı adı ile ilgili mola saatlerini ( #11:37:00 PM# ) parantez içindeki yerlere otomatik getirebilirim.
böyle birşey olabilirmi yada başka bir yolu varmıdır.
şimdiden vakit ayırıp cevap yazacak arkadaşlar teşekkür ederim.

Merhaba
Kullanıcının Mola saatini şu şekilde Metin kutusuna getirebilirsiniz;
Formun Load olayına veya bir butonun click olayına;


kodunu yazdığınızda Mola Saati yazacaktır.

(25-11-2012, 10:39)onur_can demiş ki: Merhaba
Kullanıcının Mola saatini şu şekilde Metin kutusuna getirebilirsiniz;
Formun Load olayına veya bir butonun click olayına;

Visual Basic

Dim kadi As String
kadi = Environ("username")
Me.Metin7 = DLookup("[mola1]", "[Tablo1]", "[kullanici]='" & kadi & "'")

kodunu yazdığınızda Mola Saati yazacaktır.

cevap için teşekkür ederim.
dediğinizi yaptığımda metin7 kutusu kullanıcının mola saaitini yazıyor.
ancak benim yapmam gereken aşağıdaki koddaki

Private Sub Form_Timer()
Me.ZAMAN = Time()

If Time >= #11:37:00 PM# And Time <= #11:37:00 PM# Then
Call Shell("c:\ornek\1.bat")

bu kısımdaki

If Time >= #11:37:00 PM# And Time <= #11:37:00 PM# Then

#11:37:00 PM# yazısını kodda çalışacak şekilde yazdırmak bu mümkünmü yoksa böyle birşey olacak bir şey değilmi?.
tekrardan teşekkür ederim.

sayın karabatak dosya ektedir..
tablo1 bilgisayar alan adını düzenleyin..

teşekkürler