[Resolvido]Erro em data

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

Roberto bom dia,

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

[]'s

FIM

Od dois formularios

Amigão?

Voce não tá ajudando!! rssss

Quais os formulários abaixo estão com problema:



[]'s

FIM

Amigão?

Voce não tá ajudando!! rssss

Quais os formulários abaixo estão com problema:



[]'s

FIM

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

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



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

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.

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

Ok. A principio funcionou