MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Cadastrar e abrir ficha de cliente

    Compartilhe
    avatar
    teboman
    Novato
    Novato

    Respeito às Regras 100%

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

    Cadastrar e abrir ficha de cliente

    Mensagem  teboman em Sex 14 Jul 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.
    avatar
    Dilson
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: Cadastrar e abrir ficha de cliente

    Mensagem  Dilson em Sab 15 Jul 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


    avatar
    teboman
    Novato
    Novato

    Respeito às Regras 100%

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

    Re: Cadastrar e abrir ficha de cliente

    Mensagem  teboman em Ter 18 Jul 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?
    avatar
    Dilson
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: Cadastrar e abrir ficha de cliente

    Mensagem  Dilson em Ter 18 Jul 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.
    avatar
    teboman
    Novato
    Novato

    Respeito às Regras 100%

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

    Re: Cadastrar e abrir ficha de cliente

    Mensagem  teboman em Ter 18 Jul 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?

      Data/hora atual: Sab 18 Nov 2017, 13:48