#1
#2
OkulPersonelTablosu - Test.rar
(Dosya Boyutu: 664,91 KB | İndirme Sayısı: 5)
(17/12/2023, 17:14)berduş yazdı:(17/12/2023, 16:10)6246386 yazdı: "Zaman" formundaki BAŞLANGIÇ saatleri geldiğinde otomatik olarak yenilenmesini amaçlıyorumtam olarak anlamadım biraz daha açıklar mısınız?
hangi formdaki BAŞLANGIÇ saatleri geldiğinde hangi formlar güncellenecek?
Private Sub Form_Load()
Me.TimerInterval = 1000 ' Form yüklendiğinde zamanlayıcıyı başlatın
Me.TimerOn = True
End SubPrivate Sub Form_Timer()
Dim PChhmm As Date ' Bilgisayarın saatini değişken olarak alın
PChhmm = Time
' Zaman tablosundaki başlangıç saatlerini al
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("Zaman", dbOpenSnapshot)
Do While Not rs.EOF
If rs!BAŞLANGIÇ = PChhmm Then ' Tablo başlangıç saati ile pc saati eşleşiyorsa alt formu requery edin
RequeryAltForms
Exit Do ' Tablo - PC saatleri arasındaki ilk eşleşmde döngüden çık
End If
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
Set db = Nothing
End Sub
Private Sub RequeryAltForms()
' Alt formları requery etmek için bu fonksiyonu kullanın
Dim AltFormAdlari As Variant
AltFormAdlari = Array("AltForm1", "AltForm2", "AltForm3", ...................) 'ALtform1,2 vs örnek olarak belirttim kendi formlarınızı tanımlayın.
Dim AltFormAdi As Variant
For Each AltFormAdi In AltFormAdlari
Me.Controls(AltFormAdi).Form.Requery
Next AltFormAdi
End Sub