MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

3 participantes

    [Resolvido]Criar um relacionamento automático

    avatar
    Mr. Style
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 16
    Registrado : 19/04/2020

    [Resolvido]Criar um relacionamento automático Empty [Resolvido]Criar um relacionamento automático

    Mensagem  Mr. Style 27/4/2021, 09:08

    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?
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3063
    Registrado : 22/11/2016

    [Resolvido]Criar um relacionamento automático Empty Re: [Resolvido]Criar um relacionamento automático

    Mensagem  DamascenoJr. 27/4/2021, 11:06

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

    Mais detalhes certamente ajudam no andamento do tópico.

    Aguardamos...


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4144
    Registrado : 29/06/2012

    [Resolvido]Criar um relacionamento automático Empty Re: [Resolvido]Criar um relacionamento automático

    Mensagem  Noobezinho 27/4/2021, 11:46

    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


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

    Mr. Style gosta desta mensagem

    avatar
    Mr. Style
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 16
    Registrado : 19/04/2020

    [Resolvido]Criar um relacionamento automático Empty Problemas com relacionamento automático

    Mensagem  Mr. Style 27/4/2021, 12:28

    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
    Anexos
    [Resolvido]Criar um relacionamento automático AttachmentBase de dados Exemplo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (639 Kb) Baixado 7 vez(es)
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4144
    Registrado : 29/06/2012

    [Resolvido]Criar um relacionamento automático Empty Re: [Resolvido]Criar um relacionamento automático

    Mensagem  Noobezinho 27/4/2021, 13:14

    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. Wink


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    Mr. Style
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 16
    Registrado : 19/04/2020

    [Resolvido]Criar um relacionamento automático Empty Re: [Resolvido]Criar um relacionamento automático

    Mensagem  Mr. Style 27/4/2021, 13:28

    cheers 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 bounce
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4144
    Registrado : 29/06/2012

    [Resolvido]Criar um relacionamento automático Empty Re: [Resolvido]Criar um relacionamento automático

    Mensagem  Noobezinho 27/4/2021, 13:44

    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


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    Mr. Style
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 16
    Registrado : 19/04/2020

    [Resolvido]Criar um relacionamento automático Empty Obrigado!

    Mensagem  Mr. Style 27/4/2021, 14:18

    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 Laughing. Agora vou aguardar a solução para o problema apresentado.
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4144
    Registrado : 29/06/2012

    [Resolvido]Criar um relacionamento automático Empty Re: [Resolvido]Criar um relacionamento automático

    Mensagem  Noobezinho 27/4/2021, 14:26

    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)


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

    Mr. Style gosta desta mensagem

    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4144
    Registrado : 29/06/2012

    [Resolvido]Criar um relacionamento automático Empty Re: [Resolvido]Criar um relacionamento automático

    Mensagem  Noobezinho 27/4/2021, 14:58

    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.


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

    Mr. Style gosta desta mensagem

    avatar
    Mr. Style
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 16
    Registrado : 19/04/2020

    [Resolvido]Criar um relacionamento automático Empty Re: [Resolvido]Criar um relacionamento automático

    Mensagem  Mr. Style 27/4/2021, 15:10

    Estou arumando o meu projecto direitinho obrigado pelas dicas Mestre Laughing
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4144
    Registrado : 29/06/2012

    [Resolvido]Criar um relacionamento automático Empty Re: [Resolvido]Criar um relacionamento automático

    Mensagem  Noobezinho 27/4/2021, 19:50

    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)   Wink

    Atente para os códigos em VBA.

    Você é Agente da instituição?

    { }'s

    Balem
    Anexos
    [Resolvido]Criar um relacionamento automático AttachmentBase de dados Balem.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (605 Kb) Baixado 9 vez(es)


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    Mr. Style
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 16
    Registrado : 19/04/2020

    [Resolvido]Criar um relacionamento automático Empty Re: [Resolvido]Criar um relacionamento automático

    Mensagem  Mr. Style 28/4/2021, 18:19

    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 Wink
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4144
    Registrado : 29/06/2012

    [Resolvido]Criar um relacionamento automático Empty Re: [Resolvido]Criar um relacionamento automático

    Mensagem  Noobezinho 28/4/2021, 19:10

    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...


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    Mr. Style
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 16
    Registrado : 19/04/2020

    [Resolvido]Criar um relacionamento automático Empty Re: [Resolvido]Criar um relacionamento automático

    Mensagem  Mr. Style 28/4/2021, 19:28

    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.
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4144
    Registrado : 29/06/2012

    [Resolvido]Criar um relacionamento automático Empty Re: [Resolvido]Criar um relacionamento automático

    Mensagem  Noobezinho 28/4/2021, 19:51

    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


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

    Mr. Style gosta desta mensagem

    avatar
    Mr. Style
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 16
    Registrado : 19/04/2020

    [Resolvido]Criar um relacionamento automático Empty Re: [Resolvido]Criar um relacionamento automático

    Mensagem  Mr. Style 28/4/2021, 21:10

    Ok, vou estudar melhor...
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4144
    Registrado : 29/06/2012

    [Resolvido]Criar um relacionamento automático Empty Re: [Resolvido]Criar um relacionamento automático

    Mensagem  Noobezinho 28/4/2021, 21:16

    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


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

    Mr. Style gosta desta mensagem


      Data/hora atual: 21/9/2021, 02:52