MaximoAccess

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

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 : 31
    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)

    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3047
    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 : 31
    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
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3047
    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 : 31
    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.
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3047
    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: Qui 14 Dez 2017, 04:24