AccessTr.neT

Örnekte yollamış olduğum projemde ana bilgisayardan girilen verilerin izleme monitöründe el ile yenilemeden,kendini otomatik yenileyeip güncellemesini beceremedim..
Forumdaki örnek kodları 1 haftadır defelarca denedim olmadı..Lütfen konuyla ilgili bana yardımcı olurmusunuz..

Merhaba,

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..

 bu kod sizin sorgularınızdaki son barkod sayısını verecektir.
2- 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..
Dediğim gibi ben uygulamanızı çalıştıramadım ama bu şekliyle çalışıyor olmalı deneyin lütfen..

(15/06/2015, 14:36)SCavusoglu yazdı: [ -> ]Merhaba,

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 Sub

 bu kod sizin sorgularınızdaki son barkod sayısını verecektir.
2- 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

Dediğim gibi ben uygulamanızı çalıştıramadım ama bu şekliyle çalışıyor olmalı deneyin lütfen..

Öncelikle ilgilendiğiniz için teşekkür ederim..
Açıkçası çok bilmediğimden dolayı yazdıklarım size saçma geliyor olabilir öncelikle affınıza sıgınıyorum...Ana bilgisayardan veri girdiğimde ..İzleme forumuna f5 ile yenileme yapıyorum kendini direk güncelliyor..Bizim sorgu adını yada vb alanlar yazmamızdaki sebeb nedir..Yani direk sayfayı yenileme gibi bir kod varmıdır..

Me.Refresh

nereye yazmam gerekiyor

Formun zaman dolduğunda olayına yazmalısınız.. Süre ölçer aralığını 100 yapınız.. Bu alanda 0 yazıyor olmalı 100 kısa gelirse sayıyı büyyütükçe yenileme süresini uzatmış olursunuz..

kod ekranında bu şekilde görülecektir.