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]Digitar no FORM sem que salve ou edite por si, mas sim quando eu clicar no botão SALVAR

    avatar
    Ghunnar
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 70
    Registrado : 10/02/2011

    [Resolvido]Digitar no FORM sem que salve ou edite por si, mas sim quando eu clicar no botão SALVAR Empty Digitar no FORM sem que salve ou edite por si, mas sim quando eu clicar no botão SALVAR

    Mensagem  Ghunnar Sáb 12 Mar 2011, 15:40

    Como faço para que o no FORM quando eu digito não salve automaticamente na Tabela e nem que seja editado pelo usuário quando ele estiver digitando e sim somente quando ele clicar no botão SALVAR, não quero que dados sejam incluídos na tabela sem o clicar no SALVAR? Fiz umas mudanças no item DADOS - Permitir Edições/Permitir Adições/Entrada de Dados mas ainda não ficou do jeito esperado.
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Digitar no FORM sem que salve ou edite por si, mas sim quando eu clicar no botão SALVAR Empty Re: [Resolvido]Digitar no FORM sem que salve ou edite por si, mas sim quando eu clicar no botão SALVAR

    Mensagem  vieirasoft Sáb 12 Mar 2011, 16:04

    Para isso o ideal é isto

    Private Sub Form_BeforeUpdate(Cancel As Integer)
    Dim strMsg As String
    strMsg = "Foram efectuadas alterações"
    strMsg = strMsg & "...Deseja gravar as alterações?"
    If MsgBox(strMsg, vbQuestion + vbYesNo, "Gravar?") = vbYes Then
    'do nothing
    Else
    digite aqui a instrução que quer

    End If

    End Sub

    Ah, esqueci...Pode ter um botão com a opção gravar.
    avatar
    Convidado
    Convidado


    [Resolvido]Digitar no FORM sem que salve ou edite por si, mas sim quando eu clicar no botão SALVAR Empty Re: [Resolvido]Digitar no FORM sem que salve ou edite por si, mas sim quando eu clicar no botão SALVAR

    Mensagem  Convidado Sáb 12 Mar 2011, 16:57

    Aqui ocorreu o seguinte:
    Apliquei a função acima em um formulario "Despesas" ele perguntou se eu gostaria de salvar, ai eu cliquei em Não, Mais ele salvo Sim o arquivo.
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Digitar no FORM sem que salve ou edite por si, mas sim quando eu clicar no botão SALVAR Empty Re: [Resolvido]Digitar no FORM sem que salve ou edite por si, mas sim quando eu clicar no botão SALVAR

    Mensagem  vieirasoft Sáb 12 Mar 2011, 18:06

    A funçaõ funciona 100% Rogiel.
    avatar
    Ghunnar
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 70
    Registrado : 10/02/2011

    [Resolvido]Digitar no FORM sem que salve ou edite por si, mas sim quando eu clicar no botão SALVAR Empty Re: [Resolvido]Digitar no FORM sem que salve ou edite por si, mas sim quando eu clicar no botão SALVAR

    Mensagem  Ghunnar Sáb 12 Mar 2011, 18:43

    Vieira,

    a função funciona para o GRAVAR, mas quando digita-se não o Rogiel tem razão, GRAVA assim mesmo.
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Digitar no FORM sem que salve ou edite por si, mas sim quando eu clicar no botão SALVAR Empty Re: [Resolvido]Digitar no FORM sem que salve ou edite por si, mas sim quando eu clicar no botão SALVAR

    Mensagem  vieirasoft Sáb 12 Mar 2011, 18:49

    Assim por favor, realmente não passei a instrução completa, desculpem


    Private Sub Form_BeforeUpdate(Cancel As Integer)
    Dim strMsg As String
    strMsg = "Foram efectuadas alterações"
    strMsg = strMsg & "...Deseja gravar as alterações?"
    If MsgBox(strMsg, vbQuestion + vbYesNo, "Gravar?") = vbYes Then
    'do nothing
    Else
    DoCmd.RunCommand acCmdUndo

    End If

    End Sub

    Ao fazer o Undo não grava
    avatar
    Ghunnar
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 70
    Registrado : 10/02/2011

    [Resolvido]Digitar no FORM sem que salve ou edite por si, mas sim quando eu clicar no botão SALVAR Empty Re: [Resolvido]Digitar no FORM sem que salve ou edite por si, mas sim quando eu clicar no botão SALVAR

    Mensagem  Ghunnar Sáb 12 Mar 2011, 19:01

    Vieira,

    mil por cento ok...beleza.....obrigado. Cambio Finalizado.
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Digitar no FORM sem que salve ou edite por si, mas sim quando eu clicar no botão SALVAR Empty Re: [Resolvido]Digitar no FORM sem que salve ou edite por si, mas sim quando eu clicar no botão SALVAR

    Mensagem  vieirasoft Sáb 12 Mar 2011, 19:04

    Obrigado pelo retorno, Forte abraço.

    Conteúdo patrocinado


    [Resolvido]Digitar no FORM sem que salve ou edite por si, mas sim quando eu clicar no botão SALVAR Empty Re: [Resolvido]Digitar no FORM sem que salve ou edite por si, mas sim quando eu clicar no botão SALVAR

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Qui 07 Nov 2024, 20:38