erro update ou cancellupdate

olá a todos tenho um formulario de saida de hospedes que coloco a data de saida , mas qdo vou passar para digitar a horas de saida
dá erro " update ou cancelupdate sem addnew ou edit"
como faço para consertar esse erro ?

Boa noite Bell.
Coloque o codigo aqui para a gaera ver

Private Sub DtSaida_AfterUpdate()
AddNew
If IsNull([DtSaida]) Then
NDias = Null
VlrTotal = Null
TxtIdentifica = "OCUPADO"
frmApartamento!TxtIdentifica = "OCUPADO"
Else
NDias = Nz([DtSaida] - [DtEntrada])
VlrTotal = Nz([VlrDiaria] * [NDias])
TxtIdentifica = "LIVRE"
frmApartamento!TxtIdentifica = "LIVRE"
End If
'-------
If TxtIdentifica = "LIVRE" Then
TxtIdentifica.ForeColor = 0 'Vermelho
Else
TxtIdentifica.ForeColor = 255 'Preto
End If
'Salva o registro atual
DoCmd.RunCommand acCmdSaveRecord
ListaAss.Requery
If Me.Dirty Then

End If
End Sub

Carlos,

Verifique as evidencias abaixo:




É isso.

[]'s

FIM

valeu , vou testar aqui

o erro continua



If IsNull([DtSaida]) Then
NDias = Null
VlrTotal = Null
TxtIdentifica = "OCUPADO"
frmApartamento!TxtIdentifica = "OCUPADO"
Else
NDias = Nz([DtSaida] - [DtEntrada], 0)
VlrTotal = Nz([VlrDiaria] * [NDias], 0)
TxtIdentifica = "LIVRE"
frmApartamento!TxtIdentifica = "LIVRE"
End If
'-------
If TxtIdentifica = "LIVRE" Then
TxtIdentifica.ForeColor = 0 'Vermelho
Else
TxtIdentifica.ForeColor = 255 'Preto
End If
'Salva o registro atual





Sub ListaAss_AfterUpdate()
   ' Encontrar o registro que coincide com o controle.
   Me.RecordsetClone.FindFirst "[IdRegistro] = " & Me![ListaAss]
   Me.Bookmark = Me.RecordsetClone.Bookmark
   
    IdRegistro.Visible = True
   DtSaida.SetFocus
   Me.Localizar = Null
   Me.Localizar.Visible = False
End Sub
DoCmd.RunCommand acCmdSaveRecord
ListaAss.Requery
       
       
End Sub

Mude
NDias = Null
VlrTotal = Null
Me.Localizar = Null

Para
NDias = 0
VlrTotal = 0
Me.Localizar = Empty

Se não funcionar, compartilhe seu bd (somente aprtes envolvidas)para analise e solução.

[]'s

FIM

fiz tudo , mas o erro continua


logim =  bell
senha = 1206

modulo = registro de entrada e saida,
coloca , não para saida
apartamento ocupados, seleciona o apartamento e coloca a data de saida , aperta tab ou enter
é ai que aparece o erro
apos colocar a data , e precionar a tecla enter ou tab , aparece o erro

CArlos,

Não consegui reproduzir o erro, conforme você orientou, mas ao pressionar ALT+F11 para compilar, o sistema detectou erro:



Faça o tratamento em todas as linhas que gerar erro na compilação. Em seguida, compacte e repare a aplicação.

Em segui, faça os testes no módulo que estava gerando o erro.

Tente isso.

[]'s

FIM

ok

como eu coloco uma imagem aqui?
eu vou em inserir uma imagen, ou hospedar imagem , mas nao consigo

Olá,

Veja no link como postar imagens e anexos:
https://www.maximoaccess.com/t32003-como-postar-anexos-e-imagens-no-site-maximoaccess-com

clico no aprtamento , depois eu clico na data de saida e quuando eu dou enter ou tab , da esse erro

https://i.servimg.com/u/f55/20/27/02/40/calcel10.png


estou desesperado , já estou há algum tempo tentando resolver isso
por favor se alguem souber , me ajude

Olá Carlos,

No formulário de Saida, quando o campo data perde o foco (LostFocus), executa a instrução para gravar o registro:


E no evento Apor Atualizar (AfterUpdate) deste campo também tem instrução para gravar o registro:



No caso, o seu formulário está a coplado á uma fonte de dados, e a emdida que vc vai atualizando os campos, o Access já grava na tabela.

Há um equivoco na utilização dos comandos.
Faz o seguinte, comente a linha abaixo e veja se funciona:

DoCmd.RunCommand acCmdSaveRecord


É isso

[]'s

FIM

nao deu certo , nao