Substituir 180 form por um apenas

Ola a todos, vou se me podem ajudar, embora ja consiga fazer umas coisas sozinho.

Ando a fazer uma programa que tenho 6 linhas de montagem para que a produção possa registar as paragens de possam ocurrer em cada posto da maquina, tendo eu cerca de 30 postos por linha x 6 linhas teria de ter 180 forms, torna-se dificil fazer isso e dp fica astronomico o progrma sera possivel fazer isso dinamicamente??? Ao fim ao cabo em cada layout eu tenho botoes invisiveis e pretendia que em cada botao que clica-se abrisse sempre mesmo formulario mas muda-se o titulo e a tabela.

Penso que seja possivel mas nao sei como o fazer.

Envio o meu ficheiro embora teria de sofrer algumas alterações.

Se me puderem ajudar agradecia.

O Ficheiro devido a ser muito grande tive de meter fora.

http://depositfiles.com/files/fce2baksp

Olá

Tenho aqui um exemplo, que carrega consultas, utilizando um único formulário. Pode ser que a técnica empregada ajude na sua solução.

Bom estudo!

Olá cabete!

Com a permissão do amigo Avelino, vou deixar a minha adaptação do exemplo com tabelas. Talvez possa lhe ajudar um pouquinho mais.


Sucesso!

Estive a analisar e não sei se dará para fazer o que pretendo estes exemplos porque ao fim ao cabo o que pretendia era que o titulo muda-se conforme o botaõ que carrega-se e depois as duas outras variáveis ( Tempo e Descrição ) também mudasse no local a guardar por estes dois campos é onde eu vou colocar os meus dados para carregar a tabela.

Cabete,

Não sei se entendi o que pretendes, mas segue o exemplo com a alteração:

Estive a analisar e o exemplo nao serve.

O que pretendo e ter um formulário imagina com 30 botões e independente do botão vai abrir um formulário novo neste novo formulário é o mesmo para os 30 botões mudando o seu titulo conforme o botão que se carregou e vai registar os valores que se colocam neste ultimo formulário numa tabela. Embora os dados tem de ter uma componente fixa ao botão.

ex: Se carregar no botão GTU este (GTU) aparece no titulo e vai haver a coluna Maquina que ele também tem de escrever la GTU assim como o tempo e a descrição e se carregar por exemplo (CC1) igual o titulo do formulário tem de ser (CC1)e os valores guardados na tabela tem de ter no campo Maquina (CC1) depois o tempo e dp a descrição.

Cabete,

Se dizes que o exemplo não serve, então vamos aguardar que outro amigo do fórum ofereça outra solução.


Sucesso!

Dê uma olhada no formuláro Linha1 pra ver se é isto mesmo que deseja.

Amigo Gungli não era aquilo que pretendo. Mas todavia tentei fazer como sei e trabalha, que é fazer um form para cada botão.

O que pretendia era o mesmo form abri-se independentemente do botão com o titulo alterado.

Mas obrigado


Podem fechar

Bom dia, vamos dar nome aos itens para entendermos melhor.
Ex.:
No exemplo:
No form Linha 1, no botão Hitek,
coloque no evento click do botão:

DoCmd.OpenForm "HITEK" 'abre o forumlário "HITEK"

Dim FormAberto As Form 'Recebe o nome do formulário atual
Set FormAberto = Forms("HITEK") '...

FormAberto.RecordSource = "Select * From [Paragens Linha Nº1]" 'Recebe a origem da linha (ou registro) para o formulário atual
FormAberto.Caption = "PARAGEM Nº 1/10" 'Muda o título do formulário
FormAberto.Rótulo229.Caption = "HITEK" 'Muda o caption do formulário


No form Linha 1, no botão Command24,
coloque no evento click do botão:

DoCmd.OpenForm "HITEK" 'abre o forumlário "HITEK"

Dim FormAberto As Form 'Recebe o nome do formulário atual
Set FormAberto = Forms("HITEK") '...

FormAberto.RecordSource = "Select * From [Query Linha 3]" 'Recebe a origem da linha (ou registro) para o formulário atual
FormAberto.Caption = "PARAGEM Nº 2/10 - COMPRESSÃO" 'Muda o título do formulário
FormAberto.Rótulo229.Caption = "MESA DE COMPRESSÃO" 'Muda o caption do formulário


* Assim já estamos usando o formulário HITEK para duas tabelas, aí é só fazer a mesma coisa para as outras.

abraços.

Desculpa a ausência mas fiquei sem internet
Ao primeiro impacto estive a ver a nao percebi porque nao trabalhava mas depois percebi que o que me tinhas dado era 2 exemplos tudo no mesmo.
Coloquei os dois a registar na mesma tabela e voilá. Era mesmo o que eu queria .
Diz me uma coisa se eu quiser agora na tabela gravar o titulo na coluna (Posto) na mesma tabela????

Ja tentei

Private Sub hitek_Click()
On Error GoTo Err_hitek_Click

Dim stDocName As String
Dim stLinkCriteria As String


DoCmd.OpenForm "HITEK" 'abre o forumlário "HITEK"

Dim FormAberto As Form 'Recebe o nome do formulário atual
Set FormAberto = Forms("HITEK") '...

FormAberto.RecordSource = "Select * From [Paragens Linha Nº1]" 'Recebe a origem da linha (ou registro) para o formulário atual
FormAberto.Caption = "PARAGEM Nº 1/10" 'Muda o título do formulário
FormAberto.Rótulo229.Caption = "HITEK" 'Muda o caption do formulário
Me.Caption = "HITEK: " & Me!Rótulo229.Value

Exit_hitek_Click:
Exit Sub

Err_hitek_Click:
MsgBox Err.Description
Resume Exit_hitek_Click

End Sub

inclusive tentei colocar uma janela de introdução de dados com o Control source = Posto e depois fui as propriendades deste e em Defalt value coloquei "=[Rótulo229].[Caption]"
Mas quando estou a usar o Hitek grava quando uso o outro grava na mesma o Hitek alguma sujestão?

Coloque uma caixe de texto no formulário HITECK

nome: Posto
na Propriedade, Fonte do Controle: Posto

No evento click do botão adicione a linha abaixo.

FormAberto!Posto = "HITEK: " & FormAberto.Rótulo229.Caption

Tive de fazer uma alteração.

FormAberto!Posto = "" & FormAberto.Rótulo229.Caption

estava me a escrever a mesma coisa duas vezes . Mas ja trabalha.

Nao digo Obrigado digo Muito Muito Obrigado.

Podem fechar. Resolvido graças ao JUNGLI , obrigado mais uma vez