MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Mesclar dados dos campos TEXTO e NÚMERICO

    Compartilhe

    Marcos André
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 18
    Registrado : 24/09/2014

    Mesclar dados dos campos TEXTO e NÚMERICO

    Mensagem  Marcos André em Seg 27 Abr 2015, 17:44

    Tenho um form de cadastro de doações onde utilizo o DAO para registrar os mesmo dados em uma 2º tabelas.

    Preciso que o código de lançamento seja lançado na 2º tabela com a letra D ex(114D)

    O problema é que meu codigo DAO não está conseguindo localizar o registro na hora de alterar.
    Ele retorna: "Erro de sintaxe (Operador faltando) na expressão."

    Alguém sabe me dizer se é possível fazer a comparação de dados no Rs.FindFirst com a variável CodDoaNew que criei?

    coloquei o seguinte código:

    Dim CodDoaNew as String
    CodDoaNew = Me.CódigoDoacao & "D"

    Dim db As DAO.Database, Rs As DAO.Recordset
    Set db = CurrentDb()
    Set Rs = db.OpenRecordset("Tbl_LancamentosCaixa", dbOpenDynaset)
    Rs.FindFirst ("CodigoGeral = " & CodDoaNew)
    Rs.Edit

    Rs("TipoLancamento") = "CRÉDITO"
    Rs("NomeLancamento") = "ENTRADA DE DOAÇÕES"
    Rs("DataLancamento") = Me.DataLancamento
    Rs("Responsavel") = Me.RecolhedorResponsavel
    Rs("ValorC") = Me.TxtValorTotal
    Rs("CodigoGeral") = CodDoaNew
    Rs("ValorD") = (Null)


    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 2746
    Registrado : 06/11/2009

    Re: Mesclar dados dos campos TEXTO e NÚMERICO

    Mensagem  Assis em Seg 27 Abr 2015, 18:30

    Marcos

    Teste assim.

    CodDoaNew = Me.CódigoDoacao & "D" &



    .................................................................................
    *** Só sei que nada sei ***

    Marcos André
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 18
    Registrado : 24/09/2014

    Re: Mesclar dados dos campos TEXTO e NÚMERICO

    Mensagem  Marcos André em Seg 27 Abr 2015, 21:28

    Não deu certo Assis. O Problema não está na variável pois quanto eu faço o registro ele funciona normalmente. Acredito q o problema esta nesta linha: Rs.FindFirst ("CodigoGeral = " & CodDoaNew)
    Pois o DAO não está conseguindo pesquisar esse valor (numero+texto) no registro para salvar a alteração

    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 2746
    Registrado : 06/11/2009

    Re: Mesclar dados dos campos TEXTO e NÚMERICO

    Mensagem  Assis em Seg 27 Abr 2015, 22:47

    Marcos
    Pode postar essa parte da sua BD.
    Aguardo


    .................................................................................
    *** Só sei que nada sei ***

    Marcos André
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 18
    Registrado : 24/09/2014

    Re: Mesclar dados dos campos TEXTO e NÚMERICO

    Mensagem  Marcos André em Ter 28 Abr 2015, 05:02

    Assis, não consegui diminuir o banco, aqui vai o completo:

    [Você precisa estar registrado e conectado para ver este link.]

    O form em questão é o Cadastro de doações. Ele registra dados nas tabelas Doações e doaçõesSub. E registra um dado paralelo na tabela LançamentosCaixa. O meu problema está na hora de alterar um registro na tabela lançamentoCaixa. Para criar um novo registro ele grava como esperado (intercalando o codigo e o texto) mas na hora de alterar ele parece não conseguir buscar o registro.

    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 2746
    Registrado : 06/11/2009

    Re: Mesclar dados dos campos TEXTO e NÚMERICO

    Mensagem  Assis em Ter 28 Abr 2015, 13:11

    Marcos

    Vai ter que colocar na tabela "Tbl_LancamentosCaixa" o dito "D" num campo novo.



    .................................................................................
    *** Só sei que nada sei ***

      Data/hora atual: Qua 07 Dez 2016, 20:14