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.