[Resolvido]Alterar cor de caixa de texto ao clicar

Boas
Tenho um formulário onde tenho várias caixas de texto, essas caixas de texto tem a cor verde, ao fazer um clique na caixa a cor muda para vermelho.

O que pretendo que quando o formulário é fechado essa as caixas de texto de cor vermelha fiquem dessa cor, é possivel fazer isso?
Quando o formulário é aberto de novo volta a cor das caixas de texto todas à cor verde...

grato.

Se você tiver nomeado suas caixas de texto com número, ex: Texto0, Texto1 e sequencialmente, você pode usar esse código no evento Ao abrir do formulário.

Dim T As Byte
For T = 1 To Quantidade de caixas
Me("Texto" & T).BackColor = vbRed
Next T

Deixei em vermelho a sequência acima para que você note que tem que informar quantas caixas de texto tem no form.

Se não estiverem nomeadas como expliquei, use essa função:
Copie e cole na janela de código do formulário e chame a função no evento Ao Abrir do form.

Private Sub Form_Open(Cancel As Integer)
Call FundoCaixa(Me)'Chamando a função
End Sub

Function FundoCaixa(frm As Form)
Dim ctl As Control
For Each ctl In frm.Controls
If ctl.ControlType = acTextBox Then
ctl.BackColor = vbRed
End If
Next
End Function

Desde já agradeço a resposta.
O que me indicou funciona, mas não era isto que pretendia. Eu quero ter no formulário várias caixas de texto de cor verde (indica que aquele local está livre) e também algumas caixas de cor vermelha (indica que o local está ocupado).
Já consegui que ao clicar mudasse para a cor vermelho ou verde (se está ocupado ou livre), o problema é que quando fecho o formulário as casixas que coloquei a vermelho voltam a ficar verdes, e fico com o formulário com as caixas todas verdes, depois não consigo saber as que estão livres ou ocupadas.
Não sei se à outra forma de conseguir realizar esta operação mais facilmente...
E também quero que ao clicar na caixa verde para passar a vermelho me abra um novo formulário e me leve o valor da caixa de texto que eu cliquei para uma nova caixa de texto nesse novo formulário.

Não sei se me fiz entender..

Obrigado.

Boa tarde
Ainda não funciona....Alguém consegue ajudar...??

Ola;

Quer anexar aqui parte do seu banco para o podermos ajudar em concreto ?

Envio então parte do banco de dados.
O que pretendo é quando por exemplo carrega em parafusos e porcas, abre um formulário que tem as parteleiras com as localizações, estão todas a verde. quando carrega numa localização ela fica vermelha, fecha o form. e abre o form. inserir novo.

O meu problema é que quando fecho tudo o volto a carregar no botão parafusos e porcas quando abre o form. com as parteleiras elas encontram-se novamente todas a verde, e eu queria que a que foi clicada continua-se vermelha....

Fico a aguardar comentários.

Anexe em .zip

envio o link dropBox não consigo ter tamanho em ZIP para enviar por aqui.


https://www.dropbox.com/s/1j63d0gdw5k7bcj/StocksMoinas.rar

se não der avise

Ola bom dia;

Veja o formulario "LocalizacaoParafusosPorcas", se o atende assim;

Boas
Muito obrigado pela ajuda era mesmo isso (quem sabe,sabe).
Está resolvido, mais uma vez obrigado.

Obrigado pelo retorno o forum agradece.

Desta vez eu coloco o Resolvido.