Evet..Yada Oda no 101 ya yanda odalar kısmında 101 butonu kırmızı yansın yada buton yerine kutu koyup onun kırmızı yanmasını sağlayabiliriz...Oda boş ise Yeşil yanabilirmi...Yardımlarınız İçin Teşekkürler...
İscinar Buna Benzer olacak ama tasarımı ben yaptım onun üzerinde uygulamamız lazım
101,102,103 ..... olarak belirlenen formların tümünün yüklendiğinde olayına aşağıdaki kodu ekle
Dim AccessTrneT As String
AccessTrneT = Nz(DLookup([Kimlik], "Tablo1", "[oda]=" & "'" & Me.[Name] & "'"), 0)
If AccessTrneT <> 0 Then
Me.Açılan_Kutu27.BackColor = vbRed
Else
Me.Açılan_Kutu27.BackColor = vbGreen
End If
formlardaki açılan kutu isimlerine göre koddaki açılan kutu isimlerini düzelt.
(07/01/2012, 22:14)Ahmettemiz yazdı: sledgeab saol ama acemi olduğumdan yine beceremedim sen yaparsan sevinirim...
Birşeyler yapmaya çalışmanız güzel ancak temel konularda da sıkıntı yaşıyorsanız ilk olarak derslerden başlamanız sizin menfaatinize olacağı kanaatindeyim.
Biraz vaktinizi ayırın Access dersleri bölümünü inceleyin tabloları, sorguları, formları kodları biraz olsun anladıktan sonra işe başlarsanız, forum başlığında yazdığı gibi yapılmaması gereken ölümcül hatalar da yapmamış olursunuz.
tabloda 101 var ise (ileride boş/dolu odaları belirlemek için evet/hayır alanına ihtiyaç duyulacak) form 101'i açtığında arka plan kızarır. 101 yoksa arka plan yeşerir.
diger formların yüklendiğinde olayına aynı kodu ekleyeceksiniz. Ama açılan kutu adına dikkat.