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

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.

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

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.

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.

Segue arquivo para melhor compreensão e solução ...

Reenviando, acho que não foi da primeira vez...

arquivo de 891 Kb zipado

Acho que agora vai pelo Dropbox:

https://www.dropbox.com/s/6oyr75gc62lzv9c/FMA%20-%20Formularios.zip?dl=0

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

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

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

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

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

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

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

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.

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

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

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.

Boa noite, o ponto 3 tentarei digerir amanhã

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

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.

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


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

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

Ok. Segue link com o arquivo

https://www.dropbox.com/s/x4hq9us121kv29d/FMA%20-%20Formularios%2021.02.2017.zip?dl=0

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

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.

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

Boa noite, Alexandre

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

Obrigado.