MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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


2 participantes

    Mesclar dados dos campos TEXTO e NÚMERICO

    avatar
    Marcos André
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    Mesclar dados dos campos TEXTO e NÚMERICO Empty Mesclar dados dos campos TEXTO e NÚMERICO

    Mensagem  Marcos André 27/4/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
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    Mesclar dados dos campos TEXTO e NÚMERICO Empty Re: Mesclar dados dos campos TEXTO e NÚMERICO

    Mensagem  Assis 27/4/2015, 18:30

    Marcos

    Teste assim.

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



    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Marcos André
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    Mesclar dados dos campos TEXTO e NÚMERICO Empty Re: Mesclar dados dos campos TEXTO e NÚMERICO

    Mensagem  Marcos André 27/4/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
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    Mesclar dados dos campos TEXTO e NÚMERICO Empty Re: Mesclar dados dos campos TEXTO e NÚMERICO

    Mensagem  Assis 27/4/2015, 22:47

    Marcos
    Pode postar essa parte da sua BD.
    Aguardo


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Marcos André
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    Mesclar dados dos campos TEXTO e NÚMERICO Empty Re: Mesclar dados dos campos TEXTO e NÚMERICO

    Mensagem  Marcos André 28/4/2015, 05:02

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

    https://www.dropbox.com/s/b3vszxhtbmqjppt/PadSistem.accdb?dl=0

    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
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    Mesclar dados dos campos TEXTO e NÚMERICO Empty Re: Mesclar dados dos campos TEXTO e NÚMERICO

    Mensagem  Assis 28/4/2015, 13:11

    Marcos

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



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

    Conteúdo patrocinado


    Mesclar dados dos campos TEXTO e NÚMERICO Empty Re: Mesclar dados dos campos TEXTO e NÚMERICO

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 03:00