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


3 participantes

    [Resolvido]Formulário de edição (listbox + subformulário)

    avatar
    louniast
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 03/02/2012

    [Resolvido]Formulário de edição (listbox + subformulário) Empty [Resolvido]Formulário de edição (listbox + subformulário)

    Mensagem  louniast 4/2/2012, 16:57

    Boa tarde pessoal.

    Sou iniciante em bancos de dados access e estou tentando desenvolver um sistema em que preciso criar um formulário de edição. Minha intenção é posicionar uma caixa de listagem seguida por um formulário que irá se atualizar com os dados do item selecionado na caixa de listagem. Já consegui fazer esse sistema utilizando subformulário, porém, meu problema está na questão de alterações.

    Ao alterar uma linha do sistema, ela já é salva automaticamente. Preciso fazer com que os dados sejam salvos somente ao clicar em um botão próprio para salvar. Tenho preferência por deixar o formulário de edição integrado com o formulário de pesquisa (para ilustrar melhor o que estou dizendo, segue em anexo uma imagem demonstrando o que consegui até agora). Há alguma forma de fazer esse sistema da forma que estou descrevendo?

    Tentei pesquisar no repositório do fórum mas não encontrei o material instruindo da forma que desejo fazer, somente clicando na caixa de listagem e abrindo outro formulário.

    Desde já agradeço a ajuda.

    Parabéns pelo fórum.
    avatar
    louniast
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 03/02/2012

    [Resolvido]Formulário de edição (listbox + subformulário) Empty Re: [Resolvido]Formulário de edição (listbox + subformulário)

    Mensagem  louniast 6/2/2012, 15:12

    Up
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]Formulário de edição (listbox + subformulário) Empty Re: [Resolvido]Formulário de edição (listbox + subformulário)

    Mensagem  JPaulo 15/2/2012, 16:30

    Teste assim;

    Private Sub Form_BeforeUpdate(Cancel As Integer)
    On Error Resume Next
    If Me.Dirty Then
    If MsgBox("O Registo foi alterado ou incluído. Deseja salvar?", vbExclamation + vbYesNo, Me.Caption) = vbYes Then
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
    Else
    Me.Undo
    DoCmd.CancelEvent
    End If
    End If
    End Sub


    Ou assim:


    Private Sub SeuBotãoFecharForm_Click()
    'By JPaulo ® Maximo Access
    If Me.Dirty Then
    If MsgBox("Deseja Salvar ?", vbOKCancel, "Salvar?") = vbCancel Then
    Me.Undo
    End If
    End If
    DoCmd.Close
    End Sub



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Formulário de edição (listbox + subformulário) Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Formulário de edição (listbox + subformulário) Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Formulário de edição (listbox + subformulário) Folder_announce_new Instruções SQL como utilizar...
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Formulário de edição (listbox + subformulário) Empty Re: [Resolvido]Formulário de edição (listbox + subformulário)

    Mensagem  criquio 7/3/2012, 20:56

    Estou passando o tópico a Resolvido. Se necessário, reabra por gentileza.
    Caso já tenha resolvido, favor dar um retorno.
    Grato:

    A moderação.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    Conteúdo patrocinado


    [Resolvido]Formulário de edição (listbox + subformulário) Empty Re: [Resolvido]Formulário de edição (listbox + subformulário)

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 17/5/2024, 00:26