MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

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

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

    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1454
    Registrado : 23/01/2018

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

    Mensagem  crysostomo em 8/8/2020, 21:34

    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


    Última edição por crysostomo em 8/8/2020, 22:51, editado 1 vez(es)


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  Alexandre Fim em 8/8/2020, 22:51

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


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1454
    Registrado : 23/01/2018

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

    Mensagem  crysostomo em 8/8/2020, 23:26

    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


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  Alexandre Fim em 9/8/2020, 17:11

    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


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.

    crysostomo gosta desta mensagem

    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7779
    Registrado : 05/11/2009

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

    Mensagem  Alexandre Neves em 10/8/2020, 21:21

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


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  Alexandre Fim em 10/8/2020, 21:31

    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,


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1454
    Registrado : 23/01/2018

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

    Mensagem  crysostomo em 12/8/2020, 01:12

    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!

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


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1454
    Registrado : 23/01/2018

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

    Mensagem  crysostomo em 12/8/2020, 02:07

    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...


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

      Data/hora atual: 25/11/2020, 13:06