Bom Dia!!!
Sou novo na linguagem Access, mas ja venho me deparando com várias barreiras no que tange a formatação avançada.
Algum tempo venho pesquisando sobre como alinhar valores à direita numa caixa de listagem usando uma consulta.
Bem consegui alguma coisa, não é o ideal, mas ajuda bastante.
1º Vamos usar a fonte courier.
2º criei uma consulta, usando o SQL do Access 2010
3º apliquei a consulta em um formulário com uma caixa de listagem.
bem vai ai o codigo SQL Access 2010
SELECT space(2)+format(EBanco.NDia,"dd/mm") AS Movimento, EBanco.NDoc AS Documento, EBanco.NHist AS Histórico, IIf(EBanco.NCredito=0,Null,space(12-len(format(EBanco.NCredito,"#,##0.00")))+format(EBanco.NCredito,"#,##0.00")) AS Crédito, IIf(Ebanco.NDebito=0,Null,space(14-len(format(Ebanco.NDebito,"#,##0.00;(#,##0.00)")))+format(Ebanco.NDebito,"#,##0.00;(#,##0.00)")) AS Débito, IIf(EBanco.NSaldo>=0,space(12-len(format(EBanco.NSaldo,"#,##0.00")))+format(EBanco.NSaldo,"#,##0.00"),space(13-len(format(EBanco.NSaldo,"#,##0.00;(#,##0.00)")))+format(EBanco.NSaldo,"#,##0.00;(#,##0.00)")) AS Saldo, EBanco.NCod, EBanco.NConta
FROM (SELECT LT.Cod AS NCod, LT.NUMEROCONTA AS NConta, LT.NUMERODOC AS NDoc, LT.HISTORICO AS NHist, iif(LT.VALORDOC>0,lt.valordoc,0) AS NCredito, IIf(lt.valordoc<0,lt.valordoc,0) AS NDebito, format(DSUM("LANCAMENTOStmp.VALORDOC","LANCAMENTOStmp","COD<=" & [LT.COD]),"#,##0.00;(#,##0.00)") AS NSaldo, LT.BAIXADO AS NDia FROM LANCAMENTOStmp AS LT) AS EBanco;
Sou novo na linguagem Access, mas ja venho me deparando com várias barreiras no que tange a formatação avançada.
Algum tempo venho pesquisando sobre como alinhar valores à direita numa caixa de listagem usando uma consulta.
Bem consegui alguma coisa, não é o ideal, mas ajuda bastante.
1º Vamos usar a fonte courier.
2º criei uma consulta, usando o SQL do Access 2010
3º apliquei a consulta em um formulário com uma caixa de listagem.
bem vai ai o codigo SQL Access 2010
SELECT space(2)+format(EBanco.NDia,"dd/mm") AS Movimento, EBanco.NDoc AS Documento, EBanco.NHist AS Histórico, IIf(EBanco.NCredito=0,Null,space(12-len(format(EBanco.NCredito,"#,##0.00")))+format(EBanco.NCredito,"#,##0.00")) AS Crédito, IIf(Ebanco.NDebito=0,Null,space(14-len(format(Ebanco.NDebito,"#,##0.00;(#,##0.00)")))+format(Ebanco.NDebito,"#,##0.00;(#,##0.00)")) AS Débito, IIf(EBanco.NSaldo>=0,space(12-len(format(EBanco.NSaldo,"#,##0.00")))+format(EBanco.NSaldo,"#,##0.00"),space(13-len(format(EBanco.NSaldo,"#,##0.00;(#,##0.00)")))+format(EBanco.NSaldo,"#,##0.00;(#,##0.00)")) AS Saldo, EBanco.NCod, EBanco.NConta
FROM (SELECT LT.Cod AS NCod, LT.NUMEROCONTA AS NConta, LT.NUMERODOC AS NDoc, LT.HISTORICO AS NHist, iif(LT.VALORDOC>0,lt.valordoc,0) AS NCredito, IIf(lt.valordoc<0,lt.valordoc,0) AS NDebito, format(DSUM("LANCAMENTOStmp.VALORDOC","LANCAMENTOStmp","COD<=" & [LT.COD]),"#,##0.00;(#,##0.00)") AS NSaldo, LT.BAIXADO AS NDia FROM LANCAMENTOStmp AS LT) AS EBanco;