[Resolvido]Help no VBA! Automação

Bom primeiramente venho dizer que este forúm está de parabéns pois venho ajudando me muito a alguns meses, mas hoje me deparei com uma parede muito grande na minha frente, claro posso resolver isso com o tempo, mas neste momento estou um pouco desesperado pelo motivo da Inmetro vir fazer auditoria, tenho 1 mês mas o tempo é curto para mim...

Bom estou aqui com uma dúvida, e quero que alguém possa me ajudar e se possível até escrever em jeito melhor possível, eu escrevo muita gambiarra, mas no final da certo, porém eu tenho até uma gambiarra para isso mas é muito grande e vai acabar trazendo lentidão a bessa.

é assim, tenho um campo chamado Equipamento, onde neste formulário existem outros 6 subformulários ou mais, mas o que quero fazer é um seguinte, quando eu selecionar tal equipamento então ocultar alguns outros formulários que eu não va precisar digitar dados nele, então só mostrar o que me interessa, mas isso é para cada equipamentos, claro existem alguns que vai ser igual para outros, mas gostaria de escrever isso em VBA, então o que eu fiz em questão de alguns minutinhos foi isso:

Private Sub Form_Current()
Dim ff1, ff2, ff3, ff4, ff5, ff6, ff7 As String
ff1 = Me.F1.Visible
ff2 = Me.F2.Visible
ff3 = Me.F3.Visible
ff4 = Me.F4.Visible
ff5 = Me.F5.Visible
ff6 = Me.F6.Visible
ff7 = Me.F7.Visible

If me.equipamento = Paquímetro Then
ff1 = True
ff2 = False
ff3 = True
ff4 = False
ff5 = True
ff6 = False
ff7 = False


sendo que F1, F2... são o nome que dei para os formulários, então eu gostaria de escreve-los mais simples, pois imagine se eu fosse escrever que para cada equipamento eu fosse ocultar tals formulário, então se eu tivesse 200 equipamentos então vou escrever uma bíblia e não uma programação.

o que posso fazer a respeito, bom escrevi no excell + ou - o que quero fazer, eu acho que vai ser mais fácil a copreensão de vocês.

Sendo que X é onde o formulário vai estar disponível e (-) é onde não vai estar disponível e (?) vai depender do que vai ser feito a respeito.

Arquivo em Anexo.

Amigão, segue um pequeno exemplo que fiz.. estude como foi feito

1 - Criei uma tabela onde vai os nomes dos equipamentos, e seguidamentes campos sim/Não para os Forms aos quais ele terá como visivel ou não conforme o seleciona na cbo...

portanto, se seleciona o equipamwnto na cbo, e atraves do DCount irá verificar para quais forms esse equipamento terá visivel.. de acordo com a marcação na ChkBox na tabela, ele exibirá ou não o form correspondente..


http://dl.dropbox.com/u/26441349/Dhtm30_07_11.rar


Saudações

Como não retornou, o tópico passa a resolvido. Qualquer coisa reabra, por favor.

A falta de retorno as vezes me dá a impressão de trabalho em vão e tempo perdido.. fico triste por isso

Abrãção amigo Vieira.

Boas novidades, eu voltei aqui para o forum para tirar algumas dúvidas e percebi que deixei algo sem estar resolvido, embora não postei quero que todos que tenham dúvidas do mesmo projeto possa usufruir/aproveitar dessa boa colheita, pois não é certo que todos os administradores e colaboradores gastem seus tempos aqui para que nós usuários so fazem a colheita e não semeiam nada...

pois bem o problema foi solucionado desta maneira:

Criei uma function com estes comandos:

Public Function fncFormsOn(Frm As Form)
'----------------------------------
'Mostra todos os formulários
'dos equipamentos
'----------------------------------
On Error Resume Next
Frm.F1.Visible = Nz(DLookup("[FO1]", "Lista - Equipamentos", "[IDEquipamento]=" & Frm.[Equipamento]), False)
Frm.F2.Visible = Nz(DLookup("[FO2]", "Lista - Equipamentos", "[IDEquipamento]=" & Frm.[Equipamento]), False)
Frm.F3.Visible = Nz(DLookup("[FO3]", "Lista - Equipamentos", "[IDEquipamento]=" & Frm.[Equipamento]), False)
Frm.F4.Visible = Nz(DLookup("[FO4]", "Lista - Equipamentos", "[IDEquipamento]=" & Frm.[Equipamento]), False)
Frm.F5.Visible = Nz(DLookup("[FO5]", "Lista - Equipamentos", "[IDEquipamento]=" & Frm.[Equipamento]), False)
Frm.F6.Visible = Nz(DLookup("[FO6]", "Lista - Equipamentos", "[IDEquipamento]=" & Frm.[Equipamento]), False)

End Function

e para elas iniciarem já oculta, então faço desta maneira:

Public Function fncFormsOff(Frm as Form)
'----------------------------
'Oculta todos os formulários
'dos equipamentos
'----------------------------
DoCmd.GoToControl "ClienteCódigo"
frm.F1.Visible = False
frm.F2.Visible = False
frm.F3.Visible = False
frm.F4.Visible = False
frm.F5.Visible = False
frm.F6.Visible = False

No formulário chamei com está função:

fncFormsOn Form_Formulário-CadastroDeEquipamentos

É isto pessoal, agradeço a vocês e irei postar para vocês verem como foi finalizado o software, pois quero que vocês vejam o quanto vocês ajudam e sempre será grandes desenvolvedores pois os melhores são aqueles que compartilham...


Anexo do arquivo pois não consegui anexar pelo site aqui:

http://www.mediafire.com/?1n62sbt46a4dcme

o arquivo é auto extraivel e esta localizado no C:\

Obrigado pelo retorno, o forum agradece e seja bem vindo de volta.

O pessoal me desculpem, esqueci de postar o usuário e senha,
para Administrador é:Login Dennis senha 0790
para Digitador é :Login dhtm não tem senha