Tablolarınızın ve sorgularınızın ne işe yaradığını (saat 06:47) anlayamadığım için sorguda eşref hocanın sorgusunu kriteri farklı olarak kullandım.
tagdescription açılır kutusunun güncellenme sonrasında olayına aşağıdaki kod eklendi.
Kod:
If Me.ilkokuma.ListCount <> 0 Then
Me.ilkokuma.RowSource = "SELECT TOP 1 Sorgu2.[Son Okuma Tarihi], Sorgu2.[Tag Value], Sorgu2.[Son Okuma Değeri], Sorgu2.[Fatura No] FROM Sorgu2 WHERE (((Sorgu2.[Tag Value])=Formlar!Form3!tagvalue)) ORDER BY Sorgu2.[Fatura No] DESC; "
Else: Me.ilkokuma.RowSource = "SELECT Sorgu1.TagTimeStamp, Sorgu1.TagName, Sorgu1.TagValue FROM Sorgu1 WHERE (((Sorgu1.TagName)=Forms!Form3!tagvalue)) ORDER BY Sorgu1.TagTimeStamp, Sorgu1.TagName; "
End Ifkodu ekleyip deneyin, ben çalışıp çalışmadığını anlayamadım,
autoexec makrosunu iptal edip yerine açılışta çalışan kod ekledim, Access penceresini gizlemek istiyorsanız dersler bölümünde anlatıldı. Uygulama açıldığında bms dosyası nerede olursa olsun bağlı tabloları kendisi yükleyecek şekilde düzenledim.
Ayrıca belirteyim, tablo, sorgu ve form yapısı çok kötü ve uygulama bozulmuş, forma yeni bir nesne ekleyince bir daha açılmıyordu. Uygulamanızdaki hataları düzelterek ekledim, eksiklik var ise veya eklenenleri istemiyorsan sadece formdaki kodu kullanın.
