MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


3 participantes

    [Resolvido]Ao clicar 2 x Abrir cadastro no subformulario

    avatar
    fgcom
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 04/03/2010

    [Resolvido]Ao clicar 2 x Abrir  cadastro no subformulario Empty Ao clicar 2 x Abrir cadastro no subformulario

    Mensagem  fgcom Qui 09 Dez 2010, 17:03

    ola amigos ..blz..

    Seguinte. tenho um consulta aonde exibe meus clientes em um subformulario eu gostaria de ao clicar 2 x em cima do nome do cliente ele abra o Formulario Cadastro de Cliente com os dados do cliente clicado... alguem pode me ajudar ?

    Abraços
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Ao clicar 2 x Abrir  cadastro no subformulario Empty Re: [Resolvido]Ao clicar 2 x Abrir cadastro no subformulario

    Mensagem  criquio Qui 09 Dez 2010, 17:16

    Tente assim, no evento "Duplo clique" de um dos campos, ou de todos se quiser colocar todos no esquema:

    DoCmd.OpenForm "NomeDoForm"
    Forms!NomeDoForm!Campo1 = Me.Campo1
    Forms!NomeDoForm!Campo2 = Me.Campo2
    Forms!NomeDoForm!Campo3 = Me.Campo3
    ...


    Os campos em azul são os do form e os campos em vermelho são os do subform que alimentarão os do form.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    fgcom
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 04/03/2010

    [Resolvido]Ao clicar 2 x Abrir  cadastro no subformulario Empty Re: [Resolvido]Ao clicar 2 x Abrir cadastro no subformulario

    Mensagem  fgcom Qui 09 Dez 2010, 19:53

    Ola Criquio blz

    Cara é quase isso que quero fazer mas assim eu quero abrir atraves desta consulta o outro formulario aonde estão os dados completos do cliente ..

    SUBFORMULARIO CONSULTA -> Lucas da Silva , quando clicar no nome dele vai para o FORMULARIO CLIENTES e exibe todos os dados do Lucas .. tentei o codigo abaixo mas n consegui:

    On Error Resume Next

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "Clientes"
    stLinkCriteria = "[ID]=" & Me![Clientes]
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    DoCmd.Close acForm, ("CONSULTA"), acSavePrompt
    End Sub

    Abraços

    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Ao clicar 2 x Abrir  cadastro no subformulario Empty Re: [Resolvido]Ao clicar 2 x Abrir cadastro no subformulario

    Mensagem  vieirasoft Qui 09 Dez 2010, 20:08

    Teste assim
    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "seuform"

    stLinkCriteria = "[ID]=" & "'" & Me![Clientes] & "'"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    avatar
    fgcom
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 04/03/2010

    [Resolvido]Ao clicar 2 x Abrir  cadastro no subformulario Empty Re: [Resolvido]Ao clicar 2 x Abrir cadastro no subformulario

    Mensagem  fgcom Qui 09 Dez 2010, 23:26

    Ola Vieira , blz


    Fiz como deu no exemplo mas ele não abre o Formulario Clientes com os dados do cliente e sim o mesmo formulario(Consulta)em modo formulario continuo...

    Abcs
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Ao clicar 2 x Abrir  cadastro no subformulario Empty Re: [Resolvido]Ao clicar 2 x Abrir cadastro no subformulario

    Mensagem  vieirasoft Qui 09 Dez 2010, 23:34

    Amigão, Boa Tarde

    Claro que não dá. Reparei que havia falhas na escrita da rotina , mas não conheço a base de dados.

    Então é o seguinte que deve estar acontecer:

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "nomedoseuformulário"

    stLinkCriteria = "[NomeCliente]=" & "'" & Me![NomeCliente] & "'"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

    Ou seja o campo que deve ficar linkado é o nome do cliente e não ID & Me.Clientes que deve ser o nome do seu form.
    avatar
    fgcom
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 04/03/2010

    [Resolvido]Ao clicar 2 x Abrir  cadastro no subformulario Empty Re: [Resolvido]Ao clicar 2 x Abrir cadastro no subformulario

    Mensagem  fgcom Sex 10 Dez 2010, 02:02

    Ola mestre vieirasoft .. blz

    Agora funcionou perfeitamente ... mais uma vez muito obrigado pela dica..

    Abraços
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Ao clicar 2 x Abrir  cadastro no subformulario Empty Re: [Resolvido]Ao clicar 2 x Abrir cadastro no subformulario

    Mensagem  vieirasoft Sex 10 Dez 2010, 02:03

    Obrigado pelo retorno o fórum agradece e volte sempre que precisar.

    Abs

    Conteúdo patrocinado


    [Resolvido]Ao clicar 2 x Abrir  cadastro no subformulario Empty Re: [Resolvido]Ao clicar 2 x Abrir cadastro no subformulario

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Dom 19 maio 2024, 17:40