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


    salvando registros automaticamente.

    matheuspereira
    matheuspereira
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 513
    Registrado : 31/12/2012

    salvando registros automaticamente. Empty salvando registros automaticamente.

    Mensagem  matheuspereira 25/1/2013, 20:06

    Olá amigos, tenho uma duvida e conto com a ajuda de vcs. Tenho um formulario que toda ves que abro e desisto de fazer o registro ele salva mesmo sem eu digitar nada. posso entrar e sair 10 vezes que ele salva 10 registros em branco. O que posso fazer para resolver isso. quero que os registros sejão salvos apos eu apertar o botão salvar, não automaticamente. Abraço...
    avatar
    Convidado
    Convidado


    salvando registros automaticamente. Empty Re: salvando registros automaticamente.

    Mensagem  Convidado 25/1/2013, 22:56

    Crie no form um botão "salvar" e nele cole o código:
    Autor JPaulo
    Dim X As Integer
    If (Me.Dirty = True) Then
    X = MsgBox("Salvar registro no sistema ?", vbYesNo, "CADASTRO DE CLIENTES")
    If X = vbNo Then
    Me.Undo
    Exit Sub
    Else
    RunCommand acCmdSaveRecord
    DoCmd.GoToRecord , , acNewRec
    Exit Sub
    End If

    If (Me.Dirty = False) Then
    MsgBox "Registro já salvo...", vbCritical, "Atenção"
    Exit Sub
    End If

    No botão "fechar" o código:

    Dim X As Integer
    If Me.Dirty Then
    X = MsgBox("Houve adição ou alterações de registro, deseja salvar ?", vbYesNo, "CADASTRO DE CLIENTES")
    If X = vbNo Then
    Me.Undo
    End If
    End If
    DoCmd.Close
    matheuspereira
    matheuspereira
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 513
    Registrado : 31/12/2012

    salvando registros automaticamente. Empty resolvido

    Mensagem  matheuspereira 26/1/2013, 11:49

    valeu amigo, obrigado mesmo...

    Conteúdo patrocinado


    salvando registros automaticamente. Empty Re: salvando registros automaticamente.

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 12:57