[Resolvido]Criar um relacionamento automático

Boa a todos!

Preciso da vossa ajuda, pegando um exemplo postado aqui em outro tópico apliquei-o no meu projecto e deu certo o unico problema é que a tabela2 não actualiza alguém pode ajudar?

Qual exemplo? Qual tópico? Como aplicou ao seu projeto?

Mais detalhes certamente ajudam no andamento do tópico.

Aguardamos...

Olá amigos

O autor está ser referindo a esse Tópico.

Mr. Style

Assim como o autor do outro tópico, disponibilize parte do teu projeto para analisarmos.

Balem

Obrigado pelo vosso retorno ai vai o exemplo, a ideia é ao registar um dado novo, ao preencher o numero de processo no fromulario arguido ele copia e ao carregar os outros formularios ele preencha esse capo nos formularios e nas tabelas

Amigo

Como não gosto de ficar na tentativa e erros, poderia

me explicar o que devo fazer?

Como começar a digitar um novo registro?

Me diga o passo a passo para ganhar tempo.

Amigo abra a Bd precinando chift, no formulario arguido clique no botão editar e depois em novo, como os formulario se relacionam pelo numero de processo os utilizadores têm que preencher este campo manualmente e tenho tido muitos problemas porque se errar uma letra ou numéro nos outros formularios ele não associa ao formulario de arguidos, o que eu pretendo é um código  que me possibilite preencher o numero de processo no formulário e ele replica o mesmo número nos formularios e nas tabelas. Espero ter me explicado bem

Está a usar um Access 32 bit, eu uso o 64.

Sugiro que acerte as declarações do teu sistema, para  rodar nos dois modos.

Abaixo está um exemplo que fiz no modFundo

Se o teu computador é 64 bit   as declarações  depois do Else ficam em vermelho

Se for de 32 bit , ficam o contrario.

Não coloque  a aspas simples onde está em vermelho, o Access irá ignorar essa frases

para evitar o erro.

Código:


#If Win64 Then

 Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
 (ByVal hwnd As Long, _
  ByVal nIndex As Long) As Long

 Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
 (ByVal hwnd As Long, _
  ByVal nIndex As Long, _
  ByVal dwNewLong As Long) As Long

  Private Declare PtrSafe Function SetLayeredWindowAttributes Lib "user32" _
  (ByVal hwnd As Long, _
   ByVal crKey As Long, _
   ByVal bAlpha As Byte, _
   ByVal dwFlags As Long) As Long
#Else
  Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
  (ByVal hwnd As Long, _
   ByVal nIndex As Long) As Long

  Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
  (ByVal hwnd As Long, _
  ByVal nIndex As Long, _
  ByVal dwNewLong As Long) As Long

  Private Declare Function SetLayeredWindowAttributes Lib "user32" _
  (ByVal hwnd As Long, _
  ByVal crKey As Long, _
  ByVal bAlpha As Byte, _
  ByVal dwFlags As Long) As Long
#End If

Eu novo em programação tenho aprendido muitas dicas aqui no forum com os mestres e cara você salvou a minha vida eu já havia deixado de usar alguns computadores da rede porque dava o erro de PtrSafe, só copiei e colei o teu exemplo no no modFundo e funcionou direitinho . Agora vou aguardar a solução para o problema apresentado.

Mas você tem que fazer em todas as Declarações do teu projeto.

Na folha do VBA vá no menu  clique em Depurar, pode ser diferente no teu português, está sobre a seta verde
que roda o código quando está parado.

Daí clique em Compilar Aqui está o nome do teu projeto

Ele ira parar no primeiro erro que encontrar, conserte o erro e clique novamente e arrume

sucessivamente, até esse botão ficar esmaecido (esbranquiçado)

Mano

Essas duas frases:
Option Compare Database
Option Explicit

Ficam somente uma vez no topo da página do VBA.

Declarar variáveis, somente abaixo das declarações (topo da página) quando necessário e

dentro das funções, ou da erro.

Estou arumando o meu projecto direitinho obrigado pelas dicas Mestre

Mister Style

