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

    Funções esquecidas no Ms Access

    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

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

    Funções esquecidas no Ms Access Empty Funções esquecidas no Ms Access

    Mensagem  JPaulo 24/6/2010, 16:36

    Função Switch

    Defenir resultados em texto referentes a cada ID da tabela.

    Mesmo que a ordem não seja colocada em ascendente, a função Switch
    encarrega-se disso...


    VBA

    Dim Result as String
    Result = Switch (ID=6, "Amarelo", ID=9, "Rosa", ID=4, "Azul")

    Num campo vazio da sua consulta:

    Exemplo: Switch([ID]=6;"Amarelo";[ID]=9;"Rosa";[ID]=4;"Azul")

    ***************************************************************************************

    Função Fix

    Tendo um campo com o resultado 34.68, 66.92
    a função Fix coloca o campo desta forma:

    34
    66

    Num campo vazio da sua consulta:

    Resultado: Fix([SeuCampo])

    ****************************************************************************************

    Função StrConv

    Como colocar o conteudo de um campo em:

    *Maiusculas =1
    *Minusculas =2
    ou
    *Primeira Letra em Maiusculas =3

    Num campo vazio da consulta:

    Resultado: StrConv([SeuCampo];3)

    ****************************************************************************************

    Função Space

    Esta função adiciona espaços a um texto ou numero

    Space(20) adicione 20 espaços em vazio, pode ser util.

    Num campo vazio da consulta:

    Resultado: [SeuCampo] & Space(20)

    *****************************************************************************************

    Função WeekDay e WeekDayName

    Resultado individual:

    WeekDay devolve o numero do dia e o WeekDayName devolve o nome do dia:

    Weekday(Date()) = 1,2,3,4,5,6,7

    Se juntar o WeekDayName ao resultado anterior, obtem o nome do dia:

    WeekdayName(Weekday(Date())) = doming, segunda-feira, terça-feira, quarta-feira, quinta-feira, sexta-feita, sábado

    Num campo vazio da consulta:

    Dia: WeekdayName(Weekday(Date()))

    O mesmo acontece para o mês usando o Month e o MonthName.

    *****************************************************************************************


    .................................................................................
    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

    Funções esquecidas no Ms Access Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Funções esquecidas no Ms Access Folder_announce_new 102 Códigos VBA Gratuitos...
    Funções esquecidas no Ms Access Folder_announce_new Instruções SQL como utilizar...

      Data/hora atual: 16/6/2021, 21:20