[resolvido] Duplo clique campo subformulário para abir formulário

Moderador: Avelino Sampaio

ANJOSOL
Mensagens: 2
Registrado em: 17 Jan 2016, 23:03

[resolvido] Duplo clique campo subformulário para abir formulário

Mensagempor ANJOSOL » 07 Mar 2018, 21:14

Boa noite pessoal

Necessito da sua ajuda para finalizar uma BD que tenho

Eu já tentei fazer um código VBA mas alguma coisa não está a correr bem.

O problema é o seguinte

Tenho um formulário de pesquisa com o nome de "FORMULARIO_PESQUISA_FORN" onde tenho um sub formulario com o nome de "SUB_FORMULARIO_PESQUISA_GERAL_FORN"

Eu queria que ao clicar duas vezes no campo "NOME" abri-se o formulário "FORNECEDORES_GERAIS" para que possa consultar todos os dados referentes a esse cadastro

Gostaria também de saber como posso configurar os limites de folha dos formulários e como se seleciona a orientação dos mesmos vertical/horinzontal, para que possa imprimir corretamente os registos

A pass para o banco de dados é 9308998

E deixo o link do DRIVE

https://drive.google.com/open?id=1LY8lj ... 9WtQfu4yqk

Desde já o muito obrigado a todos
Última edição por ANJOSOL em 08 Mar 2018, 21:21, editado 1 vez no total.

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Avatar do usuário
Avelino Sampaio
Mensagens: 1897
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: Duplo clique campo subformulário para abir formulário

Mensagempor Avelino Sampaio » 08 Mar 2018, 07:32

Anjosol

Quando se filtra campo do tipo texto, é obrigatório o uso das aspas duplas ou apóstrofes.

Código:
Private Sub NOME_DblClick(Cancel As Integer)
Dim Criterio As String
Criterio = "[NOME]= """ & Forms![FORMULARIO_PESQUISA_FORN]![SUB_FORMULARIO_PESQUISA_GERAL_FORN]![NOME] & """"
DoCmd.OpenForm "FORNECEDORES_GERAIS", , , Criterio, , acDialog
DoCmd.SelectObject acForm, "FORMULARIO_PESQUISA_FORN"
End Sub


Como vc está com o foco no subformulário, pode usar o me!

Código:
Private Sub NOME_DblClick(Cancel As Integer)
Dim Criterio As String
Criterio = "[NOME]= """ & Me![NOME] & """"
DoCmd.OpenForm "FORNECEDORES_GERAIS", , , Criterio, , acDialog
DoCmd.SelectObject acForm, "FORMULARIO_PESQUISA_FORN"
End Sub


Aguardamos
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

ANJOSOL
Mensagens: 2
Registrado em: 17 Jan 2016, 23:03

Re: Duplo clique campo subformulário para abir formulário

Mensagempor ANJOSOL » 08 Mar 2018, 20:56

Boa noite Avelino
O código deve ficar como está em baixo??

Private Sub NOME_DblClick(Cancel As Integer)
Dim Criterio As String
Criterio = "[NOME]= """ & Me![NOME] & [FORMULARIO_PESQUISA_FORN]![SUB_FORMULARIO_PESQUISA_GERAL_FORN]![NOME] & """
DoCmd.OpenForm "FORNECEDORES_GERAIS", , , Criterio, , acDialog
DoCmd.SelectObject acForm, "FORMULARIO_PESQUISA_FORN"
End Sub

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.



Voltar para “Formulários”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 4 visitantes