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

    Erro em data

    avatar
    robertonl
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

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

    Erro em data Empty 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
    Erro em data AttachmentTeste_Projeto.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (521 Kb) Baixado 6 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

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

    Erro em data Empty Re: 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 : 27
    Registrado : 21/12/2016

    Erro em data Empty Re: 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 : 1818
    Registrado : 13/12/2016

    Erro em data Empty Re: 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:
    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 : 1818
    Registrado : 13/12/2016

    Erro em data Empty Re: 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:
    Erro em data Forms10


    []'s

    FIM
    avatar
    robertonl
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

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

    Erro em data Empty Re: 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 : 27
    Registrado : 21/12/2016

    Erro em data Empty Re: 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


      Data/hora atual: 16/10/2021, 22:11