[Resolvido]Não consigo atualizar campo por causa de ser concatenado

amigos boa tarde não consigo atualizar apenas esse campo , pode me ajuda o porque esse erro

Me.txtValorTotal = Me.txtCobrancaDeDia + Me.Texto38 & ";" & Me.Texto36
'se não houver registro morre aqui
If IsNull(Me.txtInicial) Then
       MsgBox " Voce não pode encerrar  sem a horas inicial", vbInformation, ""
   Me.txtInicial.SetFocus
   Me.txtFinal = Null
End If
If rst.RecordCount = 0 Then Exit Sub
  .Edit
 rst("horasIniciada") = Date
 rst("horasFinalizada") = Time
   rst("dataFinalizada") = Date
   rst("horasFinalizada") = Time
   rst("valor") = Me.txtValorConvertido esse que está em negrito não se atualiza
   rst("tempoEstacionado") = Me.txtAcerto
 .Update
End With
'fecha o recordset e limpa a memoria
rst.Close: Set rst = Nothing
'DoCmd.Close

Ele não esta atualizando por o valor esta concatenado com outro campo, mas eu preciso cancatenar

Este campo "valor" tem que estar na instrução SQL do recordset.

não estou enxergando  o meu erro . pois ele ja está na linha do rst. Vou refazer aqui

Código:

Private Sub txtEncerrar_Click()
  Dim db As DAO.Database
  Set rst = CurrentDb.OpenRecordset("SELECT * FROM tblEstacionamento WHERE dataFinalizada IS NULL")

Me.txtFinal = Me.txtHoras
Me.minF = Minute(Now())
    Me.hF = Hour(Now())
    Me.txtDiaF = Me.Texto54
    Me.txtCobrançaDeHorasEminutos = Me.Texto38 * Me.txtValorCobrado & ";" & Me.Texto36 ' juntar horas com minutos cobrado
    Me.txtCobrancaDeDia = Me.calcDia * Me.txtValorCobrado ' cobrar dia
    Me.txtAcerto = txtEntreDatas & " dias " & (Texto38) & " hs ; " & (Texto36) & " min" ' colocar no campo do tento que estacionou  Set rst = CurrentDb.OpenRecordset("SELECT * FROM tblEstacionamento WHERE horasEncerrada IS NULL")
    Me.txtValorTotal = Me.txtCobrancaDeDia + Me.Texto38 & ";" & Me.Texto36
'se não tem registos, morre aqui

If IsNull(Me.txtInicial) Then
        MsgBox " Voce não pode encerrar uma estadia sem a horas inicial", vbInformation, "EstacionAqui"
    Me.txtInicial.SetFocus
    Me.txtFinal = Null
End If
 If rst.RecordCount = 0 Then Exit Sub
  With rst
      .Edit
      rst("horasIniciada") = Date
      rst("horasFinalizada") = Time
        rst("dataFinalizada") = Date
        rst("horasFinalizada") = Time
        rst("valor") = Me.txtValorTotal
        rst("tempoEstacionado") = Me.txtAcerto
      .Update
     End With
    'fecha o recordset e limpa a memoria
     rst.Close: Set rst = Nothing
    'DoCmd.Close
 End Sub


sem a concatenação do txtValorTotal ele atualiza a linha . Para mim eu tirava essa concatenação, mas o cliente que que pega ate os minutos a ser cobrado

Crysosotomo,

Coloque o tratamento de erro no código e inicia a depuração, e quando cair no erro, vc vai saber qual é.

Código:


Private Sub txtEncerrar_Click()
On Error GoTo trata_erro
   
' ..... SEU CODIGO.........
   
    Exit Sub
trata_erro:
    MsgBox "Erro gerado: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro"
    Exit Sub
   
 End Sub



Caso não saiba resolver, pesquise pelo erro na internet, que vc vai encontrar.

Boa sorte

Boa noite
Será que tem a ver com nome reservado? Valor=Value

Talvez seja a formatação de campos e/ou tratamento de valores nulos.

Crysostomo?

Poste aqui seu banco de dados (somente partes envolvidas) para análise.

Att,

Boa noite amigos.
Consegui fazer aqui na verdade eu não entendi o porque, pois eu exclui o campo e inseri o campo novamente com o mesmo nome e formato e deu  certo , agora quando eu clico em um botão encerrar aparece essa mensagem ,não consigo compreender e achar!

Boa noite meu amigos,  eu resolvi aqui, mas ainda não entendi, porque os 2 erro que apareceu resolvi da seguinte forma: exclui os campo e o botão e inseri com o mesmo nome e formato.
o medo agora é o problema voltar a acontecer
Obrigo vocês dois...