hayırlı cumalar
benim her perşembe
saat 14:15 de bir müzik dosyasını otomatik olarak açtırmam gerekiyor
if li cümleyi nasıl yazmalıyım
*********
if date() = perşembe then
if now()= 14:15:00 then
ilgili müzik dosyasını çalıştır
end if
end if
*********
kodunu tam olarak nasıl olmalı
müzik dosyasını çalıştırma kısmını biliyorum
ama if li satırlar tam olarak nasıl olacak
teşekkürler
Kod:
If Format(Date, "dddd") = "perşembe" Then
If Format(Now, "hh:mm") = "14:15" Then
MsgBox "Bugün Perşembe Saat 14:15"
End If
End Ifarkadaşlar
Kod:
Private Sub Form_Timer()
If Format(Date, "dddd") = "cuma" Then
If Format(Now, "hh:mm") = "12:04" Then
PlaySound ("D:\HTS\510.wav")
End If
End If
End Subistediğim bu Access programı kapatılsa bile
müzik dosyasının çalışmaya devam etmesi
mesela media player çalıştırılsa nasıl Access programı kapansa bile media player devam ediyor nasıl yapabilirim
teşekkürler
Kod:
Public Function press(kaynak As String, hedef As String)
Dim krl
hedef = hedef & "7z" ' hedef dosya adını yol ve dosyaya vereceğiniz isim şeklinde yazın C:\kural gibi böylece c: sürücüsünde kural7.z dosyasına sıkıştıracaktır.
If FileExists("C:\Program Files (x86)\7-Zip\7z.exe") = True Then
krl = "C:\Program Files (x86)\7-Zip\7z.exe" 'sizdeki yeri nereyse onu yazın
Shell (krl & " a -t7z " & hedef & " -r " & kaynak & " -m0=BCJ -m1=LZMA:d=21 -ms -mmt"), vbHide
'MsgBox ("veritabanı var") 'c:\veritabanları\web.mdb dosyası var ise çalışacak kod buraya
Else
MsgBox ("HEDEF KLASÖR MEVCUT DEĞİL")
'c:\veritabanları\web.mdb dosyası yok ise çalışacak kod buraya
End If
'MsgBox kaynak & " Dosyası " & hedef & " Dosyası Adı İle Arşivlenmiştir."
End Functionaynı bunun gibi media player da çalıştırılabilir mi
ve de
liste kutusundan seçtiğimiz bir adrese göre mesela (c:\yerli\sanat\güller.wav ) gibi
ilgili ses dosyasını media player ile açabilirmiyiz
teşekkürler
http://bilgiteknoloji.net/access/access0...hanesi.asp
adresinde anlatılanları yaptım ama olmuyor
