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]Erro em data

    avatar
    robertonl
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 42
    Registrado : 21/12/2016

    [Resolvido]Erro em data Empty [Resolvido]Erro em data

    Mensagem  robertonl 29/9/2021, 03:21

    Boa noite.
    Realizei alguma adequações em meu projeto, onde escolho a data e ao alterar as informações mantem na mesma linha. Porem se a data iniciar entre os dias 01 até 09 o access dá erro ( Nenhum registro atual erro 3021)
    Como proceder, já tentei olhar erro na estrutura e não encontrei
    Anexos
    [Resolvido]Erro em data AttachmentTeste_Projeto.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (521 Kb) Baixado 9 vez(es)


    Última edição por robertonl em 30/10/2021, 21:37, editado 1 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1932
    Registrado : 13/12/2016

    [Resolvido]Erro em data Empty Re: [Resolvido]Erro em data

    Mensagem  Alexandre Fim 29/9/2021, 14:08

    Roberto bom dia,

    Por gentileza, em qual formulário que ocorre o problema?
    Voce não mencionou.

    []'s

    FIM
    avatar
    robertonl
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 42
    Registrado : 21/12/2016

    [Resolvido]Erro em data Empty Re: [Resolvido]Erro em data

    Mensagem  robertonl 29/9/2021, 14:49

    Od dois formularios
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1932
    Registrado : 13/12/2016

    [Resolvido]Erro em data Empty Re: [Resolvido]Erro em data

    Mensagem  Alexandre Fim 29/9/2021, 15:46

    Amigão?

    Voce não tá ajudando!! rssss

    Quais os formulários abaixo estão com problema:
    [Resolvido]Erro em data Forms10


    []'s

    FIM
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1932
    Registrado : 13/12/2016

    [Resolvido]Erro em data Empty Re: [Resolvido]Erro em data

    Mensagem  Alexandre Fim 29/9/2021, 15:46

    Amigão?

    Voce não tá ajudando!! rssss

    Quais os formulários abaixo estão com problema:
    [Resolvido]Erro em data Forms10


    []'s

    FIM
    avatar
    robertonl
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 42
    Registrado : 21/12/2016

    [Resolvido]Erro em data Empty Re: [Resolvido]Erro em data

    Mensagem  robertonl 29/9/2021, 15:50

    Escala liturgia e escala de ministro
    Os demais é de consulta e outro é base para montar outros formularios do programa
    avatar
    robertonl
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 42
    Registrado : 21/12/2016

    [Resolvido]Erro em data Empty Re: [Resolvido]Erro em data

    Mensagem  robertonl 30/9/2021, 19:02

    Foi incluido no botão alterar nos dois formularios ( Frm_EscalaMinistro ; Frm_EscalaLiturgia) a linha
    "On error resume next" e alterou normal, mas quando a data inicia antes do dia 10, aparece a mensagem que houve alteração, porem a informação não é alterada

    Código:


    Private Sub Btn_Alterar_Click()
        On Error Resume Next
        If IsNull(Data_Escala) Or Data_Escala.Value = "" Then
            MsgBox "CAMPO de preenchimento obrigatório.", vbOKOnly + vbCritical, "Atenção"
            'Id_Codcad.SetFocus
            'Id_Endereco.BackColor = 255
            Exit Sub
        End If
        'strSql = "SELECT * FROM Escala_Ministro WHERE Data_Escala ='" & CDate(Me.Data_Escala) & "'" '*** #" & Me.Data_Escala & "#")"
        strSql = "SELECT * FROM Escala_Ministro WHERE Data_Escala =#" & CDate(Me.Data_Escala) & "#"
       
        Set rstdizimista = CurrentDb.OpenRecordset(strSql)
            With rstdizimista
                .Edit
                .Escala_Ministro1 = Me.Cbo_Ministro1
                .Escala_Ministro2 = Me.Cbo_Ministro2
                '.Telefone2_Ministro = Me.Telefone2_Ministro
                '.Zap_Ministro = Me.Cbo_ZapMinistro
                '.Status_Ministro = Me.Cbo_StatusMinistro
                .Update
            End With
        Set rstendereco = Nothing
       
        'DB.Execute "update Tab_Solicitação set Nome_cad WHERE id_nomediz" & Me.Id_NomeDiz & "'"
           
        MsgBox "Escala alterada com sucesso!"
        Me.Lst_DadosEscalas.Requery
        'DoCmd.RunCommand acCmdRecordsGoToNew
        'Bloqueia_Ministro
        'Limpar_Formulario_Leitor
    End Sub

    avatar
    robertonl
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 42
    Registrado : 21/12/2016

    [Resolvido]Erro em data Empty Re: [Resolvido]Erro em data

    Mensagem  robertonl 27/10/2021, 02:28

    Boa noite. Algumas tentativas, o erro permanece, com data o dia e menor que 10 informa que houve alteracao, porém nao muda
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4801
    Registrado : 20/04/2011

    [Resolvido]Erro em data Empty Re: [Resolvido]Erro em data

    Mensagem  Silvio 27/10/2021, 11:12

    Boas.....

    Não existem relacionamentos entre nenhuma tabela.
    Não existem chaves primárias.


    Reveja isso....e faça os relacionamentos entre elas ! Sempre haverá uma tabela principal !!!

    Bons estudos.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1932
    Registrado : 13/12/2016

    [Resolvido]Erro em data Empty Re: [Resolvido]Erro em data

    Mensagem  Alexandre Fim 27/10/2021, 13:49

    Robertoni, bom dia
    A declaração de tratamento de erro "On Error Resume Next" faz com que a execução continue com a instrução imediatamente após a instrução que causou o erro.

    Fiz o tratamento de erro para ver justamente onde acontece o erro.

    Fiz algumas mudanças na instrução. Copie e cole:

    Código:


    Private Sub Btn_Alterar_Click()
    On Error GoTo trata_erro
    Dim vDataEscala As Date
       
        If IsNull(Data_Escala) Or Data_Escala.Value = "" Then
            MsgBox "O campo Data da Escala é de preenchimento obrigatório.", vbExclamation, "Atenção"
            Me.Data_Escala.SetFocus
            Exit Sub
        End If
       
        vDataEscala = Format(Me.Data_Escala, "mm/dd/yyyy")
       
        'strSql = "SELECT * FROM Escala_Ministro WHERE Data_Escala ='" & CDate(Me.Data_Escala) & "'" '*** #" & Me.Data_Escala & "#")"
        strSql = "SELECT * FROM Escala_Ministro WHERE Data_Escala =#" & vDataEscala & "#"
       
        Set rstdizimista = CurrentDb.OpenRecordset(strSql)
        With rstdizimista
            .Edit
            .Escala_Ministro1 = Me.Cbo_Ministro1
            .Escala_Ministro2 = Me.Cbo_Ministro2
            '.Telefone2_Ministro = Me.Telefone2_Ministro
            '.Zap_Ministro = Me.Cbo_ZapMinistro
            '.Status_Ministro = Me.Cbo_StatusMinistro
            .Update
        End With
       
       
        '-- Fechar o recordset e limpar da memória --------------
        rstdizimista.Close
        Set rstdizimista = Nothing
        '--------------------------------------------------------
       
        ' -- Este recordset não faz parte da Instrução ???
        ' Set rstendereco = Nothing
        '---------------------------------------------
       
        'DB.Execute "update Tab_Solicitação set Nome_cad WHERE id_nomediz" & Me.Id_NomeDiz & "'"
           
        MsgBox "Escala alterada com sucesso!"
        Me.Lst_DadosEscalas.Requery
        'DoCmd.RunCommand acCmdRecordsGoToNew
        'Bloqueia_Ministro
        'Limpar_Formulario_Leitor
       
        Exit Sub

    '-- tratamento de erro - Alexandre Fim - 27/10/2021----------------------------------------
    trata_erro:
        MsgBox "Erro gerado: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro!!!"
        Exit Sub
       
    End Sub



    Faça os testes e veja se funciona.

    É isso

    []'s

    FIM
    avatar
    robertonl
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 42
    Registrado : 21/12/2016

    [Resolvido]Erro em data Empty Re: [Resolvido]Erro em data

    Mensagem  robertonl 27/10/2021, 16:31

    Ok. A principio funcionou

      Data/hora atual: 30/11/2021, 00:03