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


2 participantes

    Cadastrar e abrir ficha de cliente

    teboman
    teboman
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 49
    Registrado : 03/08/2016

    Cadastrar e abrir ficha de cliente Empty Cadastrar e abrir ficha de cliente

    Mensagem  teboman 14/7/2017, 21:21

    Boa tarde senhores da programação.

    Meu caso deve ser simples (para vocês que entendem).
    Eu tenho um formulario para cadastrar clientes (Formulario simples na opção de adição de dados (formcadastroclientes)) e outro com a ficha do cliente, no formulario de cadastro tem 3 botões, 1 para cadastrar e sair, outro para cadastrar e ver a ficha do cliente (formclientes, e outro pra cancelar.
    A questão é que o botão Cadastrar e ver ficha não esta funcionando, eu coloquei o seguinte codigo...

    Private Sub btncadeficha_Click()
    Dim P As Long
    P = Forms!FormCadastroClientes!Código
    DoCmd.OpenForm "FormClientes", , , "Código ='" & P & "'"

    End Sub

    E esse codigo esta dando erro de tipo de dados incompativel na expressao de criterio. O campo codigo é auto increment, sera que devo declarar a variavel de outra forma?

    Agradeco a atencao mestres.
    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    Cadastrar e abrir ficha de cliente Empty Re: Cadastrar e abrir ficha de cliente

    Mensagem  Dilson 15/7/2017, 00:34

    Aparentemente o problema está nas aspas.

    Via de regra texto usamos aspas duplas, assim: '" "' e para Numero aspas simples, assim: ""

    Sabendo que a chave primária é número então: usamos aspas simples.

    A linha de código ficará assim:
    DoCmd.OpenForm "FormClientes", , , "Código =" & P


    teboman
    teboman
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 49
    Registrado : 03/08/2016

    Cadastrar e abrir ficha de cliente Empty Re: Cadastrar e abrir ficha de cliente

    Mensagem  teboman 18/7/2017, 01:39

    Opa, primeiramente obrigado pela atenção e desculpas pela demora.
    Coloquei o código citado e agora ele abre o formulário em branco, me desculpe mas não sou muito experiente nisso ainda.
    Oque pode ser agora?
    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    Cadastrar e abrir ficha de cliente Empty Re: Cadastrar e abrir ficha de cliente

    Mensagem  Dilson 18/7/2017, 03:32

    Verifique se P realmente carrega o número, assim:
    Dim P As Long
    P = Forms!FormCadastroClientes!Código
    msgbox P
    DoCmd.OpenForm "FormClientes", , , "Código =" & P

    Se estiver carregando o número, vejá no formulário se Código é mesmo o nome correto da sua Fonte de Controle.
    teboman
    teboman
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 49
    Registrado : 03/08/2016

    Cadastrar e abrir ficha de cliente Empty Re: Cadastrar e abrir ficha de cliente

    Mensagem  teboman 18/7/2017, 22:38

    Ele reconheceu o numero no msgbox porem continua a abrir em branco e os nomes estão corretos, oque pode estar acontecendo?

    Conteúdo patrocinado


    Cadastrar e abrir ficha de cliente Empty Re: Cadastrar e abrir ficha de cliente

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 17:34