[Resolvido]Abrir formulário em registro específico

Olá amigos

Tenho um formulário que contém um campo com um valor. Nesse formulário tem um botão que ao ser clicado abre um segundo formulário. Ocorre que preciso que esse segundo formulário abra o registro específico que contém esse valor (valor único, como se fosse chave primária) e, caso esse registro ainda não exista, abra como novo registro.

Obrigado pela atenção.

Veja se ajuda.

strNomeDoDoc = "NOME_SEU_FORM"
strCritérioDeVínculo = "NOME_CAMPO_2º_FORM = " & [NOME_CAMPO_1º_FORM]
DoCmd.OpenForm strNomeDoDoc, acNormal, , strCritérioDeVínculo


Abraços

Tá dando erro pedindo para inserir o valor do parâmetro txt_portaria2:

Código:

Private Sub bot_fatos_Click()
strNomeDoDoc = "frm_fatos_imputados_acusação"
strCritérioDeVínculo = "txt_portaria2 = " & [txt_portaria]
DoCmd.OpenForm strNomeDoDoc, acNormal, , strCritérioDeVínculo
End Sub

se eu digitar o valor nessa tela de erro ele abre corretamente o form.

É por causa da caixa de texto que deve estar vinculada a alguma consulta

A cabeça doeu aqui.

Vou mandar um arquivo para que compreendam melhor minha dúvida:

Boa tarde, no caso o registro que voce quer filtrar (chave primaria) seria o campo "Código"? Se sim, segue abaixo a solucao e o anexo do seu exemplo para teste.


If DCount("CÓDIGO", "0000", "CÓDIGO= " & Me.texto0) = 0 Then 'VERIFICA SE O CODIGO EXISTE
'CASO NAO EXISTA, ELE ENTRA NO MODO DE ADICAO DE REGISTRO

MsgBox "O registro nao existe, estou encaminhando-lhe a um novo registro"
DoCmd.OpenForm "frm2", acNormal, , , acFormAdd
Else
'CASO EXISTA, ABRA O RELATORIO NO FILTRO DA CAIXA DE TEXTO
DoCmd.OpenForm "frm2", acNormal, , "[CÓDIGO] = " & Me.texto0
End If





Espero ter ajudado, abs!

Isso mesmo, funcionou, a ideia é essa aí.

Aí Mudei para o campo portaria e não funcionou.

Sabe dizer qual motivo? O campo que preciso filtrar é portaria.

Código:

If DCount("portaria", "0000", "portaria= " & Me.texto0) = 0 Then 'VERIFICA SE O CODIGO EXISTE
'CASO NAO EXISTA, ELE ENTRA NO MODO DE ADICAO DE REGISTRO

MsgBox "O registro nao existe, estou encaminhando-lhe a um novo registro"
DoCmd.OpenForm "frm2", acNormal, , , acFormAdd
Else
'CASO EXISTA, ABRA O RELATORIO NO FILTRO DA CAIXA DE TEXTO
DoCmd.OpenForm "frm2", acNormal, , "[portaria] = " & Me.texto0
End If


Depois percebi que o filtro se aplica a portaria apenas se o campo na tabela for mudado para número... Mas a portaria contém letras tbm (não está no exemplo que mandei). E agora?

Nao funcionou por causa da conversão de dados que no caso dos filtros pra string (texto), usa 'seufiltro'. O codigo ficaria assim


If DCount("CÓDIGO", "0000", "portaria= '" & Me.texto0 & "'") = 0 Then 'VERIFICA SE O CODIGO EXISTE
'CASO NAO EXISTA, ELE ENTRA NO MODO DE ADICAO DE REGISTRO

MsgBox "O registro nao existe, estou encaminhando-lhe a um novo registro"
DoCmd.OpenForm "frm2", acNormal, , , acFormAdd
Else
'CASO EXISTA, ABRA O RELATORIO NO FILTRO DA CAIXA DE TEXTO
DoCmd.OpenForm "frm2", acNormal, , "[portaria] = '" & Me.texto0 & "'"

End If

Isso mesmo,
Agora funcionou da forma esperada. Vou adaptar ao meu aplicativo.
Muito obrigado!

Por nada, e obrigado pelo retorno.

Qualquer coisa estamos aqui!