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

    [Resolvido]Não aparece para eu digitar novos dados

    avatar
    sueli1947
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 122
    Registrado : 17/05/2013

    [Resolvido]Não aparece para eu digitar novos dados Empty [Resolvido]Não aparece para eu digitar novos dados

    Mensagem  sueli1947 15/4/2017, 19:42

    Olá amigos ;
    Boa Tarde !
    Uso Access 2007
    Tenho um frmPedido criei um botão OK ao criar coloquei a opção próximo registro pois bem,ao clicar no botão ok aparece a mensagem :
    Private Sub Comando134_Click()
    If MsgBox("Deseja finalizar o pedido ? ", vbYesNo + vbQuestion, "Atenção Operador(a)") = vbYes Then
    End If
    End Sub

    Mas quando clico no botão ok que aparece no frm da mensagem ele não vai pro próximo registro fica ali os dados que acabei de digitar.
    Gostaria de que quando eu clicar no botão ok ele limpasse os campos do formulário para eu cadastrar o próximo cliente.
    Att
    Sueli
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Não aparece para eu digitar novos dados Empty Re: [Resolvido]Não aparece para eu digitar novos dados

    Mensagem  FabioPaes 15/4/2017, 21:38

    Ola sulei, deve colocar o comando de novo registro apos a mensagem!


    Private Sub Comando134_Click()
    If MsgBox("Deseja finalizar o pedido ? ", vbYesNo + vbQuestion, "Atenção Operador(a)") = vbYes Then
    'Insere um novo registro em formulario acoplado
    docmd.GoToRecord,,acNewRec
    End If
    End Sub


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    sueli1947
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 122
    Registrado : 17/05/2013

    [Resolvido]Não aparece para eu digitar novos dados Empty Não aparece para eu digitar novos dados

    Mensagem  sueli1947 19/4/2017, 03:31

    Boa Noite Fabio Paes
    Deu certo seu complemento do código
    Vou dar como resolvido
    Obrigado !
    Att
    Sueli

    sueli1947 gosta desta mensagem


    Conteúdo patrocinado


    [Resolvido]Não aparece para eu digitar novos dados Empty Re: [Resolvido]Não aparece para eu digitar novos dados

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 13/5/2024, 21:21