Eis teu projeto.

Atente para a numeração automática  que é id_Arguido
Veja também o botão Processo, que irá abrir o formulário Processo, caso seja registro novo, ele copia
a id_ Arguido e aguarda a entrada de dados, caso  for registro existem no formulário Arguido, ele
abre o processo desse registro.

Deixei pra você fazer o mesmo com o botão Participante, que deve ser o "companheiro" dele no delito.
Quando arguido não tiver participante pode colocar uma mensagem, dizendo "Sem Participante"
Falando em mensagem eu mudei alguma mensagens, para mostro como pode economizar digitação.
Seu consertou teu projeto ai, então só use esse como exemplo (copie e cola)  

Atente para os códigos em VBA.

Você é Agente da instituição?

{ }'s

Balem

oi Noobezinho, baixei o seu exemplo e tentei adapta-lo ao meu mas está difícil porque vocé usou o número automatico para criar os códigos em VBA, e eu pretendo automatizar o número de processo nas tabelas e nos formulários, vou continuar pesquisando e prometo postar aqui caso encontre uma solução, agradeço toda asua atenção e paciência e respondendo a sua ultíma pergunta eu sou o agente responsável pelo Departamento de Estatística da instituição. Forte abraço

Veja bem

Você falou que ao digitar o usuário poderia errar a digitação, o que é bem possível.
Entendi que  o número do processo,  viria de outro local para o teu local de trabalho, ou seja,
que acompanhava o arguido o que obrigava os teus colegas a digitar.
Se fosse bem claro que queria que essa numeração fosse automática, eu teria feito.
Mas ainda pergunto, essa numeração do processo, é criado no teu computador, ou vem
do tribunal?
E pelo que vejo essa numeração não tem uma  sequencia.

Ou seja, qualquer numeração automática que desejar, diferente dessa que vc viu no projeto que enviei
só será obtida pelo VBA.

Aguardo...

Acho que eu não me expliquei muito bem, a inserção dos dados começa no formulário arguidos. o numero de processo é gerado no fisico em outra unidade e não deve ser auterado, mas acontece que nos formularios ele é inserido manualmente e como muitos usuarios não dominam bem as ferramentas tecnologicas, vezes sem conta trocam ou erram algum digito e como consequencia quando vou fazer por exempo a estatistica só de processos tenho de corrigir esse erro para não sair um relatorio com dados errados. que eu quero na verdade é que ao gerar um novo processo o número de processo digitado no formulário de arguidos seja cópiado não só para os demais formulários, mas principalmente para as tabelas, porque tenho encontrado muitos exemplos bons que copiam perfeitamente de um formulario para outro mas que não actualiza as tabelas.

Então meu amigo

Veja bem, não é uma questão de impor, ou algo assim, apenas te mostrar o prático.

A identificação automática é para  o programador definir um numero único para cada registro,

sem a interferência humana.

Dá até para deixar ele invisível nos formulários, pois, o usuário nem precisa saber que ele existe.

Nesse exemplo que te enviei, quando os usuários (teus colegas) forem digitar, irão fazer do mesmo jeito

que fazem até agora.

E agora, quando precisar pesquisar um registros, pode-se fazer um caixa de combinação (combobox) na qual está

todos os registros da tabela, para escolher qual arguido desejar, clicando apenas no nome, sem precisar digitação.

Quando se clica em um registro nessa combobox, o Access irá procurar pelo id_Arguido, e mesmo que ele tenha

um numero do processo errado, irá trazer o registro certo.

E volto a dizer, fazer numeração automática de uma numeração que não tem sequencia numérica, não tem como.

Ah! e ele está e todas as tabelas principais.

{ }'s

Ok, vou estudar melhor...

Certo Amigo

Precisando de ajuda com os formulários, estamos à disposição.

Olha,não precisa repetir o numero do processo, não outras tabelas,

Se reuni as tabela numa consulta, e se coloca nos campos de baixo, o campos

das tabelas que deseja.

No Access não se repete dados, se aproveita o que já tem.

Boa sorte!

Balem