[Resolvido]Planta de identificação de boxes

Olá a todos!

Já completei 80% de um projeto. Trata-se de locação de boxes em um Self Storage. Gostaria muito de ter um formulário com Botões que representassem cada um dos boxes em um mapa; exatamente como no layout físico do armazém. Dessa forma poderíamos facilmente buscar cada box no sistema apenas clicando em cima. Até aí consegui fazer. Basta criar um botão com vínculo a cada box. O que não consigo imaginar como fazer é dar cores diferentes a esses botões conforme a disponibilidade de cada um: Disponível (Verde), Locado (Vermelho), Bloqueado (Preto).

Como seria a melhor forma de criar essa condicional? Seria SELECT com fórmula IF?

Abraços!

Olá pessoal! Obrigado pela atenção. Gastei um pouco mais de massa cinzenta e consegui resolver:

Private Sub Form_Current()
Dim varX As Variant
varX = DLookup("[BoxStatus]", "tblBoxes", "[BoxId] = 1")
If varX = "BLOQUEADO" Then
botBox001.BackColor = vbBlack
ElseIf varX = "DISPONÍVEL" Then
botBox001.BackColor = vbGreen
ElseIf varX = "LOCADO" Then
botBox001.BackColor = vbRed
End If
End Sub

Abraxxx

Qualquer outra sugestão...