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

    [Resolvido]preenchimento automático de um campo em relatório

    avatar
    FALMENDRA
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 14
    Registrado : 11/08/2012

    [Resolvido]preenchimento automático de um campo em relatório Empty preenchimento automático de um campo em relatório

    Mensagem  FALMENDRA 10/9/2013, 17:08

    Boa tarde...

    Já pesquiseoi neste fórum e não obtive resposta para a minha dúvida que é a seguinte: Tenho uma base de dados em que um dos campos (num dos Relatórios) devolve por extenso o valor de um outro campo. O que eu queria era que no campo "por extenso", depois do texto fosse preenchido automativcamente, por exemplo:

    o campo "por extenso" devolve o seguinte valor: cento e cinquenta euros

    eu queria que ele ficasse assim: cento e cinquenta euros --------------------------------------

    Tem como fazer isso?
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]preenchimento automático de um campo em relatório Empty Re: [Resolvido]preenchimento automático de um campo em relatório

    Mensagem  JPaulo 10/9/2013, 17:21

    Ola seja bem vindo ao forum;

    Sim tem como, agora diga-nos como está a fazer para converter em extenso.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]preenchimento automático de um campo em relatório Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]preenchimento automático de um campo em relatório Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]preenchimento automático de um campo em relatório Folder_announce_new Instruções SQL como utilizar...
    avatar
    FALMENDRA
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 14
    Registrado : 11/08/2012

    [Resolvido]preenchimento automático de um campo em relatório Empty Re: [Resolvido]preenchimento automático de um campo em relatório

    Mensagem  FALMENDRA 10/9/2013, 17:25

    com a seguinte formula: =EXTENSO95([A entregar])
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]preenchimento automático de um campo em relatório Empty Re: [Resolvido]preenchimento automático de um campo em relatório

    Mensagem  JPaulo 10/9/2013, 17:41

    Ok, mas assim não funfa;

    Diga-me a ultima coisinha, é caixa de texto ou memo, onde fica o extenso ?



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]preenchimento automático de um campo em relatório Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]preenchimento automático de um campo em relatório Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]preenchimento automático de um campo em relatório Folder_announce_new Instruções SQL como utilizar...
    avatar
    FALMENDRA
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 14
    Registrado : 11/08/2012

    [Resolvido]preenchimento automático de um campo em relatório Empty Re: [Resolvido]preenchimento automático de um campo em relatório

    Mensagem  FALMENDRA 10/9/2013, 17:43

    É caixa de texto...
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]preenchimento automático de um campo em relatório Empty Re: [Resolvido]preenchimento automático de um campo em relatório

    Mensagem  JPaulo 10/9/2013, 17:44

    A menos que não tenha influencia a dimensão;

    =EXTENSO95([A entregar]) & "-----------------------------------------"

    Se tiver influencia a dimensão, tem de ser por código.



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]preenchimento automático de um campo em relatório Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]preenchimento automático de um campo em relatório Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]preenchimento automático de um campo em relatório Folder_announce_new Instruções SQL como utilizar...
    avatar
    FALMENDRA
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 14
    Registrado : 11/08/2012

    [Resolvido]preenchimento automático de um campo em relatório Empty Re: [Resolvido]preenchimento automático de um campo em relatório

    Mensagem  FALMENDRA 10/9/2013, 17:56

    não funciona... Só me devolve os "-------------"

    Para utilizar a função Extenso95, tenho um módulo com o seguinte código... Não sei se isso terá alguma influencia:

    Function Extenso95(nValor)
    If IsNull(nValor) Or nValor <= 0 Or nValor > 9999999.99 Then
    Exit Function
    End If
    Dim nContador, nTamanho As Integer
    Dim cValor, cParte, cFinal As String
    ReDim aGrupo(4), aTexto(4) As String
    ReDim aUnid(19) As String
    aUnid(1) = "UM ": aUnid(2) = "DOIS ": aUnid(3) = "TRES "
    aUnid(4) = "QUATRO ": aUnid(5) = "CINCO ": aUnid(6) = "SEIS "
    aUnid(7) = "SETE ": aUnid(Cool = "OITO ": aUnid(9) = "NOVE "
    aUnid(10) = "DEZ ": aUnid(11) = "ONZE ": aUnid(12) = "DOZE "
    aUnid(13) = "TREZE ": aUnid(14) = "QUATORZE ": aUnid(15) = "QUINZE "
    aUnid(16) = "DEZESSEIS ": aUnid(17) = "DEZESSETE ": aUnid(18) = "DEZOITO "
    aUnid(19) = "DEZANOVE "
    ReDim aDezena(9) As String
    aDezena(1) = "DEZ ": aDezena(2) = "VINTE ": aDezena(3) = "TRINTA "
    aDezena(4) = "QUARENTA ": aDezena(5) = "CINQUENTA "
    aDezena(6) = "SESSENTA ": aDezena(7) = "SETENTA ": aDezena(Cool = "OITENTA "
    aDezena(9) = "NOVENTA "
    ReDim aCentena(9) As String
    aCentena(1) = "CENTO ": aCentena(2) = "DUZENTOS "
    aCentena(3) = "TREZENTOS ": aCentena(4) = "QUATROCENTOS "
    aCentena(5) = "QUINHENTOS ": aCentena(6) = "SEISCENTOS "
    aCentena(7) = "SETECENTOS ": aCentena(Cool = "OITOCENTOS "
    aCentena(9) = "NOVECENTOS "
    cValor = Format$(nValor, "0000000000.00")
    aGrupo(1) = Mid$(cValor, 2, 3)
    aGrupo(2) = Mid$(cValor, 5, 3)
    aGrupo(3) = Mid$(cValor, 8, 3)
    aGrupo(4) = "0" + Mid$(cValor, 12, 2)
    For nContador = 1 To 4
    cParte = aGrupo(nContador)
    nTamanho = Switch(Val(cParte) < 10, 1, Val(cParte) < 100, 2, Val(cParte) < 1000, 3)
    If nTamanho = 3 Then
    If Right$(cParte, 2) <> "00" Then
    aTexto(nContador) = aTexto(nContador) + aCentena(Left(cParte, 1)) + "E "
    nTamanho = 2
    Else
    aTexto(nContador) = aTexto(nContador) + IIf(Left$(cParte, 1) = "1", "CEM ", aCentena(Left(cParte, 1)))
    End If
    End If
    If nTamanho = 2 Then
    If Val(Right(cParte, 2)) < 20 Then
    aTexto(nContador) = aTexto(nContador) + aUnid(Right(cParte, 2))
    Else
    aTexto(nContador) = aTexto(nContador) + aDezena(Mid(cParte, 2, 1))
    If Right$(cParte, 1) <> "0" Then
    aTexto(nContador) = aTexto(nContador) + "E "
    nTamanho = 1
    End If
    End If
    End If
    If nTamanho = 1 Then
    aTexto(nContador) = aTexto(nContador) + aUnid(Right(cParte, 1))
    End If
    Next
    If Val(aGrupo(1) + aGrupo(2) + aGrupo(3)) = 0 And Val(aGrupo(4)) <> 0 Then
    cFinal = aTexto(4) + IIf(Val(aGrupo(4)) = 1, "CÊNTIMO", "CÊNTIMOS")
    Else
    cFinal = ""
    cFinal = cFinal + IIf(Val(aGrupo(1)) <> 0, aTexto(1) + IIf(Val(aGrupo(1)) > 1, IIf(aGrupo(2) Mod 100 = 0, "MILHÕES ", "MILHÕES, "), IIf(aGrupo(2) Mod 100 = 0, "MILHÃO E ", IIf(aGrupo(2) = 0 And aGrupo(3) = 0, "MILHÃO ", "MILHÃO, "))), "")
    If Val(aGrupo(2) + aGrupo(3)) = 0 Then
    cFinal = cFinal + "DE "
    Else
    If Val(aGrupo(3)) = 0 Then
    cFinal = cFinal + IIf(Val(aGrupo(2)) <> 0, aTexto(2) + "MIL ", "")
    Else
    cFinal = cFinal + IIf(Val(aGrupo(3)) Mod 100 = 0 And aGrupo(4) = 0, IIf(Val(aGrupo(2)) <> 0, aTexto(2) + "MIL E ", ""), IIf(Val(aGrupo(2)) <> 0, aTexto(2) + "MIL, ", ""))
    End If
    End If
    cFinal = cFinal + aTexto(3) + IIf(Val(aGrupo(1) + aGrupo(2) + aGrupo(3)) = 1, "EURO ", "EUROS ")
    cFinal = cFinal + IIf(Val(aGrupo(4)) <> 0, "E " + aTexto(4) + IIf(Val(aGrupo(4)) = 1, "CÊNTIMO", "CÊNTIMOS"), "")
    End If
    Extenso95 = cFinal
    End Function
    avatar
    FALMENDRA
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 14
    Registrado : 11/08/2012

    [Resolvido]preenchimento automático de um campo em relatório Empty Re: [Resolvido]preenchimento automático de um campo em relatório

    Mensagem  FALMENDRA 10/9/2013, 17:58

    Amigo... já funciunou, obrigado pela ajuda.... Tinha copiado mal... rsrsrs
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]preenchimento automático de um campo em relatório Empty Re: [Resolvido]preenchimento automático de um campo em relatório

    Mensagem  JPaulo 10/9/2013, 17:59

    Opa valew.



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]preenchimento automático de um campo em relatório Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]preenchimento automático de um campo em relatório Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]preenchimento automático de um campo em relatório Folder_announce_new Instruções SQL como utilizar...

    Conteúdo patrocinado


    [Resolvido]preenchimento automático de um campo em relatório Empty Re: [Resolvido]preenchimento automático de um campo em relatório

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 03:03