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.

sledgeab saol ama acemi olduğumdan yine beceremedim sen yaparsan sevinirim...

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

Umarım alınmamışsınızdır.

kod sadece 101 isimli forma uygulandı.

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.

Ek Dosyalar

odanorenk_sled.rar(134.97 KB)

sledgeab peki bunları ayrı forum sayfası değilde bir forum sayfasında birleşirince ne yapacağız....