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]Cadastrar registro somente depois de clicar em salvar registro?

    avatar
    alexcae
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 26/08/2010

    [Resolvido]Cadastrar registro somente depois de clicar em salvar registro? Empty [Resolvido]Cadastrar registro somente depois de clicar em salvar registro?

    Mensagem  alexcae 19/10/2010, 15:45

    Bem estou com uma dificuldade aqui:

    Exemplo: Eu crio um form cadastrar cliente e coloco um botão novo, salvar e sair.
    ao clicar em novo e digitar o nome do cliente e por um acaso eu fechar o access o registro ja fica gravado na tabela. Gostaria de saber como se faz para que somente depois de clicar em salvar o registro seja criado na tabela clientes
    *obs: crio o form com o assistente e adiciono os botões tbem com o assistente
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Cadastrar registro somente depois de clicar em salvar registro? Empty Re: [Resolvido]Cadastrar registro somente depois de clicar em salvar registro?

    Mensagem  vieirasoft 19/10/2010, 16:07

    Boa Tarde Amigo

    Pode faze-lo no evento beforeupdate

    Private Sub Form_BeforeUpdate(Cancel As Integer)
    Dim strMsg As String
    strMsg = "Os dados foram alterados"
    strMsg = strMsg & "@Deseja salvar os dados?"
    strMsg = strMsg & "@Click Sim para guardar ou Não para remover."
    If MsgBox(strMsg, vbQuestion + vbYesNo, "Guardar?") = vbYes Then

    Else
    DoCmd.RunCommand acCmdUndo
    End If
    End Sub

      Data/hora atual: 21/11/2024, 22:06