MaximoAccess

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

Obrigado

Administração do MaximoAccess

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


    [Resolvido]Atualizar 2 tabelas por outras 2 tabelas relacionadas

    avatar
    vileman
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 542
    Registrado : 25/05/2011

    [Resolvido]Atualizar 2 tabelas por outras 2 tabelas relacionadas Empty [Resolvido]Atualizar 2 tabelas por outras 2 tabelas relacionadas

    Mensagem  vileman em 6/8/2019, 14:42

    Bom dia a todos.

    Uso: Access 2003

    Após buscas neste fórum, encontrei o seguinte link:
    http://www.maximoaccess.com/t28564-resolvidoimportar-dados-de-uma-tabela-dando-sequencia-na-numeracao-dos-registros

    Que seria o mais próximo do que desejo, e apesar de algumas tentativas para implementar mesmo porque também não atende ao que pretendo, pois é bem mais amplo:

    1) Tenho um formulário ‘F06_CasosXInvestigados’ com o campo ‘IDOperacao’ que tem como origem de dados a tabela ‘T06_Investigados’; nesse campo no evento “Após atualizar” ele busca pelo campo IDOperacao o nome da Operação selecionada e atualiza os demais campos neste mesmo formulário: ‘DataEntrada’, ‘Demandante’, ‘OrgaoOrigem’ e ‘NomeOperacao’, respectivamente com os campos correspondentes da tabela ‘T13_Operacoes’. Até aqui tudo bem, consigo fazer.

    Preciso que neste mesmo evento “Após atualizar”, do campo ‘IDOperacao’ além do indicado acima, faça o seguinte:
    a) Perguntar se deseja importar os dados das Apreensões da Operação X, em sendo ‘Sim’:

    • Fase I: No formulário ‘F134_OperacaoXApreensoesPF’  de onde os dados devem ser importados com origem de dados da tabela: ‘T134_OperacoesXApreensoes’ que tem o campo a ser importado: NomePessoa, que por sua vez tem o campo nesse mesmo formulário ‘IDPessoa’ com origem na tabela ‘T17_Pessoas’ que mostra o nome da pessoa selecionada pelo ID correspondente em uma  Caixa de Texto: NomePessoa; este campo seria importado para um novo registro no formulário ‘F06_CasosXInvestigados’ atualizando/importando para o campo ‘NomeInvestigado’ que tem como origem de dados a Tabela ‘T06_Investigados’;

    • Fase II: Concomitantemente à Fase I: no formulário ‘F135_ApreensoesXMateriaisPF’ que é um subformulário do formulário acima ‘‘F134_OperacaoXApreensoesPF’ (Relacionamento Um-para-vários. Campo Mestre: CodApreensao. Campo Filho: IDCodApreensao), que tem como origem de Dados a tabela: ‘T135_MateriaisXApreensoesPF’. Sendo os seguintes campos a serem importados para novos registros: ‘MaterialApreendido’ e ‘Complemento’ para outro subformulário: ‘F061_Evidencias’ para os campos: ‘AparelhoDescricao’ e ‘Modelo’, respectivamente, que tem a tabela ‘T06_Evidencias’ como origem de dados.

    Observações:
    1. Na maioria das vezes, são vários tipos de materiais apreendidos por Pessoa, então a indexação das importações deverá ter como ponto de partida a Operação e  o Nome da Pessoa e assim gerar novos registros relacionados entre si, conforme detalhado acima;

    2. A tabela ‘T134_OperacoesXApreensoes’ citada na Fase I está relacionada com a tabela ‘T13_Operacoes’ (Um-para-vários. CodOperacao x IDCodOperacao, respectivamente) que a princípio, entendo que não interfere na rotina desejada, que por sua vez tem o formulário ‘F13_Operacoes’ como base de toda rotina, ou seja, serve como ponto de partida para selecionar a Operação (IDOperacao) e em seguida a Pessoa envolvida a ser investigada que por sua vez teve os materiais apreendidos, conforme Fases I e II.

    3. Todos os relacionamentos acima citados entre as tabelas envolvidas e formulários estão funcionando perfeitamente, apenas gostaria de acrescentar a importação de dados das apreensões de materiais para outro formulário, escolhendo a Operação e a Pessoa.

    Espero tenha ficado claro, caso contrário tentarei explicar de outra forma. Caso necessário posso enviar arquivo com os formulários e tabelas da questão para melhor visualização e entendimento dos senhores.
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 664
    Registrado : 11/11/2009

    [Resolvido]Atualizar 2 tabelas por outras 2 tabelas relacionadas Empty Re: [Resolvido]Atualizar 2 tabelas por outras 2 tabelas relacionadas

    Mensagem  scandinavo em 7/8/2019, 17:23

    Ola

    Disponibilize o banco de dados somente com as respectivas tabelas envolvidas e os formulários.


    Ate mais


    Última edição por scandinavo em 19/8/2019, 13:53, editado 1 vez(es)
    avatar
    vileman
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 542
    Registrado : 25/05/2011

    [Resolvido]Atualizar 2 tabelas por outras 2 tabelas relacionadas Empty Atualizar 2 tabelas por outras 2 tabelas relacionadas

    Mensagem  vileman em 8/8/2019, 13:35

    Bom dia,

    ok, vou preparar o arquivo para envio.

    Até mais
    avatar
    vileman
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 542
    Registrado : 25/05/2011

    [Resolvido]Atualizar 2 tabelas por outras 2 tabelas relacionadas Empty Atualizar 2 tabelas por outras 2 tabelas relacionadas

    Mensagem  vileman em 11/8/2019, 01:48

    Boa noite, Scandinavo

    Segue o arquivo conforme o combinado.
    Anexos
    [Resolvido]Atualizar 2 tabelas por outras 2 tabelas relacionadas AttachmentFMA - 2 Tabelas x 2 Tabelas.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (544 Kb) Baixado 8 vez(es)
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 664
    Registrado : 11/11/2009

    [Resolvido]Atualizar 2 tabelas por outras 2 tabelas relacionadas Empty Re: [Resolvido]Atualizar 2 tabelas por outras 2 tabelas relacionadas

    Mensagem  scandinavo em 12/8/2019, 14:57

    Ola

    fique no aguardo
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 664
    Registrado : 11/11/2009

    [Resolvido]Atualizar 2 tabelas por outras 2 tabelas relacionadas Empty Re: [Resolvido]Atualizar 2 tabelas por outras 2 tabelas relacionadas

    Mensagem  scandinavo em 13/8/2019, 19:23

    Vamos tentar resolver isto por partes Fase I
    veja se esta certo ai continuamos. (Mas já vou fazendo a segunda fase)

    Criei uma consulta "csCodigoNomeInvestigado" para pegar o nome dos investigados para inserir na tabela "T06_Investigados"
    e um codigo para fazer a adição nesta mesma tabela.

    que esta no evento apos atualizar do campo ‘IDOperacao’ do formulário ‘F06_CasosXInvestigados’
    Anexos
    [Resolvido]Atualizar 2 tabelas por outras 2 tabelas relacionadas AttachmentFMA - 2 Tabelas x 2 Tabelas original.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (565 Kb) Baixado 6 vez(es)
    avatar
    vileman
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 542
    Registrado : 25/05/2011

    [Resolvido]Atualizar 2 tabelas por outras 2 tabelas relacionadas Empty Atualizar 2 tabelas por outras 2 tabelas relacionadas

    Mensagem  vileman em 14/8/2019, 17:04

    ok, vou ver e depois posto o resultado.
    avatar
    vileman
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 542
    Registrado : 25/05/2011

    [Resolvido]Atualizar 2 tabelas por outras 2 tabelas relacionadas Empty Atualizar 2 tabelas por outras 2 tabelas relacionadas

    Mensagem  vileman em 15/8/2019, 14:09

    Bom dia, Scandinavo

    Aconteceu o seguinte na rotina a partir do evento ‘Após atualizar’ no campo ‘IDOperacao’:

    1) Na tabela ‘T06_Investigados’ antes de atualizar pela sua rotina observei que haviam 11 registros: 10 que eu enviei e mais 1 criado por você, o último registro: CodInvestigado = 99. Esse registro estava com os seguintes dados:
    CodInvestigado = 99; AnoAtual: 2019; DataEntrada: 13/08/2019; OrgaoOrigem: SDS/PE; NºDocumento: Oficio nº 099/2019; Demandante: Estevão (Secretaria); NomeInvestigado: NULO;  IDOperacao: 10; NomeOperacao:  GRALHA II

    No formulário ‘F06_Investigados’ após atualizar para importar os nomes dos Investigados, aconteceu o seguinte:
    a. Atualizou o último registro: CodInvestigado=99 para: CodInvestigado = 99; AnoAtual: 2019; DataEntrada: 15/08/2019; OrgaoOrigem: SDS/PE; NºDocumento: Oficio nº 099/2019; Demandante: Estevão (Secretaria); NomeInvestigado: NULO;  IDOperacao: 10; NomeOperacao:  GRALHA II. OS: Observe que mudou a data para 15/08/2019, quando antes era 13/08/2019 e manteve os demais campos inalterados. Deve ter feito isso por conta do campo 'IDOperacao' igual a 10, então atualizou esse último registro. Para testar se estava correto, exclui os 10 últimos registros e fiz a importação novamente pelo formulário e incluiu os 09 registros, isto é, até aqui está correto, mas tem as ocorrencias abaixo desses 09 registros, a saber:

    b. Incluiu mais 09 registros, quando deveria ter importado apenas 07 Registros, a saber das seguintes Pessoas/Investigados:
    1. Alvo 01: Código: 274 – Abelardo de Araújo Estevão
    2. Alvo 02: Código: 23   – Adeilson Mauro Lira Mata Cavalcanti
    3. Alvo 03: Código: 177 – Abzael Ferreira da Silva
    4. Alvo 04: Código: 99   – Adriana Freitas Gomes
    5. Alvo 05: Código: 236 – Alessandro Pedro da Silva
    6. Alvo 06: Código: 59   – Adja Ária de Freitas Guerra
    7. Alvo 07: Código: 168 – Adelmo Romero Veríssimo do Amaral

    Então nesse caso, incluiu a mais 02 Registros de Pessoas/Investigados, que constam na tabela ‘T134_OperacaoXApreensoes’ mas que estão no campo ‘IDOperacao’ do Código 9, e não do Código 10, como foi o Código da Operação escolhida para a importação:
    8. Código: 268 – Alexandre Mauro Lira Moura
    9. Código: 285 – Alexandre Lira Cavalcanti

    Observei também que na consulta de origem que você criou: ‘csCodigoNomeInvestigado’ é exatamente os 09 registros que mostra na tabela/formulário, porisso que quando da importação pegou essas 09 Pessoas, então acredito que seria necessário um ajuste nessa consulta, tentei fazer, mas o resultado foi o mesmo de 09 registros.

    A ideia e a intenção feitas por você da rotina estão corretas, falta apenas esse ajuste.
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 664
    Registrado : 11/11/2009

    [Resolvido]Atualizar 2 tabelas por outras 2 tabelas relacionadas Empty Re: [Resolvido]Atualizar 2 tabelas por outras 2 tabelas relacionadas

    Mensagem  scandinavo em 15/8/2019, 15:22

    Eu vi este erro da quantia de registros e já concertei . Agora no caso da edição da data o motivo foi que seu form abre no último registro e só e para teste va vai direto escolher o id operação
    Executando o código
    A fase 2 está quase concluída
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 664
    Registrado : 11/11/2009

    [Resolvido]Atualizar 2 tabelas por outras 2 tabelas relacionadas Empty Re: [Resolvido]Atualizar 2 tabelas por outras 2 tabelas relacionadas

    Mensagem  scandinavo em 16/8/2019, 13:44

    Ola
    fiz mais uma consulta para as evidencias "csEvidencias"

    Observação

    Abrindo o formulario F06_CasosXInvestigados indo para um novo registro e escolhendo um operação e adicionando os novos nomes
    sempre vai criar um registro em branco no formulario.

    e aquele seu codigo pedindo se deseja salvar antes de mudar de registros se optar por não salvar so vai desfaser os dados do registro atual
    caso ja tenha importados os nomes não vai desfazer.

    entao criei um form so para importação e com dois botões (mais fácil do que por um código em um só)

    dica eu colocaria um campo sim/não na tabela T13_Operacoes para registrar se os dados daoperação ja foi importado evitando duplicidade.


    Ver imagem em anexo
    Anexos
    [Resolvido]Atualizar 2 tabelas por outras 2 tabelas relacionadas AttachmentFMA - 2 Tabelas x 2 Tabelas original.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (696 Kb) Baixado 10 vez(es)
    avatar
    vileman
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 542
    Registrado : 25/05/2011

    [Resolvido]Atualizar 2 tabelas por outras 2 tabelas relacionadas Empty Atualizar 2 tabelas por outras 2 tabelas relacionadas

    Mensagem  vileman em 17/8/2019, 22:35

    Olá,

    Vou ver e depois posto os resultados.
    Gostei da ideia de colocar um campo sim/não para evitar duplicidade, valeu de novo.
    avatar
    vileman
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 542
    Registrado : 25/05/2011

    [Resolvido]Atualizar 2 tabelas por outras 2 tabelas relacionadas Empty Atualizar 2 tabelas por outras 2 tabelas relacionadas

    Mensagem  vileman em 19/8/2019, 01:23

    Boa noite, Scandinavo

    Após testes aconteceu o seguinte:

    1) A rotina de importação dos Nomes dos Investigados está funcionando corretamente no formulário F06_CasosXInvestigados após selecionar o campo 'IDOperacao', mas não está mostrando automaticamente os registros importados, apenas quando fecha e abre o formulário novamente aparecem os registros importados.
    * coloquei o comando Me.Refresh nos eventos 'Após Atualizar' e 'Ao receber Foco' do formulário e dentro da rotina em questão, mas não funcionou.

    2) Ao clicar no botão 'Inserir' aparece a mensagem:
    "Erro em tempo de execução '3021'
    Nenhum registro atual"
    Ao Depurar: aponta em amarelo para a linha: rst.MoveFirst

    * Para testar retirei/comentei essa linha e fez a importação correta das Evidencias, mas não tenho certeza que se pode fazer isso ou não ... aguardo sua orientação ...
    OBS 1: peço que coloque o campo 'Modelo' no formulário 'F061_Evidencias' pois é um dos campos que vai atualizar com a importação das evidencias.
    OBS 2: Também não mostra no SubFormulário 'F061_Evidencias' os registros importados quando da importaçao das Evidencias, ou seja, precisa fechar e abrir novamente o formulário principal.

    PS: Conforme sua sugestão para incluir um campo Sim/Não na tabela T13_Operacoes para evitar duplicidade na importação dos dados não seria melhor na tabela T134_OperacaoXApreensoes?
         De qualquer forma como seria para inserir mais essa rotina ?
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 664
    Registrado : 11/11/2009

    [Resolvido]Atualizar 2 tabelas por outras 2 tabelas relacionadas Empty Re: [Resolvido]Atualizar 2 tabelas por outras 2 tabelas relacionadas

    Mensagem  scandinavo em 19/8/2019, 15:04

    1_coloquei o comando Me.Refresh nos eventos 'Após Atualizar'
    Também não mostra no SubFormulário 'F061_Evidencias'

    Por isto sugeri fazer um form so para importação mas isto tambem funciona
          Me.Form.Requery
          DoCmd.GoToRecord , , acLast  'POSICIONA NO ÚLTIMO REGISTRO
          Me.CodInvestigado.SetFocus   'POSICIONA NO CAMPO: 'CodInvestigado'


    2_Para testar retirei/comentei

    esta linha tambem faz isto
    Do While Not rst.EOF


    3_ peço que coloque o campo 'Modelo' no formulário 'F061_Evidencias'

    Ja esta incluido
    rst2("Modelo") = rst!Complemento 'Adiciona os dados referente a evidencia

    4_não seria melhor na tabela T134_OperacaoXApreensoes?

    Não pois ai nesta tabela havera varios idOperacao iguais
    enquanto que na tabela T13_Operacoes somente tera um unico codigo IdOperacao e é esta tabela que alimenta a cmbox


    5_De qualquer forma como seria para inserir mais essa rotina ?

    ver evento antes de atualizar
    Obs Adicionei este novo campo a cmbox para verificação

    Transformei os codigos em Funções e coloquei todos em um unico evento

    'Pergunta se deseja importar

    If MsgBox("Deseja importar os dados das Apreens?es da Opera??o. " & Me.IDOperacao & " ?", vbQuestion + vbYesNo, "Rotina para Importa??o") = vbNo Then

    Exit Sub 'sai do codigo
    Else
    'chama a fun??o
    Call ImportarNomes
    Call ImportarEvidencias
    Call MarcaImportado
    End If

    Me.Form.Requery
    DoCmd.GoToRecord , , acLast 'POSICIONA NO ?LTIMO REGISTRO
    Me.CodInvestigado.SetFocus 'POSICIONA NO CAMPO: 'CodInvestigado'
    Anexos
    [Resolvido]Atualizar 2 tabelas por outras 2 tabelas relacionadas AttachmentFMA -Importar Dados2.mdb.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (584 Kb) Baixado 3 vez(es)
    avatar
    vileman
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 542
    Registrado : 25/05/2011

    [Resolvido]Atualizar 2 tabelas por outras 2 tabelas relacionadas Empty Atualizar 2 tabelas por outras 2 tabelas relacionadas

    Mensagem  vileman em 19/8/2019, 17:41

    Boa tarde,

    Vou verificar e informo depois, valeu!
    avatar
    vileman
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 542
    Registrado : 25/05/2011

    [Resolvido]Atualizar 2 tabelas por outras 2 tabelas relacionadas Empty Atualizar 2 tabelas por outras 2 tabelas relacionadas

    Mensagem  vileman em 20/8/2019, 01:30

    Boa noite, Scandinavo

    Aconteceu assim:

    Testei no formulário 'F06_Investigados' e funcionou bem, inclusive atualiza os registros importados nos 2 formulários envolvidos como também não deixa importar se já tiver sido importado anteriormente por conta do campo 'Importado' está como [Sim] na tabela 'T13_Operacoes', mas como fica posicionado no último registro ao abrir então ele grava o IDOperacao selecionado nesse último registro - mesmo retirando esse comando de posicionar no último registro vai acontecer a mesma coisa ao abri no primeiro registro -, o que não estaria correto, porisso que agora entendi melhor sua sugestão de criar em um formulário a parte para a importação que seria o mais correto, então por conta disso inclui nesse formulário um botão de comando para chamar o 'frmImportacao', mas aconteceu o seguinte:

    1. Mesmo o campo 'Importado' na tabela 'T13_Operacoes' estando marcado como [Sim] a rotina prossegue para a importação, sem bloquear esta ação.
    * Coloquei no evento 'Antes de Atualizar' do formulário 'frmImportacao' a rotina que havia passado no post anterior, mas mesmo assim não funcionou.

    2. Não atualiza os registros nos formulários 'F06_Investigados' e 'F061_Evidencias', precisa fechar e abrir novamente o formulário principal.

    PS: Pedi para você colocar o campo 'Modelo' no formulário 'F061_Evidencias' para visualizar o campo correspondente importado, pois na rotina da importação você já o tinha incluído. Já testei e também está ok.

    3. Na sua Função:
    Function ImportarEvidencias() 'AUTORIA: Fórum MaximoAccess - Scandinavo 16/08/2019
    onde adiciona novos dados, eu inclui os campos em negrito abaixo:

           'Adicionar os novos dados
           rst2.AddNew
           rst2("IDInvestigadoLAF") = rs!CodInvestigado       'Adiciona o codInvestigado para fazer a vinculação entre as duas tabelas T06_Investigados e a T061_Evidencias
           rst2("AparelhoDescricao") = rst!MaterialApreendido 'Adiciona os dados referente a evidencia
           rst2("Modelo") = rst!Complemento                   'Adiciona os dados referente a evidencia
           rst2("NumEvidencia") = Format(Left(DMax("[NumEvidencia]", "T061_Evidencias", "Right([NumEvidencia],4)= " & Year(Date)), 4) + 1, "0000") & "/" & Year(Date) '18/08/2019: Comando inserido por mim
           rst2("DataEntrada") = DataAtual                          '18/08/2019: Comando inserido por mim
           rst2("PrazoAnalise") = 30                                    '19/08/2019: Comando inserido por mim
           rst2("DataPrazo") = DataEntrada + PrazoAnalise   '19/08/2019: Comando inserido por mim
           rst2("StatusLAF") = "Em Análise"


    Então gostaria de sua ajuda mais uma vez no seguinte, pois tentei de várias formas, mas não funcionou apenas em 2 dos novos campos:
    a. DataEntrada  => Fica como: Nulo           - para todos os registros das evidencias importadas
    b. DataPrazo     => Fica como: 30/12/1899 - para todos os registros das evidencias importadas

    * DataEntrada: seria igual a data do dia corrente, então já existe no formulário 'F061_Evidencias' um campo - como invisivel e fundo verde - DataAtual que captura a data do dia corrente
    * DataPrazo   : seria a Data de Entrada + 30 corridos que é o valor padrão do campo 'PrazoAnalise' então a data correta seria: 18/09/2019, sendo a Data de Entrada = 19/08/2019 (hoje)

    estamos terminando ...
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 664
    Registrado : 11/11/2009

    [Resolvido]Atualizar 2 tabelas por outras 2 tabelas relacionadas Empty Re: [Resolvido]Atualizar 2 tabelas por outras 2 tabelas relacionadas

    Mensagem  scandinavo em 20/8/2019, 18:21

    1. Mesmo o campo 'Importado' na tabela 'T13_Operacoes' estando marcado como [Sim] a rotina prossegue para a importação, sem bloquear esta ação.
    Nao basta so inserir o codigo era preciso alterar a estrutura da combo. (o campo "Importado" nao estava visivel para o codigo)


    2. Não atualiza os registros nos formulários 'F06_Investigados' e 'F061_Evidencias', precisa fechar e abrir novamente o formulário principal.
    simples pede para o codigo abrir um formulario e fechar o outro

    DoCmd.OpenForm "frmImportacao", acNormal
    DoCmd.Close acForm, "F06_CasosXInvestigados"

    e depois faz o contrario

    DoCmd.OpenForm "F06_CasosXInvestigados", acNormal
    DoCmd.Close acForm, "frmImportacao"

    3. Na sua Função:
    DataPrazo   : seria a Data de Entrada + 30

    calculos com datas nao são tão simples assim precisa informar o que voce deseja acrescentar se é dia mes ou ano

    rst2("DataPrazo") = DateAdd("d", 30, Date) "d" para dias "m" para mes e "y" para ano


    obs
    rst2("NumEvidencia") = Format(Left(DMax("[NumEvidencia]", "T061_Evidencias", "Right([NumEvidencia],4)= " & Year(Date)), 4) + 1, "0000") & "/" & Year(Date) '18/08/2019: Comando inserido por mim
    precisa ter pelo menos um numero de evidencia na tabela se não da erro  DMax("[NumEvidencia]"
    Anexos
    [Resolvido]Atualizar 2 tabelas por outras 2 tabelas relacionadas AttachmentFMA -Importar Dados2.mdb.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (173 Kb) Baixado 3 vez(es)
    avatar
    vileman
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 542
    Registrado : 25/05/2011

    [Resolvido]Atualizar 2 tabelas por outras 2 tabelas relacionadas Empty Atualizar 2 tabelas por outras 2 tabelas relacionadas

    Mensagem  vileman em 20/8/2019, 22:53

    Scandinavo:

    Ficou perfeito. Agradeço muitíssimo por tudo, pela paciência e pelos ensinamentos, pois aprendi muito com você.

    Valeu mesmo. Forte abraço.

    Muita Paz!
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 664
    Registrado : 11/11/2009

    [Resolvido]Atualizar 2 tabelas por outras 2 tabelas relacionadas Empty Re: [Resolvido]Atualizar 2 tabelas por outras 2 tabelas relacionadas

    Mensagem  scandinavo em 21/8/2019, 13:34

    pig Valeu pelo retorno e boa sorte🐷

    Conteúdo patrocinado

    [Resolvido]Atualizar 2 tabelas por outras 2 tabelas relacionadas Empty Re: [Resolvido]Atualizar 2 tabelas por outras 2 tabelas relacionadas

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 17/9/2019, 16:10