ilk olarak Yapılmaması gereken ölümcül hatalar konusuna bir göz atıp projenizin sağlıklı çalışması için yapmanız gerekenleri inceleyiniz..
Sorununuza gelecek olursak, uygulamanızı ingilizce tabanlı bir bilgisayarda çalıştırmak neredeyse imkansız olduğundan örnekle açıklayamacağım ama aşağıdaki adımları uygularsanız sonucu ulaşacaksınız diye düşünüyorum.
1 - Izleme yapacağınız forma iki adet textbox ekleyiniz (görünmez olmalı) ve formun yüklendiğinde olayına aşağıdaki kodu ekleyiniz..
Kod:
Private Sub Form_Load()
Me.Textbox1 adı = DMax("alan adı", "sorgu adı")
Me.Textbox2 adı = DMax("alan adı", "sorgu adı")
End Sub2- Form Timer olayının altındaki sayıyı isteğe gore bir değer veriniz. Ben 100 önerebilirim ve form timer olayına şağıdaki kodu ekleyiniz..
Kod:
Private Sub Form_Timer()
If Me.TEXTBOX1 adı <> DMax("alan adı", "sorgu adı") Then
Me.alt form 1 adı.Requery
Me.TEXTBOX1 adı = DMax("alan adı", "sorgu adı")
End If
If Me.TEXTBOX2 adı <> DMax("alan adı", "sorgu adı") Then
Me.alt form 2 adı.Requery
Me.TEXTBOX2 adı = DMax("alan adı", "sorgu adı")
End If
End Sub