[Resolvido]Abrir Registro de Formulário Contínuo

Senhores, boa tarde!

Tenho a seguinte situação: um formulário contínuo (Form1) onde trago a lista de clientes proveniente de uma tabela (Fonte de Registro: select...). Ao lado do nome do cliente, coloquei um botão para abrir os dados cadastrais deste cliente em outro formulário (Form2).
Neste Form2, o campo "cliente" deve ser preenchido com o nome correspondente à linha que eu selecionei no Form1.

Tentei fazer o recomendado no link abaixo mas não consegui (o Form2 abre com o campo "cliente" em branco):

https://www.maximoaccess.com/t2725-resolvidoabrir-registro-em-um-form-simples-ao-clicar-em-campo-de-outro-form-continuo

O meu código está assim:

Código:

Private Sub btnDetalheCliente_Click()

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Form2"
stLinkCriteria = "[txtEmpresaForm2]=" & "'" & Me![txtEmpresaForm1] & "'"

DoCmd.OpenForm stDocName, , , stLinkCriteria

End Sub

Alguém tem algum ideia do que está errado?

Obrigado!

Olá;

Você quer abrir o form2 já filtrado, certo.

Então o campo para o filtro tem de ter o nome correto igual à tabela, que deve ser Empresa, independentemente de você alterar para txtEmpresaForm2;

stLinkCriteria = "txtEmpresaForm2

stLinkCriteria = "Empresa

Ficará assim;

Código:

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Form2"
stLinkCriteria = "Empresa=" & "'" & Me![txtEmpresaForm1] & "'"

DoCmd.OpenForm stDocName, , , stLinkCriteria

JPaulo, boa tarde! Isso mesmo, preciso abrir filtrado já.

Não funcionou. Quando abre o Form2, continua com o campo em branco.

Vou expor os campos para facilitar:

Form1:
Campo "txtEmpresa" que é carregado com dados da tabela (nome do campo da tabela: CLIENTE)

Form2:
Campo "txtEmpresaForm2", onde preciso que já venha preenchido com o nome do cliente correspondente à linha que eu selecionar no Form1

O campo no form1 pode ter o nome que quiser, mas o campo do form2 tem de ter o nome correto do campo na tabela.

Esse "txtEmpresaForm2" não reproduz qualquer efeito.

JPaulo, entendi!

Alterei conforme indicado e agora aparece erro 2501 - a ação OpenForm foi cancelada.

Ao depurar, o código abaixo fica destacado em amarelo:

DoCmd.OpenForm stDocName, , , stLinkCriteria

Anexe aqui parte do seu banco.

Bom dia, JPaulo!

Consegui encontrar a solução do erro 2501.

No entanto, ainda abre o Form2 sem preenchimento.

Estou encaminhando uma amostra do BD. (deletei algumas infos sigilosas da empresa, incluindo o Form Login - vai dar erro na abertura do banco que não vai encontrar esse Form, mas nada prejudicial...só não consegui acessar aqui as opções do Access para tirar este form da abertura).

Não consegui anexar o BD. Como faço?

Valeu!!

CONSEGUI!!!!

Era uma coisa bem besta que eu não havia me atentado.

No meu Form2 eu não havia colocado a Fonte de Registro e no campo eu não havia colocado a Fonte de Controle. Aí, obviamente, ele ia trazer o campo vazio pois não havia referência nenhuma.

Aproveitando este tópico, antes de colocar como resolvido, quando o Form2 abre com a empresa filtrada, o nome aparece inteiro selecionado. Como faço para que o cursor do mouse fique no final/início da palavra (sem selecionar o campo)?

Ao receber o foco;

Código:

Private Sub SeuCampo_GotFocus()
    Me!SeuCampo.SelStart = Me!SeuCampo.SelLength
End Sub

Obrigado!

JPaulo e amigos, boa tarde!

Precisarei voltar neste assunto novamente. Espero que não tenha problema...

O código está correto e funcionando perfeitamente.

Porém, precisarei incluir mais um critério de filtro pois um mesmo cliente pode ser atendido por mais de um vendedor (cada um cuidando de uma linha de produtos).

Código:

Private Sub btnDetalheCliente_Click()

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "FmlClientes2"
stLinkCriteria = "CLIENTE = '" & Me![txtEmpresa] & "'"

DoCmd.Close
DoCmd.OpenForm stDocName, , , stLinkCriteria

End Sub

Tentei alterar para o código abaixo, mas sem sucesso.

stLinkCriteria = "CLIENTE = '" & Me![txtEmpresa] & "'" And _
                    "VENDEDOR = '" & Me![txtUsuarioAtual] & "'"


Onde:
txtUsuarioAtual = nome do vendedor que fez login no sistema -> este campo está presente no rodapé dos Forms após o vendedor inserir login e senha.


Conseguem me ajudar?

Obrigado!

Assim tem de funfar;

Código:

stLinkCriteria = "[CLIENTE]='" & Me![txtEmpresa] & "' And [VENDEDOR] ='" & Me![txtUsuarioAtual] & "'"


Perfeito!

JPaulo arrebentando como sempre!

MUITO obrigado!!

Fico feliz.

Obrigado pelo retorno o forum agradece.