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]Gerar novo Registro e atualizar campos entre 2 Formulários

    avatar
    vileman
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    [Resolvido]Gerar novo Registro e atualizar campos entre 2 Formulários Empty [Resolvido]Gerar novo Registro e atualizar campos entre 2 Formulários

    Mensagem  vileman em 6/2/2017, 03:54

    Boa noite. Após buscas no site, encontrei alguns tópicos pelos quais tentei resolver minha questão, mas não consegui, porisso peço mais uma vez a ajuda de vocês no seguinte:

    * Uso o Access 2003

    Tenho 2 formulários e minha intenção é gerar um novo registro a partir do Formulário A para um Formulário B, trazendo para este 2º formulário algumas informações gravadas no 1º formulário e vice-versa, a saber:

    Formulário A = F17_DocAdministrativo   - Tabela: T17_DocAdministrativo
    Formulário B = F07_RegAdministrativo   - Tabela: T07_RegAdministrativo

    A) No Formulário A, no evento "após atualizar" do campo 'DataStatus5' tem os comandos:
           MsgBox "ATENÇÃO!! Será gerada um novo Registro de NOTÍCIA DE FATO relacionada ao Documento Administrativo ativo !!", vbInformation, "Sistema - Alerta"
           DoCmd.OpenForm "F07_RegAdministrativo"
           'Forms!F17_DocAdministrativo!NumDocAdm = Me!DocAdmGerado 'FUNCIONOU ? NÃO
           'Me.DocAdmGerado = Forms!F17_DocAdministrativo!NumDocAdm 'FUNCIONOU ? NÃO
           'Me.NumDocAdm = Forms!F07_RegAdministrativo!DocAdmGerado 'FUNCIONOU ? NÃO

    Usei cada um dos últimos 3 comandos alternadamente, com o objetivo de gravar o campo "NumDocAdm" do Formulário A para o campo "DocAdmGerado do Formulário B, mas nenhum funcionou, então preciso:

    1) Ao clicar no evento "após atualizar" do campo 'DataStatus5' no Formulário A preciso que grave o campo "NumDocAdm" (Gerado automaticamente nesse formulário) para o campo "DocAdmGerado" do Formulário B, nesse novo registro, conforme rotina acima na letra A.  

    2) junto com o item 1 e no mesmo evento "após atualizar" do campo 'DataStatus5' no Formulário A, preciso que seja gerado um novo registro no formulário B, e nesse novo registro sejam repassadas (gravadas) as informações dos campos do registro do formulário A para o formulário B, a saber:
    Formulário A - campos: IDRecebedor - DataChegada - DataEntrada - IDDocumento - Expediente
    Formulário A - campos: IDRecebedor - DataChegada - DataEntrada - IDDocumento - Expediente

    3) Após salvar/gravar ou ao sair do novo registro no Formulário B preciso que grave o campo "NumTombo" (Gerado automaticamente nesse formulário) para o campo "Status5NoticiaFato" do Formulário A.

    4) no evento "após atualizar" do campo 'IDNoticiaFato' no Formulário A, tem a seguinte rotina:
       Dim stDocName As String
       Dim stLinkCriteria As String

       stDocName = "F07_RegAdministrativo"
       stLinkCriteria = "[CodProced]=" & Me![IDNoticiaFato]
       DoCmd.OpenForm stDocName, , , stLinkCriteria
       Exit Sub
       MsgBox Err.Description

    A rotina acima está funcionando corretamente da seguinte forma: após atualizar o campo 'IDNoticiaFato' em uma combobox do Formulário A com os dados do campo 'CodProced' do Formulário B, ou seja, abre o registro do Formulário B correspondente ao que foi escolhido no Formulário A, até aqui tudo certo, o que preciso é que além de abrir esse registro, seja gravado no campo "DocAdmGerado" do Formulário B, o campo "NumDocAdm" do Formulário A.

    Espero tenha ficado claro, senão aos poucos vou esclarecendo, se necessário.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7298
    Registrado : 05/11/2009

    [Resolvido]Gerar novo Registro e atualizar campos entre 2 Formulários Empty Re: [Resolvido]Gerar novo Registro e atualizar campos entre 2 Formulários

    Mensagem  Alexandre Neves em 6/2/2017, 19:21

    Boa tarde,
    Vamos por partes
    Vamos tratar a 1ª dúvida (e pode ser que as outras resolva por semelhança)

    A) No Formulário A, no evento "após atualizar" do campo 'DataStatus5' tem os comandos:
    MsgBox "ATENÇÃO!! Será gerada um novo Registro de NOTÍCIA DE FATO relacionada ao Documento Administrativo ativo !!", vbInformation, "Sistema - Alerta"
    DoCmd.OpenForm "F07_RegAdministrativo"
    'Forms!F17_DocAdministrativo!NumDocAdm = Me!DocAdmGerado 'FUNCIONOU ? NÃO
    'Me.DocAdmGerado = Forms!F17_DocAdministrativo!NumDocAdm 'FUNCIONOU ? NÃO
    'Me.NumDocAdm = Forms!F07_RegAdministrativo!DocAdmGerado 'FUNCIONOU ? NÃO


    Tudo indica que se trata de campo se numeração automática
    Se assim for, como é criado o novo número? é sequencial?
    Coloque
    MsgBox "ATENÇÃO!! Será gerada um novo Registro de NOTÍCIA DE FATO relacionada ao Documento Administrativo ativo !!", vbInformation, "Sistema - Alerta"
    If Me.NewRecord Then
    Forms!F17_DocAdministrativo!NumDocAdm = DMax ( "NomeDoCampoAutonumeracao", "NomeDaTabela ") + 1
    Else
    Forms!F17_DocAdministrativo!NumDocAdm = Me.NomeDeCaixaTextoAutonumeracao
    End If


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    vileman
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    [Resolvido]Gerar novo Registro e atualizar campos entre 2 Formulários Empty Gerar novo Registro e atualizar campos entre 2 Formulários

    Mensagem  vileman em 10/2/2017, 20:23

    Boa tarde, Alexandre

    Sim, o número a ser gerado é de numeração sequencial e por ano da seguinte forma:

    No Campo tipo Texto "NumTombo" na linha Valor Padrão:
    = SeImed(DContar("[NumTombo]";"T07_RegAdministrativo";"[AnoAtual]= " & Ano(Data()) & "")=0;("0001" & Direita(Ano(Data());4));Formato((Esquerda(DMáx("[NumTombo]";"T07_RegAdministrativo";"[AnoAtual]= " & Ano(Data()) & "");4)+1) & Direita(Ano(Data());4);"0000\/0000"))

    OBS: Nessa mesma tabela "T07_RegAdministrativo" além desse campo "NumTombo" tem outro campo tipo Autonumeração "CodProced", embora a numeração que aparece e interessa para o usuário seja a do campo "NumTombo".
    A minha intenção é que cada registro em Documento Administrativo gere um novo registro de Noticia de Fato (que se chamava antes "NumTombo", mas resolveram mudar a nome desse campo devido a alterações internas da instituiçao que eu trabalho, mas ainda não alterei na BD, pois o campo "CodProced" que equivale ao campo "NumTombo" já trabalha com vários outros em consultas, relatórios e formulários diversos, visto que o ideal seria que os campos se chamasse "CodNotFato" e "NumNotFato", respectivamente; achei melhor deixar como está por enquanto,) desde que esteja contido no campo "DataStatus5", ou seja, nem sempre um Documento Administrativo gera uma Notícia de Fato, depende da autorização da chefia, e quando ele autoriza para gerar, é como estivesse convertendo um Documento Administrativo convertendo para um registro de Notícia de Fato, e este primeiro fica como que arquivado e as demandas seguintes passam a ser dessa Notícia de Fato, então há a necessidade de importar basicamente as mesmas informações do Registro Administrativo para a nova Noticia de Fato, mas também preciso informar no formulário qual foi a origem dessa nova Notícia de Fato, isto é, o Documento Administrativo que deu origem ao mesmo, como também informar ao formulário do Documento Administrativo o número da Noticia de Fato gerado a partir dele, então um vai ter a informação do outro com relação ao número gerado.

    Vou testar da forma que você postou e depois lhe digo o resultado.
    avatar
    vileman
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    [Resolvido]Gerar novo Registro e atualizar campos entre 2 Formulários Empty Gerar novo Registro e atualizar campos entre 2 Formulários

    Mensagem  vileman em 12/2/2017, 15:21

    Alexandre, boa tarde

    Após alguns testes só consegui gerar um novo registro do formulário A para o formulário B, mas sem conseguir atualizar os campos de um formulário para o outro, conforme o tópico.

    Ficou assim:
    No Formulário A, no evento "após atualizar" do campo 'DataStatus5':
    MsgBox "ATENÇÃO!! Será gerado um novo Registro de NOTÍCIA DE FATO relacionado ao Documento Administrativo ativo !!", vbInformation, "Sistema - Alerta"
          DoCmd.OpenForm "F07_RegAdministrativo"
          DoCmd.GoToRecord , , acNewRec
          If Me.NewRecord Then
             Forms!F17_DocAdministrativo!NumDocAdm = DMax("NumTombo", "T17_Procedimentos ") + 1 ' FUNCIONOU
             Forms!F17_DocAdministrativo!NumDocAdm = Me!DocAdmGerado                                        ' NÃO FUNCIONOU
          End If

    Outra necessidade: após conseguir resolver as etapas de gerar um novo registro, atualizar os campos de um formulário para o outro, precisaria que após gerar esse novo registro a partir de um Documento Administrativo para um novo registro de Noticia de Fato, caso o usuário abrisse qualquer registro do Documento Administrativo e tentasse gerar novamente uma Noticia de Fato, no campo 'DataStatus5', o sistema não permitisse, informando que já existe um registro de Noticia de Fato associado ao mesmo.
    avatar
    vileman
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    [Resolvido]Gerar novo Registro e atualizar campos entre 2 Formulários Empty Gerar novo Registro e atualizar campos entre 2 Formulários

    Mensagem  vileman em 12/2/2017, 17:35

    Segue arquivo para melhor compreensão e solução ...
    avatar
    vileman
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    [Resolvido]Gerar novo Registro e atualizar campos entre 2 Formulários Empty Gerar novo Registro e atualizar campos entre 2 Formulários

    Mensagem  vileman em 12/2/2017, 17:40

    Reenviando, acho que não foi da primeira vez...
    avatar
    vileman
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    [Resolvido]Gerar novo Registro e atualizar campos entre 2 Formulários Empty Gerar novo Registro e atualizar campos entre 2 Formulários

    Mensagem  vileman em 12/2/2017, 18:21

    arquivo de 891 Kb zipado
    avatar
    vileman
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    [Resolvido]Gerar novo Registro e atualizar campos entre 2 Formulários Empty Gerar novo Registro e atualizar campos entre 2 Formulários

    Mensagem  vileman em 12/2/2017, 20:48

    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7298
    Registrado : 05/11/2009

    [Resolvido]Gerar novo Registro e atualizar campos entre 2 Formulários Empty Re: [Resolvido]Gerar novo Registro e atualizar campos entre 2 Formulários

    Mensagem  Alexandre Neves em 13/2/2017, 19:56

    Boa noite,
    Relembre tudo o que precisa adequar. Indique todos os passos e resultados esperados e que não acontecem


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    vileman
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    [Resolvido]Gerar novo Registro e atualizar campos entre 2 Formulários Empty Gerar novo Registro e atualizar campos entre 2 Formulários

    Mensagem  vileman em 14/2/2017, 17:37

    Certo, vamos lá:

    Objetivo 1: A possibilidade de a cada registro criado em “F17_DocAdministrativo” possa ou não gerar um novo registro de Noticia de Fato no formulário “F07_RegAdministrativo”, a depender da rotina abaixo:

    1) A partir do formulário “F17_DocAdministrativo”:
    1.1) no Campo 'DataStatus6' no evento "após atualizar" - ou de outra forma, se preferir - preciso que abra o formulário “F07_RegAdministrativo” para criar um novo registro nesse formulário.

    1.2) nesse novo registro preciso que grave dados gravados nos campos do formulário A “F17_DocAdministrativo” para os campos correspondentes no formulário B “F07_RegAdministrativo” da seguinte forma:

    Formulário A  ==> Formulário B
    NumDocAdm ==> DocAdmOrigem
    DataStatus6   ==> DataDocAdm
    DataStatus6   ==> DataChegada
    DataStatus6   ==> DataEntrada
    IDRecebedor ==> IDRecebedor
    IDDocumento ==> IDDocumento
    Expediente     ==> Expediente
    NomeRemetente ==> NomeRemetente
    CargoRemetente ==> CargoRemetente
    FuncaoRemetente ==> FuncaoRemetente
    OrgaoRemetente   ==> OrgaoRemetente
    SetorRemetente    ==> SetorRemetente
    IDSetor                  ==> IDSetorDestino
    IDEnderecado      ==> IDDestinatario
    Assunto                 ==> Assunto

    1.3) simultaneamente gravar o campo ‘NumTombo’ do formulário “F07_RegAdministrativo” para o campo ‘Status6NoticiaFato’ do formulário “F17_DocAdministrativo”

    PS: Ainda no formulário “F17_DocAdministrativo”: Caso o usuário ao abrir qualquer registro do Documento Administrativo tentasse gerar novamente uma Noticia de Fato já existente através do campo 'DataStatus6', o sistema não permitisse, informando que já existe um registro de Noticia de Fato associado ao mesmo, caso contrário seria gerado conforme rotina acima.

    Objetivo 2: Fazer a Juntada de um Documento Administrativo para uma Notícia de Fato já existente:
    PS 1: Houve uma mudança com relação ao que foi postado anteriormente no tópico.
    PS 2: por conta dessa nova mudança na rotina estou reenviando o arquivo para melhor compreensão, testes e solução (Ver link no final). Favor desconsiderar o arquivo anterior.

    2) A partir do formulário “F17_DocAdministrativo”:
    2.1) No campo 'IDNoticiaFato' no evento "após atualizar" tem a seguinte rotina:
      Dim stDocName As String
      Dim stLinkCriteria As String

      stDocName = "F07_RegAdministrativo"
      stLinkCriteria = "[CodProced]=" & Me![IDNoticiaFato]
      DoCmd.OpenForm stDocName, , , stLinkCriteria
      Exit Sub
      MsgBox Err.Description

    A rotina está funcionando parcialmente correta da seguinte forma: após atualizar o campo 'IDNoticiaFato' em uma combobox do Formulário com o dado vinculado/filtrado do campo 'CodProced' do Formulário “F07_RegAdministrativo”, ou seja, abre o registro correspondente ao que foi escolhido no Formulário “F17_DocAdministrativo”: até aqui tudo funciona bem, o que preciso:

    2.2) criar novo registro no formulário “F07_RegAdm_Juntadas” e gravar alguns dados dos campos do formulário “F17_DocAdministrativo” para os campos correspondentes no formulário “F07_RegAdm_Juntadas” da seguinte forma:
    NumDocAdm ==> DocAdmJuntada
    DataStatus2   ==> DataJuntada
    IDDocumento ==> IDDocumento
    Expediente     ==> Expediente
    Assunto          ==> Assunto

    PS 3: O formulário “F07_RegAdm_Juntadas” tem como origem de dados a tabela “T17_Proced_Juntadas” que por sua vez está com um relacionamento um-para-vários com a Tabela “T17_Procedimentos”, ou seja, um Procedimento pode ter várias Juntadas de Documentos Administrativos diferentes.

    Objetivo 3: Opção para pesquisar no formulário “F07_RegAdm_Juntadas” pelos campos ‘DocAdmJuntada’ e ‘Assunto’, de forma isolada ou simultaneamente em toda a tabela “T17_Proced_Juntadas”, e ao achar o registro pesquisado poder abrir o mesmo no formulário correspondente ao registro do formulário “F07_RegAdministrativo”, visto que estão relacionados conforme texto em “PS 3” acima.

    Link Dropbox:
    https://www.dropbox.com/s/l325l9iid5l04ff/FMA%20-%20Formularios%20%28NOVO%29.zip?dl=0
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7298
    Registrado : 05/11/2009

    [Resolvido]Gerar novo Registro e atualizar campos entre 2 Formulários Empty Re: [Resolvido]Gerar novo Registro e atualizar campos entre 2 Formulários

    Mensagem  Alexandre Neves em 14/2/2017, 17:56

    Boa tarde,
    Lembro que devia alterar nomes de controlos para não coincidirem com nomes de campos. Pode haver erro de execução, pelo Access não saber ao certo a que se está a referir

    Para os pontos 1 e 1.1
    Utilize
    Código:
    Private Sub DataStatus6_AfterUpdate()
        DoCmd.OpenForm "F07_RegAdministrativo", acNormal, , , acFormAdd
    End Sub

    Para as outras dúvida vou-lhe continuar a preparar resposta


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    vileman
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    [Resolvido]Gerar novo Registro e atualizar campos entre 2 Formulários Empty Gerar novo Registro e atualizar campos entre 2 Formulários

    Mensagem  vileman em 14/2/2017, 18:01

    Certo, vou testar e aguardo a continuação das demais dúvidas ...
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7298
    Registrado : 05/11/2009

    [Resolvido]Gerar novo Registro e atualizar campos entre 2 Formulários Empty Re: [Resolvido]Gerar novo Registro e atualizar campos entre 2 Formulários

    Mensagem  Alexandre Neves em 14/2/2017, 18:17

    Até à 1ª linha do ponto 3
    Código:
    Private Sub DataStatus6_AfterUpdate()
        DoCmd.OpenForm "F07_RegAdministrativo", acNormal, , , acFormAdd
        DoCmd.GoToRecord , , acNewRec
        Forms!F07_RegAdministrativo!DocAdmOrigem = NumDocAdm
        Forms!F07_RegAdministrativo!DataDocAdm = DataStatus6
        Forms!F07_RegAdministrativo!DataChegada = DataStatus6
        Forms!F07_RegAdministrativo!DataEntrada = DataStatus6
        Forms!F07_RegAdministrativo!IDRecebedor = IDRecebedor
        Forms!F07_RegAdministrativo!IDDocumento = IDDocumento
        Forms!F07_RegAdministrativo!Expediente = Expediente
        Forms!F07_RegAdministrativo!NomeRemetente = NomeRemetente
        Forms!F07_RegAdministrativo!CargoRemetente = CargoRemetente
        Forms!F07_RegAdministrativo!FuncaoRemetente = FuncaoRemetente
        Forms!F07_RegAdministrativo!OrgaoRemetente = OrgaoRemetente
        Forms!F07_RegAdministrativo!SetorRemetente = SetorRemetente
        Forms!F07_RegAdministrativo!IDSetorDestino = IDSetor
        Forms!F07_RegAdministrativo!IDDestinatario = IDEnderecado
        Forms!F07_RegAdministrativo!Assunto = Assunto
        Forms!F17_DocAdministrativo!Status6NoticiaFato = Forms!F07_RegAdministrativo!NumTombo
    End Sub


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7298
    Registrado : 05/11/2009

    [Resolvido]Gerar novo Registro e atualizar campos entre 2 Formulários Empty Re: [Resolvido]Gerar novo Registro e atualizar campos entre 2 Formulários

    Mensagem  Alexandre Neves em 14/2/2017, 18:30

    Não existem controlos IDSetor nem IDEnderecado
    teste o que enviei e avance até onde puder e volte com dúvidas seguintes, se tiver


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    vileman
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    [Resolvido]Gerar novo Registro e atualizar campos entre 2 Formulários Empty Gerar novo Registro e atualizar campos entre 2 Formulários

    Mensagem  vileman em 14/2/2017, 21:22

    Os controles 'IDSetor' e 'IDEnderecado' eu tinha invertido a ordem, mas já arrumei no código:

    Forms!F07_RegAdministrativo!IDSetor = IDSetorDestino
    Forms!F07_RegAdministrativo!IDEnderecado = IDDestinatario

    Ficou perfeito, até o item 1.3, faltando apenas a não permissão de duplicar o registro da Noticia de Fato, conforme observação no texto em "PS"

    Vou tentar avançar para o item 2, depois informo ...
    avatar
    vileman
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    [Resolvido]Gerar novo Registro e atualizar campos entre 2 Formulários Empty Gerar novo Registro e atualizar campos entre 2 Formulários

    Mensagem  vileman em 14/2/2017, 22:31

    Tentei fazer o item 2, mas consegui resultado parcial, assim:

    Private Sub IDNoticiaFato_AfterUpdate() 'Rotina (Status2): 05/02/2017 - CAMPO: IDNoticiaFato
    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "F07_RegAdministrativo"
    stLinkCriteria = "[CodProced]=" & Me![IDNoticiaFato]
    DoCmd.OpenForm stDocName, , , stLinkCriteria

    MsgBox "ATENÇÃO!! Será feita a JUNTADA para o Registro de NOTÍCIA DE FATO relacionado ao Documento Administrativo ativo !!", vbInformation, "Sistema XXX - Alerta"

    DoCmd.OpenForm "F07_RegAdm_Juntadas", acNormal, , , acFormAdd
    DoCmd.GoToRecord , , acNewRec
    Forms!F07_RegAdministrativo!F07_RegAdm_Juntadas!DocAdmJuntada = NumDocAdm
    Forms!F07_RegAdministrativo!F07_RegAdm_Juntadas!DataJuntada = DataStatus2
    Forms!F07_RegAdministrativo!F07_RegAdm_Juntadas!IDDocumento = IDDocumento
    Forms!F07_RegAdministrativo!F07_RegAdm_Juntadas!Expediente = Expediente
    Forms!F07_RegAdministrativo!F07_RegAdm_Juntadas!Assunto = Assunto
    DoCmd.Close 'FECHA Formulário: F07_RegAdm_Juntadas
    Exit Sub
    MsgBox Err.Description

    End Sub

    A rotina abre os formulários "F07_RegAdministrativo!F07_RegAdm_Juntadas", cria um novo registro na tabela T17_RegAdm_Juntadas, no entanto, quando eu tento incluir mais um registro como Juntada, não acrescenta outro registro, apenas sobrepõe o que já existe e sempre fica apenas um registro a cada tentativa.
    avatar
    vileman
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    [Resolvido]Gerar novo Registro e atualizar campos entre 2 Formulários Empty Gerar novo Registro e atualizar campos entre 2 Formulários

    Mensagem  vileman em 15/2/2017, 00:40

    Alexandre,

    Quanto a questão que estava faltando do item 2, ou seja, a não permissão de duplicar o registro da Noticia de Fato, conforme observação no texto em "PS", fiz da seguinte maneira abaixo e funcionou, então esse item também está resolvido. Agora faltam apenas o item 2.2, conforme relatado na mensagem anterior e ainda o objetivo 3.

    Private Sub DataStatus6_AfterUpdate() 'Rotina: 05/02/2017
    If IsNull(Me.Status6NoticiaFato) = True Then
    MsgBox "ATENÇÃO!! Será gerado um novo Registro de NOTÍCIA DE FATO relacionado ao Documento Administrativo ativo !!", vbInformation, "Sistema XXX - Alerta"
    DoCmd.OpenForm "F07_RegAdministrativo", acNormal, , , acFormAdd
    DoCmd.GoToRecord , , acNewRec
    Forms!F07_RegAdministrativo!DocAdmOrigem = NumDocAdm
    Forms!F07_RegAdministrativo!DataDocAdm = DataStatus6
    Forms!F07_RegAdministrativo!DataChegada = DataStatus6
    Forms!F07_RegAdministrativo!DataEntrada = DataStatus6
    Forms!F07_RegAdministrativo!IDRecebedor = IDRecebedor
    Forms!F07_RegAdministrativo!IDDocumento = IDDocumento
    Forms!F07_RegAdministrativo!Expediente = Expediente
    Forms!F07_RegAdministrativo!NomeRemetente = NomeRemetente
    Forms!F07_RegAdministrativo!CargoRemetente = CargoRemetente
    Forms!F07_RegAdministrativo!FuncaoRemetente = FuncaoRemetente
    Forms!F07_RegAdministrativo!OrgaoRemetente = OrgaoRemetente
    Forms!F07_RegAdministrativo!SetorRemetente = SetorRemetente
    Forms!F07_RegAdministrativo!IDSetor = IDSetorDestino
    Forms!F07_RegAdministrativo!IDEnderecado = IDDestinatario
    Forms!F07_RegAdministrativo!Assunto = Assunto
    Forms!F17_DocAdministrativo!Status6NoticiaFato = Forms!F07_RegAdministrativo!NumTombo
    Else
    MsgBox "ALERTA!! Já existe uma NOTÍCIA DE FATO associada a este Documento Administrativo, não será possível continuar !!", vbInformation, "Sistema XXX - Alerta"
    Exit Sub
    End If
    End Sub
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7298
    Registrado : 05/11/2009

    [Resolvido]Gerar novo Registro e atualizar campos entre 2 Formulários Empty Re: [Resolvido]Gerar novo Registro e atualizar campos entre 2 Formulários

    Mensagem  Alexandre Neves em 15/2/2017, 20:43

    Boa noite,
    No ponto 2.2

    Já fez semelhante a isto?
    Forms!F07_RegAdm_Juntadas!DocAdmJuntada = Forms!F17_DocAdministrativo!NumDocAdm
    Forms!F07_RegAdm_Juntadas!DataJuntada=Forms!F17_DocAdministrativo!DataStatus2
    Forms!F07_RegAdm_Juntadas!IDDocumento=Forms!F17_DocAdministrativo!IDDocumento
    Forms!F07_RegAdm_Juntadas!Expediente=Forms!F17_DocAdministrativo!Expediente
    Forms!F07_RegAdm_Juntadas!Assunto=Forms!F17_DocAdministrativo!Assunto

    Acompanhe o fórum, existem muitas dúvidas onde buscar as pontas da solução e, até, ajudar alguns colegas e ganhar experiência. É este o objectivo do fórum


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    vileman
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    [Resolvido]Gerar novo Registro e atualizar campos entre 2 Formulários Empty Gerar novo Registro e atualizar campos entre 2 Formulários

    Mensagem  vileman em 16/2/2017, 01:16

    Boa noite,

    Coloquei conforme sua orientação e funcionou, apenas acrescentei a linha abaixo para gravar o código que relaciona (um-para-vários) as duas tabelas em questão nos formulários, pois sem isso estava gravando na tabela, mas não aparecia no formulário "F07_RegAdministrativo" por está justamente sem os campos correspondentes. Vivendo e aprendendo...

    Forms!F07_RegAdm_Juntadas!IDCodProced = Forms!F07_RegAdministrativo!CodProced

    Sim, acompanho o fórum e ao abrir um tópico continuo pesquisando nele e outras fontes para ver se consigo eu mesmo solucionar minhas questões, pois como disseste o objetivo é ganhar experiencia, e quem sabe ajudar os demais colegas, e com certeza já adquiri bastante conhecimento e experiencia com a ajuda sua e de outros colegas, agradeço sempre por isso a você e a todos, e claro, ao fórum, principalmente ao seu criador ou criadores.

    Desta forma, resta apenas o objetivo 3, que caso eu consiga solucionar antes de você, postarei avisando.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7298
    Registrado : 05/11/2009

    [Resolvido]Gerar novo Registro e atualizar campos entre 2 Formulários Empty Re: [Resolvido]Gerar novo Registro e atualizar campos entre 2 Formulários

    Mensagem  Alexandre Neves em 16/2/2017, 20:38

    Boa noite, o ponto 3 tentarei digerir amanhã


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7298
    Registrado : 05/11/2009

    [Resolvido]Gerar novo Registro e atualizar campos entre 2 Formulários Empty Re: [Resolvido]Gerar novo Registro e atualizar campos entre 2 Formulários

    Mensagem  Alexandre Neves em 19/2/2017, 13:32

    Boa tarde,
    Sobre o ponto 3, disponibilize dados significativos para trabalhar e dê todos os detalhes


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    vileman
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    [Resolvido]Gerar novo Registro e atualizar campos entre 2 Formulários Empty Gerar novo Registro e atualizar campos entre 2 Formulários

    Mensagem  vileman em 20/2/2017, 01:20

    Boa noite,

    A pesquisa seria no formulário “F07_RegAdministrativo” – mas, pode fazer de outra forma que achar conveniente – onde ficam vinculadas as Juntadas. Então precisaria localizar determinado registro através de uma palavra-chave (texto) digitada nos campos ‘Expediente’ e/ou ‘Assunto’ na tabela “T17_Proced_Juntadas” que mostraria o registro ao qual está vinculado na tabela “T17_Procedimentos”, mostrando nesse formulário o registro completo com as demais juntadas.
    Exemplo 1:
    1) abro o formulário “F07_RegAdministrativo”
    2) criar um botão ou rotina para localizar: Ao clicar nesse botão posiciona no campo ‘Expediente’ da tabela “T17_Proced_Juntadas” e digita o texto “0020”, então a rotina busca por esse texto em qualquer posição desse campo em toda tabela, mostrando os demais campos dessa tabela em um formulário PopUp ou de outra forma. Caso não localize, apresentar mensagem: “Texto não localizado... tente outro texto ou busque no campo [Assunto]”. Caso encontrar: mostra o(s) registro(s) encontrado(s) - visto que pode haver mais de um registro com esse texto procurado, que será selecionado pelo conjunto das informações nos demais campos. Ao clicar no registro escolhido (quando mais de um texto encontrado), mostra no formulário “F07_RegAdministrativo” de forma completa o registro e todas as Juntadas que hajam.

    Exemplo 2:
    1) abro o formulário “F07_RegAdministrativo”
    2) criar um botão ou rotina para localizar: Ao clicar nesse botão posiciona no campo ‘Assunto’ da tabela “T17_Proced_Juntadas” e digita o texto “Crime organizado”, então a rotina busca por esse texto em qualquer posição desse campo em toda tabela, mostrando os demais campos dessa tabela em um formulário PopUp ou de outra forma. Caso não localize, apresentar mensagem: “Texto não localizado... tente outro texto ou busque no campo [Expediente]”. Caso encontrar: mostra o(s) registro(s) encontrado(s) - visto que pode haver mais de um registro com esse texto procurado, que será selecionado pelo conjunto das informações nos demais campos. Ao clicar no registro escolhido (quando mais de um texto encontrado), mostra no formulário “F07_RegAdministrativo” de forma completa o registro e todas as Juntadas que hajam.

    Exemplo 3: Se puder localizar usando texto nos 02 campos acima de forma simultânea, seria melhor, mas se não puder ou ficar muito complicado, basta a opção do exemplo 1 ou 2 que são similares.

    Na minha busca por esta solução, consegui algo, mas não funcionou, pois ficou da seguinte forma:

    1) No formulário “F07_RegAdministrativo criei um controle Caixa de Combinação não-acoplado de nome ‘BuscaExpediente’ e no evento “Após atualizar” ficou assim:

    Private Sub BuscaExpediente_AfterUpdate() 'Rotina 18/02/2017
    DoCmd.ApplyFilter , "[CodProced] = [Forms]![F07_RegAdministrativo].[BuscaExpediente]"
    End Sub

    A origem da linha desse controle é uma consulta com os relacionamento entre as tabelas “T17_Procedimentos” e “T17_Proced_Juntadas”, mas quando digito qualquer texto na Caixa de Combinação, mesmo colocando * (asterisco) antes ou depois do texto, aparece a mensagem “o texto que você informou não é um item da lista” e não mostra nada, tanto no campo ‘Expediente’ como no campo ‘Assunto’.
    Não sei se daria para você aproveitar essa rotina, então fique a vontade para outra solução.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7298
    Registrado : 05/11/2009

    [Resolvido]Gerar novo Registro e atualizar campos entre 2 Formulários Empty Re: [Resolvido]Gerar novo Registro e atualizar campos entre 2 Formulários

    Mensagem  Alexandre Neves em 20/2/2017, 20:31

    Boa noite,
    no formulário F07_RegAdministrativo
    - crie caixa de texto para condição 1, designe-a de TxtCondicao1
    - crie caixa de texto para condição 2, designe-a de TxtCondicao2
    - crie botão e cole o código
    Código:
       '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        '   código criado por Alexandre Neves, do Fórum MaximoAccess                                                '
        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        If Len(TxtCondicao1) > 0 Then
            If Len(TxtCondicao2) > 0 Then
                strSQLPublico = "Expediente='" & TxtCondicao1 & "' and Assunto='" & TxtCondicao2 & "'"
            Else
                strSQLPublico = "Expediente='" & TxtCondicao1 & "'"
            End If
        ElseIf Len(TxtCondicao2) > 0 Then
            strSQLPublico = "Assunto='" & TxtCondicao2 & "'"
        End If
        If strSQLPublico <> "" Then DoCmd.OpenForm "NomeDoFormularioQueCriou"


    crie variável global
    public strSQLPublico as string

    crie o formulário para apresentar resultado da pesquisa, coloque AoAbrir o seguinte código
    Código:
       '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        '   código criado por Alexandre Neves, do Fórum MaximoAccess                                                '
        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        RecordSource = strSQLPublico


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    vileman
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    [Resolvido]Gerar novo Registro e atualizar campos entre 2 Formulários Empty Gerar novo Registro e atualizar campos entre 2 Formulários

    Mensagem  vileman em 21/2/2017, 02:14

    Boa noite,

    No Formulário "F07_RegAdministrativo" fiz como orientado, mas ao digitar a palavra "Palmares" ou qualquer outra palavra na caixa de texto: TxtCondicao1 ou mesmo em TxtCondicao2 ou em ambas, aparece a mensagem de erro:
    "Erro em tempo de execução '2580':
    A fonte de registro 'Expediente='Palmares" especificada neste formulário ou relatório não existe".
    Ao clicar em 'Depurar' posiciona o erro na linha abaixo: RecordSource = strSQLPublico

    Option Compare Database
    Private Sub Form_Open(Cancel As Integer)
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    '   código criado por Alexandre Neves, do Fórum MaximoAccess                                                '
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
       RecordSource = strSQLPublico
    End Sub

    Fiz assim:
    1) No formulário criado para apresentar o resultado da pesquisa: "F17_PesquisaPalavra" tem como Fonte de Registro a tabela "T17_Proced_Juntadas"
    2) No módulo "basUtilitarios" já existente na BD, ficou assim:
    Option Compare Database
    Option Explicit
    Public strSQLPublico As String

    Revi várias vezes suas instruções, mas não sei onde cometi algum erro ou algo deixei de fazer...
    A minha experiencia em programação VBA é de iniciante ...
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7298
    Registrado : 05/11/2009

    [Resolvido]Gerar novo Registro e atualizar campos entre 2 Formulários Empty Re: [Resolvido]Gerar novo Registro e atualizar campos entre 2 Formulários

    Mensagem  Alexandre Neves em 21/2/2017, 20:17

    Boa noite,
    mande formulário como quer que apresente os resultados da pesquisa, quer seja com 1 ou com 2 filtros
    basta que crie os controlos no formulário que eu trato da origem dos dados


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    vileman
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    [Resolvido]Gerar novo Registro e atualizar campos entre 2 Formulários Empty Gerar novo Registro e atualizar campos entre 2 Formulários

    Mensagem  vileman em 21/2/2017, 23:41

    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7298
    Registrado : 05/11/2009

    [Resolvido]Gerar novo Registro e atualizar campos entre 2 Formulários Empty Re: [Resolvido]Gerar novo Registro e atualizar campos entre 2 Formulários

    Mensagem  Alexandre Neves em 25/2/2017, 18:37

    Boa tarde,
    Não mande bd com artimanhas, quem ajuda não deve estar a ultrapassar obstáculos que coloca
    Não vi dados representativos do que pretende
    Anexos
    [Resolvido]Gerar novo Registro e atualizar campos entre 2 Formulários AttachmentFMA - Formularios 21.02.2017.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (929 Kb) Baixado 11 vez(es)


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    vileman
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    [Resolvido]Gerar novo Registro e atualizar campos entre 2 Formulários Empty Gerar novo Registro e atualizar campos entre 2 Formulários

    Mensagem  vileman em 27/2/2017, 16:35

    Boa tarde,

    Artimanha: substantivo feminino
    procedimento para levar alguém ao engano; estratagema, ardil, artifício.

    Se minha intenção é ver resolvido o tópico que abri porque eu colocaria artimanhas ou obstáculos para você ultrapassar, é algo sem sentido, além do que esse seu comentário no mínimo é constrangedor para mim diante dos demais colegas do Fórum, pois dá a entender que eu estou tentando enganá-lo ou induzi-lo a algum erro por ser eu uma pessoa ardilosa, o que por si só já é um contra-senso. E se acha que usei esses artifícios, o que os demais colegas irão ou poderão pensar de mim, quando eu postar outras dúvidas ou solicitar ajuda, sendo você um Moderador Global, e claro tem influencia direta sobre grande parte ou maioria dos colegas? Com certeza sua opinião tem peso grande sobre os colegas desse Fórum, o que me deixa mais ainda exposto.
    Na sua mensagem nº 18 afirma que o objetivo deste Fórum seria ajudar alguns colegas a ganhar experiência, salvo engano, eu estou incluído nessa premissa, ou não?
    Se ao postar um tópico e quem se habilita de forma espontânea a ajudar com seu conhecimento e experiência a quem está tentando aprender, subentende-se – como foi até hoje para mim – que a pessoa o faz de boa vontade, e essa espontaneidade estaria implícita a tolerância e bom senso necessários para com os que sabem pouco menos que quem se propõe a ajudar os colegas, e ao mesmo tempo não expor essa pessoa a algum constrangimento – como foi o meu caso agora – devido ao fato de até essa pessoa não conseguir expor de forma clara o que pretende, pois bastaria você ter dito isso e pedir para eu refazer o meu raciocínio, como fez na sua mensagem nº 9; pois ao colocarmos qualquer questão, o entendimento para quem ler sempre será de forma subjetiva, pois não tenho como saber se você entenderá da forma que pretendo, tanto que desde o meu pedido no final da minha mensagem nº 1 escrevi: “Espero tenha ficado claro, senão aos poucos vou esclarecendo, se necessário.”
    Para tentar entender – se for o caso – bastaria você se colocar no meu lugar com o texto que você enviou por último.
    Sei que esse Fórum tem outro objetivo, de ajuda, compartilhamento de conhecimento e experiência entre seus membros, onde uns sabem mais que outros e que mesmo esses últimos aprendem ou recebem algo mais, pois mesmo quem ajuda por saber mais tem sua “recompensa” ou simplesmente a satisfação de ter ajudado alguém - e isso não tem preço -, pois o faz de forma espontânea que implica em atenção, boa vontade, seriedade e tolerância, mas não quero fazer disso aqui um Fórum de discussão e nem criar polêmicas, mas como me senti constrangido – e isso também é subjetivo, mesmo sem saber se essa foi sua intenção - me acho no direito de me defender perante possível mau julgamento diante dos demais colegas, e ao mesmo tempo dar por encerrado este tópico e esse assunto, e pelo que você até aqui me ajudou como “Resolvido”, o que já havia agradecido por isso na minha mensagem nº 19.

    PS: Para melhor esclarecimento aos demais colegas segue abaixo o texto (em vermelho) que coloquei no arquivo enviado dentro do formulário “F17_PesquisaPalavra” onde tive a intenção de tentar esclarecer o que eu pretendia com a rotina de pesquisa e ao qual você se referiu como “Artimanha” e “Obstáculo”:

    Após mostrar o(s) registro(s) encontrado(s) neste formulário preciso que crie uma opção/botão para:
    1) Quando for apenas um registro encontrado: Mostrar o mesmo no formulário principal;
    2) Quando for mais de um registro encontrado: Selecionar um dos registros para que o mesmo seja aberto no formulário principal com todos seus campos, inclusive com o subformulário "F07_RegAdm_Juntadas" vinculado ao formulário principal.

    Teste de forma isolada ou em conjunto as palavras:
    No campo 'Expediente' busque por "Palmares"
    No campo 'Assunto' busque por "Crime organizado" ou apenas "Crime"
    Form.Principal:"F07_RegAdministrativo"


    * Acrescentando: No pedido de testes acima, na tabela T17_Proced_Juntadas eu havia colocado alguns registros nos campos citados para que pudessem aparecer no formulário criado.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7298
    Registrado : 05/11/2009

    [Resolvido]Gerar novo Registro e atualizar campos entre 2 Formulários Empty Re: [Resolvido]Gerar novo Registro e atualizar campos entre 2 Formulários

    Mensagem  Alexandre Neves em 28/2/2017, 09:56

    Bom dia, vileman
    As artimanhas a que me referi é a função de abrir escondendo controlos nativos do Access e não ser fácil fechar a bd
    Não enunciei as artimanhas a que me referi mas não se trata de nada sobre o pedido de ajuda que fez

    Sou moderador global mas participo em tentar resolver os pedidos de ajuda como membro, sempre tentei separar as águas e sou directo como gosot que o sejam comigo. Quem me acompanha no fórum sabe que me dirijo muito directamente e aceito críticas como forma de poder esclarecer ou evoluir na minha postura.

    Neste caso, o alvo das críticas foi trocado e isso fez, concerteza, toda a diferença
    Espero esteja clarificado e resolvido. A vida é assim, temos que saber viver em comunidade, aceitando o que nos dizem e dizermos o que pensamos

    Sobre a dúvida, esclareça se resolveu ou precisa continuar


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    vileman
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    [Resolvido]Gerar novo Registro e atualizar campos entre 2 Formulários Empty [Resolvido]Gerar novo Registro e atualizar campos entre 2 Formulários

    Mensagem  vileman em 14/3/2017, 23:18

    Boa noite, Alexandre

    Sobre a questão já consegui resolver.
    Sim, vivendo e aprendendo ou reaprendendo, tudo resolvido e clarificado.

    Obrigado.

    Conteúdo patrocinado

    [Resolvido]Gerar novo Registro e atualizar campos entre 2 Formulários Empty Re: [Resolvido]Gerar novo Registro e atualizar campos entre 2 Formulários

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 16/6/2019, 22:02