MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    [Resolvido]Problemas ao salvar registros no formulário

    avatar
    jadsln
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 19/05/2011

    [Resolvido]Problemas ao salvar registros no formulário Empty [Resolvido]Problemas ao salvar registros no formulário

    Mensagem  jadsln em 20/7/2011, 21:32

    Oi pessoal!

    É o seguinte... eu tenho um formulário onde insiro dados, eu criei um botão salvar para salvá-los. Só que eu coloquei alguns códigos para que alguns campos sejam obrigatórios antes de salvar (Não fiz isso como "campo obrigatório" porque depois que se clica na opção não dá pra sair até digitar alguma coisa).

    Na hora de salvar, os códigos funcionam perfeitamente. Só que eu tenho uma caixa de listagem que contém os registros já salvos e que eu posso selecionar e o formulário me retorna os valores correspondentes.

    Já consegui implementar o código para que se eu alterar alguma coisa ele pergunte se eu desejo salvar antes de atualizar. Só que eu queria que o formulário só atualizasse depois que aqueles campos obrigatórios fossem preenchidos. Só que ele atualiza de qualquer forma.

    Desde já agradeço

    Os códigos:



    Private Sub Form_BeforeUpdate(Cancel As Integer)
    Dim strMsg As String
    strMsg = "Foram efetuadas alterações"
    strMsg = strMsg & "... Deseja salvar as alterações?"
    If MsgBox(strMsg, vbQuestion + vbYesNo, "Salvar?") = vbYes Then
    'do nothing
    Call Salvar_Click
    'DoCmd.GoToRecord , , acPrevious


    Else
    DoCmd.RunCommand acCmdUndo

    End If

    End Sub


    Private Sub Form_Current()

    Pesquisa.Requery
    Me!Pesquisa = Me!ID


    Private Sub Pesquisa_AfterUpdate()
    ' Encontrar o registro que coincide com o controle.
    Dim rs As Object

    Set rs = Me.Recordset.Clone
    rs.FindFirst "[ID] = " & Str(Nz(Me![Pesquisa], 0))
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark

    End Sub


    Private Sub Salvar_Click()
    On Error GoTo Err_Salvar_Click

    If IsNull(Poço) Then
    MsgBox "Digite o Poço", vbOKOnly + vbInformation, "..."

    ElseIf IsNull(Mês) Then
    MsgBox "Digite o Parâmetro", vbOKOnly + vbInformation, "..."

    ElseIf IsNull(Ano) Then
    MsgBox "Digite o Valor", vbOKOnly + vbInformation, "..."

    ElseIf IsNull(UpTime) Then
    MsgBox "Digite a Data", vbOKOnly + vbInformation, "..."

    ElseIf IsNull(Pressão) Then
    MsgBox "Digite a Campanha", vbOKOnly + vbInformation, "..."


    ElseIf MsgBox("Tem certeza que deseja salvar?", vbYesNo, "CONFIRMAÇÃO") = vbYes Then

    DoCmd.RunCommand acCmdSaveRecord
    MsgBox "Dados salvos com sucesso.", vbOKOnly, "CONFIRMAÇÃO"
    Exit Sub
    End If


    Exit_Salvar_Click:
    Exit Sub

    Err_Salvar_Click:
    MsgBox Err.Description
    Resume Exit_Salvar_Click

    End Sub
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12227
    Registrado : 01/03/2011

    [Resolvido]Problemas ao salvar registros no formulário Empty Re: [Resolvido]Problemas ao salvar registros no formulário

    Mensagem  HARYSOHN em 20/7/2011, 21:50

    Amigão se o seu form é vinculado a uma tabela... Ao digitar os dados são salvos automaticamente, não havendo nem a necessidade de salvar...

    então ao ir preenchendo os campos ele salva automaticamente..


    Explique melhor...
    avatar
    jadsln
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 19/05/2011

    [Resolvido]Problemas ao salvar registros no formulário Empty Re: [Resolvido]Problemas ao salvar registros no formulário

    Mensagem  jadsln em 20/7/2011, 21:55

    Eu não quero que salve automaticamente não. O problema é esse.

    Eu quero que só salve quando eu disser que é pra salvar. Que ele pergunte e eu diga sim.

    Isso acontece se eu clicar no botão salvar. E ele só deixa salvar se todos os campos obrigatórios estiverem preenchidos.

    Mas na hora de atualizar pra um registro salvo ele pergunta se eu quero salvar, se eu responder não eele descarta. Mas se eu responder sim ele só deveria deixar eu salvar se todos os campos obrigatórios estivessem preenchidos(como acontece quando clico no botão salvar). Mas isso não acontece justamente porque ele salva automaticamente.

    Eu chamo a função "salvar_click" ela roda mas logo em seguida o form atualiza para o registro que escolhi na caixa de seleção. Dessa forma salvando automaticamente um registro com campos obrigatórios em branco.
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12227
    Registrado : 01/03/2011

    [Resolvido]Problemas ao salvar registros no formulário Empty Re: [Resolvido]Problemas ao salvar registros no formulário

    Mensagem  HARYSOHN em 20/7/2011, 23:34

    infelizmente nao fazemos somente o que queremos... quando digita o access ja emite um numero no campo autonumeração...

    no caso de nao salvar, pode excluir o registro mas o numero fica perdido..

    eu fiz para uma pessoa aqui do fórum certa vez.. mas utilizando um campo numero como ID e numeração automática por código...

    se ele desistisse , comando para exlcuir o registro..


    Para fazer o que voce quer com perfeição somente com forms desvinculados!

    Saudações
    criquio
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Problemas ao salvar registros no formulário Empty Re: [Resolvido]Problemas ao salvar registros no formulário

    Mensagem  criquio em 20/7/2011, 23:42

    Amigão, eu prefiro usar formulários desvinculados e salvar o registro via vba, usando Recordset ou sql. Com forms vinculados, é como o colega disse acima, quando você começa a digitar, um número na chave já é reservado para o registro. Caso desista de salvá-lo, esse número se perde. Uma forma simples de salvar o registro, pode ser você desvincular o formulário e os campos e no botão colocar assim:

    If IsNull(Me.NomeCampoTal) Or Me.NomeCampoTal.Value = "" Then
    MsgBox "CampoTal é de preenchimento obrigatório", , ""
    ElseIf IsNull(Me.NomeOutroCampo) Or Me.NomeOutroCampo.Value = "" Then
    MsgBox "OutroCampo é de preenchimento obrigatório", , ""
    Else
    CurrentDb.Execute "INSERT INTO NomeDaTabela(NomeCampo1,NomeCampo2,NomeCampo3) VALUES('" & Me.NomeCampo1 & "', "' & Me.NomeCampo2 & "', '" & Me.NomeCampo3 & "')"
    End If


    Dessa forma, só queima número na chave primária se ocorrer algum erro. Recomendo testar isso, caso queira, em uma cópia do banco. Se der tudo certo, aplica no original.


    .................................................................................
    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.

    avatar
    jadsln
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 19/05/2011

    [Resolvido]Problemas ao salvar registros no formulário Empty Re: [Resolvido]Problemas ao salvar registros no formulário

    Mensagem  jadsln em 21/7/2011, 12:36

    Obrigado Harysohn e Criquio!

    Eu vou testar agora esse código Criquio, se funcionar eu digo aqui.

    Obrigado!
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12227
    Registrado : 01/03/2011

    [Resolvido]Problemas ao salvar registros no formulário Empty Re: [Resolvido]Problemas ao salvar registros no formulário

    Mensagem  HARYSOHN em 21/7/2011, 12:44

    ***Mas observe que os campos tem que estarem desacoplados
    vieirasoft
    vieirasoft
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Problemas ao salvar registros no formulário Empty Re: [Resolvido]Problemas ao salvar registros no formulário

    Mensagem  vieirasoft em 1/8/2011, 08:55

    Como não retornou, o tópico passa a resolvido. Qualquer coisa reabra, por favor.

    Conteúdo patrocinado

    [Resolvido]Problemas ao salvar registros no formulário Empty Re: [Resolvido]Problemas ao salvar registros no formulário

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 16/6/2019, 21:51