Funções Access

7/18/2019 Funções Access

http://slidepdf.com/reader/full/funcoes-access 1/8

Dia da semana excel

=SE(DIA.DA.SEMANA(D5)=1;"Domingo";SE(DIA.DA.SEMANA(D5)=2;"Segunda-ei!a";SE(DIA.DA.SEMANA(D5)=;"#e!$a-ei!a";SE(DIA.DA.SEMANA(D5)=%;"&ua!'a-ei!a";SE(DIA.DA.SEMANA(D5)=5;"&uin'a-ei!a";SE(DIA.DA.SEMANA(D5)=;"Sex'a-ei!a";SE(DIA.DA.SEMANA(D5)=;"S*+ado";"")))))))

,ESNA/I0A MA AA DE S#A#S N 3M

Um sistema que interage com o usuário, além de ser mais fácil de trabalhar é mais charmoso e eficaz. Por isso,é interessante colocarmos uma barra de status simulada nos formulários principais do nosso sistema ou emtodos. Para realizar esta tarefa faça o seguinte:

1. crie na parte inferior do formulário uma caixa de texto e mude as seguintes caractersticas:

- Fundo: transparenrte- Ativado: não-Bloqueado: sim-Nome: Status

Agora é só escrever o código no evento "ao mover o mouse" de cada objeto no ormul!rio:

on error resume net

S#A#$S% "&escri'ão que voc( deseja para o objeto"

)ara que ao se mover entre um controle e outro a barra de status ique va*ia digite no evento "ao mover o mouse" da barra"detal+e" do ormul!rio:

S#A#$S,aption % ""

Se preerir. baie o eemplo desta dica: BarraStatus,

MDA 34 D S ,AA 3M #E4/AND EN#E !importada da seç"o formulários#

$om esta dica %oc& pode implantar em seus sistemas uma opç"o, que, quando o usuário esti%er no 'ltimocampo do subformulário, teclar (nter, o cursor %olta para um campo do formulário principal.

)ub $ampo*+ePress !+eascii -s nteger#f +eascii / 10 hen2orms3formulario3campo.)et2ocus(nd f(nd )ub

4/4/ 4M 6AS!importada da seç"o m4dulos#

Um campo data pode ser subtrado de outro, resultando uma fraç"o do dia.(nt"o: 510:665 7 518:95 / 1.691;;;;;;;;;;;(768$omo é uma fraç"o do dia, multiplique por 89 h e por ;6 minutos < 89 = ;6 = 1.691;;;;;;;;;;;(768 /19.>>>>>>>>>>>>> !admita 1 minutos#)e o resultado for menor que 89 horas, isto é, menor que 1: < format!1.691;;;;;;;;;;;(768, ?short time?# /

66:1( se for maior que 89 horas, isto é, maior que 1, a quantidade de: dias / nt!diferença# horas / 89 =!diferença 7 dias# minutos / !horas 7 int!horas## = ;6

http://www.mundoaccess.hpg.com.br/arquivos/barrastatus.zip





3N78 S6AE9AE!importada da seç"o m4dulos#

Para estabelecer um perodo de teste para a sua aplicaç"o cole esta funç"o em um m4dulo e no e%ento -o -brirdo seu formulário inicial chame a funç"o. (ntre com a data atual no formato 5dd@mm@aa5 e o n'mero diaspara teste.

Public 2unction )A-B(C-B(!Data-tual -s )tring, nDias -s Eong#Dim AoFe -s Date, nGalor -s EongAoFe / 2ormat!HoI, ?dd,mm,?# nGalor / DateDiff!?d?, Data-tual, AoFe#f -bs!nGalor# J nDias henDo$md.KeepLsgKox ?M prazo de teste expirou.? N $hr!10# O $hr!16# * N ?M aplicati%o n"o será carregado?, %b$ritical,?-(HQM?Do$md.Ruit acRuit)a%eHone(nd f(nd 2unction

D/:,!importada da seç"o m4dulos#

-dicione ap4strofe antes e depois de cada string:

Pri%ate )ub $odestLaeab*-fterUpdate!#2orms32ormLae3DescestLaeab / DEooSup!?TDescab?, ?abest?, * ?T$odab/ V? N 2orms32ormLae3$odestLaeab N ?V?#(nd )ub

EI3I4A 4A#8 DE 4<DI# !61@18@8666#

Dim $ounter -s nteger, mpnt -s ntegerDim -nsIer -s nteger$ounter / 1mpnt / 6Chile $ounter W/ Een!$$Humber#

f s(%en!Een!$$Humber## henmpnt / Gal!LidX!$$Humber, $ounter, 1##f Hot s(%en!$ounter# henmpnt / mpnt = 8f mpnt J > henmpnt / mpnt 7 >(nd f-nsIer / -nsIer O mpntVDebug.Print $ounter, mpnt, -nsIer$ounter / $ounter O 1(lsempnt / Gal!LidX!$$Humber, $ounter, 1##f s(%en!$ounter# henmpnt / mpnt = 8f mpnt J > henmpnt / mpnt 7 >(nd f

-nsIer / -nsIer O mpntVDebug.Print $ounter, mpnt, -nsIer$ounter / $ounter O 1(nd fCend -nsIer / -nsIer Lod 16f -nsIer / 6 hen$hecS$ard / rue(nd 2unction

,EEN46E 4AM, 4M 0ES ES&EDA!61@18@8666#

Public 2unction )trYero!nHumero -s Gariant, n$asas -s nteger#)trYero / Bight!?666666666666? O Erim!nHumero#, n$asas#(nd 2unction



EI3I4A NS E>IS#S N 3M/I!61@18@8666#

)ub Ho%oBegistroLarcar!2BL -s 2orm#Dim HMGMB(Z)BM -s ntegerHMGMB(Z)BM / 2BL.HeIBecordf HMGMB(Z)BM / rue hen

LsgKox ?Goc& está em um no%o registro.? *N ?[Goc& deseFa adicionar um no%o registro<? *N ?[)e n"o, mo%a para um registro existente.?(nd f(nd )ub

E?,IA #EM, DE S!61@18@8666#

1 7 $rie uma tabela com os seguintes campos:

Home ipo de Dados$4digo H'mero !$ha%e primária#Data(xp Data

8 7 )al%e a tabela com o nome de Data(xpirar\

0 7 Ho formulário que %oc& tem como o primeiro a ser aberto Funto com o banco de dados, no e%ento -o -brirdo formulário, coloque a seguinte rotina:

Dim db -s D--K-)(, t1 -s Becordset)et db / $urrentDb)et t1 / db.MpenBecordset!?Data(xpirar?, dbMpenDnaset#f t1.KM2 / rue hent1.-ddHeIt13T$4digo / 1t13TData(xp / Date O 06 V(sta linha soma a data atual mais 06 diast1.Update(lse

f t13TData(xpKeepLsgKox ?M prazo de utilizaç"o deste aplicati%o se esgotou3?, %b$ritical -pplication.Ruit acPrompt(nd f(nd ft1.$lose

9 7 (stá pronto. Ruando o formulário de abertura inicializar, irá %erificar se há alguma data cadastrada, casoisso Fá tenha ocorrido, a rotina irá %erificar se Fá expirou a data.

SE/E4INA E>IS#S A/EA#IS 7 b upsilo!61@18@8666#

)upondo que %c tenha uma tabela chamada $lientes e um campo chamado $od$liente !numérico#. 1 7 $rie umm4dulo para a funç"o abaixo: 2unction Bandom!# -s nteger )tatic st2im -s nteger f st2im / 2alse henBandomize: st2im / rue Bandom / 6 (nd 2unction 8 7 $rie uma no%a consulta, n"o inclua nenhuma tabela e%á para o modo )RE. 0 7 Digite a express"o abaixo: )(E($ MP = 2BML $lientes CA(B( !!!Bandom!##/6##MBD(B K] Bnd!sHull!$lientes.$od$liente#=6O1#\ Ho exemplo acima ser"o selecionados clientes aleat4rios,para aumentar ou diminuir basta trocar pelo n'mero que %c deseFa. 16@11@8666 7 $MLP-$-B ( B(P-B-B KD!Fr 7 forum access# a# abra o CindoIs (xplorer e clique no menu (xibir 7 Mpç^es\ b# selecione a guia ipos dearqui%os\ c# localize o item ?Kanco de dados do Licrosoft -ccess? e clique no bot"o (ditar\ d# abaixo da caixade aç^es, clique no bot"o Ho%o\ e# Digite Beparar e $ompactar no campo Home da -ç"o !n"o utilize o sinal N#\f# na caixa ?-plicati%o usado para executar a aç"o?, digite: ?$:_-rqui%os de Programas_LicrosoftMffice_Mffice_msaccess.exe? ?`1? @repair @compact -ssim, na Fanela CindoIs (xplorer, basta clicar com o bot"odireito do mouse sobre o arqui%o mdb e escolher o item Beparar e $ompactar do menu.

>EA EN4IMEN#S DE A4D 4M IN#EA/ DE3INID ,E/SI 7 Grus 7 24rum -ccess

!61@18@8666#

Pri%ate )ub cmdProcessa*$licS!#Mn (rror Zoo (rr*cmdProcessa



Dim dbs -s Database, rs2atura -s Becordset, i -s nteger, intDia -s nteger)et dbs / $urrentDb!#)et rs2atura / dbs.MpenBecordset!?-B($(K(B?#intDia / Le.D*-DD Vcampo que o usuário irá digitar o numero de dias para inter%alo de %encimentosCith rs2atura2or i / 1 o 16 V16 é o n'mero de parcelas que %c irá gerar de%e %ir de uma %ariá%el ou de algum campo que %cpossue que informe este %alor.-ddHeI 3TD$E / 1 V1 é o c4digo do cliente que de%e %ir do campo apropriado

3 TG$M / Date-dd!?D?, intDia, Date#Vdate é o campo do dia do seu pedido ou fatura que será utilizado paraacrescer aos dias de prazo3TDPE / ?180? N ?@? N i V?180 ? é o n'mero do pedido seu3T2-UB- / ?180?3TGEB / 166 @16 V166 é o %alor de seu pedido di%idido por 16 que é o campo que contem o prazo depagamento 1,8,0,9, ou 16 ou oiutra coisa qquer.Update intDia / intDia O Le.D*-DDVadiciono no%amente o n'mero de dias na %aria%elHext i.$lose(nd Cith)et dbs / Hothing(xit*(rro:(xit )ub

IM,EDI 3E46AMEN# SAND@ 4#/A/#DE/

!61@18@8666#

cole o c4digo abaixo em um no%o modulo e no e%ento ao carregar do seu formulário inicial coloque: $allDesati%a$trl-ltDel Public Declare 2unction Zet$urrentProcessd * Eib ?Sernel08? !# -s Eong Public Declare2unction Zet$urrentProcess * Eib ?Sernel08? !# -s Eong Public Declare 2unction Begister)er%iceProcess * Eib?Sernel08? !KGal dIProcessD -s Eong, * KGal dIpe -s Eong# -s Eong Public $onst B)P*)LPE(*)(BG$(/ 1 Public $onst B)P*UHB(Z)(B*)(BG$( / 6 Public )ub Desati%a$trl-ltDel!# Dim pid -s Eong, reser% -sEong pid / Zet$urrentProcessd!# reser% / Begister)er%iceProcess!pid, B)P*)LPE(*)(BG$(# (nd )ub6>@11@66 7

,E>A SENME EM NME DE ,ESSA!61@18@8666#

2unction -cha)obrenome!strHome -s )tring# -s )tringDim i -s nteger, strEetra -s )tring

f Hot sHull!strHome# hen V$omeça o Eoop no fim e %em para o inicio da string2or i / Een!strHome# o 1 )tep 71 Vpega um caracter de cada %ezstrEetra / Lid!strHome, i, 1# Vse for espaço, sai do loopf strEetra / $hrX!08# hen(xit 2or Hext i Vpega do fim até o primeiro espaço-cha)obrenome / Bight!strHome, Een!strHome# 7 i#(nd f(nd 2unction

4N3IMA DA#A D SIS#EMA 4M ,78 ,AA A/#EA-/A!6@16@8666#

Dim D--HMG- -s Gariantf LsgKox!?Data do sistema: ? N 2ormat!Date, ?dddddd?# N $hr!16# N $hr!10# N ?DeseFa -lterar<?, 0;,?Data-tual?# / ; hen

D--HMG- / nputKox!?Digite a no%a data no formato dd@mm@aaaa ou pressione (nter para mant&7la?#f sDate!D--HMG-# henDate / D--HMG-(nd f(nd f

INI4IA MI4S3# A44ESS 4M ,7BES DE /IN6A DE 4MAND A,A#I D MEN INI4IA D 9IND9S

1 $lique no bot"o niciar do CindoIs, aponte para $onfiguraç^es e, em seguida, clique em Karra de arefas.8 $lique na guia Programas do Lenu niciar e, em seguida, clique em -%ançado.0 $lique duas %ezes na pasta Programas.9 $lique duas %ezes na pasta Licrosoft Mffice !ou no nome da subpasta Programas onde o Licrosoft -ccess estáinstalado#. )e o Licrosoft -ccess n"o esti%er instalado em uma subpasta do menu niciar, %oc& pode pular essa

etapa. $lique com o bot"o direito do mouse no cone de atalho do programa Licrosoft -ccess, clique emPropriedades e, em seguida, clique na guia -talho.



; $lique direita do comando de inicializaç"o do Licrosoft -ccess na caixa -l%o e depois digite as opçês delinha de comando deseFadas. Por exemplo, a linha de comando a seguir inicia o Licrosoft -ccess e abre o bancode dados de exemplo HorthIind para acesso exclusi%o.?$:_-rqui%os de Programas_Licrosoft Mffice_Mffice_L)-ccess.exe??$:_-rqui%os de Programa_Licrosoft Mffice_Mffice_(xemplos_HorthIind.mdb? @excl

Inicia! o Mic!oso' Access com oC$es de lina de comando u'iliFando um

a'alo

1 -bra a pasta onde o Licrosoft -ccess está instalado !essa pasta costuma ser denominada Mffice na subpastaLicro7soft Mffice da pasta -rqui%os de Programas em sua unidade $#.8 $lique com o bot"o direito do mouse no cone do programa Licrosoft -ccess e, em seguida, clique em $riar-talho.0 $lique com o bot"o direito do mouse no cone de atalho recém7criado, clique em Propriedades e depois cliquena guia -talho.9 $lique direita do comando de inicializaç"o do Licrosoft -ccess na caixa -l%o e, em seguida, digite as opçêsde linha de comando deseFadas. Por exemplo, a linha de comando a seguir inicia o Licrosoft -ccess, abre obanco de dados de exemplo HorthIind para acesso exclusi%o. ?$:_-rqui%os de Programas_LicrosoftMffice_Mffice_L)-ccess.exe??$:_-rqui%os de Programas_Licrosoft Mffice_Mffice_(xemplos_HorthIind.mdb? @excl

deseFa compactar e clique em $ompactar. 9 Ha caixa de diálogo $ompactar Kanco de Dados (m, especifique umnome, unidade e pasta para o banco de dados compactado. $lique em )al%ar. )e %oc& utilizar o mesmonome, unidade e pasta e o banco de dados for compactado com &xito, o Licrosoft -ccess subs7tituirá o arqui%o

original pela %ers"o compactada. Mbser%açês )e %oc& excluir registros do final de uma tabela

Fa'a sua busca

• Assine

• E-mail

• SAC

• Canais

que tem um campo -utoHumeraç"o, quando compactar o banco de dados, o Licrosoft -ccess redefinirá o %alor-utoHumeraç"o para o pr4ximo registro adicionado com um %alor de um a mais que o 'ltimo %alor-utoHumeraç"o n"o excludo. $ompactar um banco de dados de uma %ers"o anterior do Licrosoft -ccess n"oo con%erterá ao formato do Licrosoft -ccess >. )oluç"o de problemas de compactaç"o de bancos de dados Umbanco de dados pode n"o ser compactado por qualquer das razês a seguir: H"o há espaço dearmazenamento suficiente em seu disco rgido para ambas as %ersês, original e compactada, do banco dedados. (xclua arqui%os desnecessários e tente no%amente. Goc& n"o tem permiss"o Lodificar (strutura ou

-dministrador para todas as tabelas do banco de dados. )e %oc& n"o é proprietário desse banco de dados,contacte o proprietário para descobrir se %oc& pode obter uma dessas permissês em todas as tabelas. )e %oc&é proprietário desse banco de dados, de%e atualizar suas permissês para todas as tabelas. )e um obFeto emum banco de dados da %ers"o 1.x incluir o caractere ap4strofo !# em seu nome, %oc& n"o poderá compactar obanco de dados. Use o Licrosoft -ccess %ers"o 1.x para renomear o obFeto e, em seguida, altere todas asrefer&ncias a ele em suas consultas, formulários, relat4rios, macros e c4digo.

inculando 'a+elas de um +anco de dados C!o'egido Co! sena

Para %incular uma tabela de um banco de dados do Licrosoft -ccess protegido por senha, %oc& precisa fornecera senha correta. )e %oc& fornecer a senha correta, o Licrosoft -ccess armazenará a senha do banco de dados Funtamente com as informaçês que definem o %nculo com a tabela. Depois de definido o %nculo, qualquerusuário que puder abrir o banco de dados ao qual a tabela está %inculada será capaz de abrir a tabela%inculada. Ruando um usuário abrir a tabela %incula7da, o Licrosoft -ccess utilizará a senha armazenada paraabrir o banco de dados onde está a tabela. )e a senha para o banco de dados onde a tabela está armazenada

for alterada, na pr4xima %ez em que a tabela %inculada for aberta, a no%a senha de%erá ser fornecida para queo Licrosoft -ccess possa abr7la. M Licrosoft -ccess armazena a senha do banco de dados em um formulárion"o7criptografado. )e esse procedimento for comprometer a segurança do banco de dados protegido por senha,

http://www.ig.com.br/acesso/


http://portal.ig.com.br/acesso_email.html


https://cadastro.ig.com.br/atendimento/index.jsp


http://www.ig.com.br/indice/

http://www.brturbo.com.br/

http://www.ibest.com.br/

http://www.ig.com.br/




http://www.ig.com.br/indice/



%oc& n"o de%e utilizar uma senha de banco de dados para proteg&7lo. (m %ez disso, defina segurança em n%elde usuário para controlar o acesso aos dados confidenciais desse banco de dados.

'imiFa! o desemCeno

Dependendo da configuraç"o do seu computador e do seu ambiente de trabalho, há %árias coisas que %oc&pode fazer para melhorar o desempenho do Licrosoft -ccess ou do seu banco de dados. M melhor lugar para secomeçar é com o -nalisador de Desempenho. Goc& pode utilizar o -nalisador de Desempenho para analisar umbanco de dados inteiro ou apenas obFetos selecionados de um banco de dados. M -nalisador de Desem7penhopode, também, propor algumas alteraçês para %oc&, se deseFar.

4on'!ola! como um +anco de dados ou um aClica'iGo se aC!esen'a e secomCo!'a Huando iniciado

Goc& pode especificar, por exemplo, qual formulário será exibido, se as barras de ferramentas poder"o serpersonalizadas e se os menus de atalho estar"o dispon%eis.1 Ho menu 2erramentas, clique em nicializar.8 )elecione as opçês ou insira as definiçês que deseFa utilizar.Mbser%açês Para obter informaçês sobre um item especfico na caixa de diálogo, clique no ponto deinterrogaç"o na parte superior da caixa de diálogo e, em seguida, no pr4prio item. Para obter uma lista das

questês que de%em ser consideradas ao definir opçês na caixa de diálogo nicializar.

4onside!a$es ao deini! oC$es na caixa de di*logo InicialiFa!

-s opçês de nicializaç"o aplicam7se somente ao banco de dados ou aplicati%o atual. -o especificar uma definiç"o na caixa de diálogo nicializar, %oc& define automaticamente a propriedade dobanco de dados associada a essa definiç"o. -s propriedades de nicializaç"o n"o ignoram as definiçês de propriedades para uma barra de ferramentas,uma barra de menu, um menu de atalho, um formulário ou um relat4rio especfico. Por exemplo, as opçêsKarra de Lenu e Karra de Lenu de -talhos na caixa de diálogo nicializar n"o substituem as definiçês depropriedades para formulários ou relat4rios especficos que t&m uma barra de menu ou um menu de atalho .personalizado. -ssim, quando %oc& abre um formulário ou relat4rio, o Licrosoft -ccess exibe a barra de menupersonalizada anexada ao formulário ou relat4rio, em %ez da barra de menu global especificada na caixa dediálogo nicializar. Goc& pode utilizar a caixa de diálogo nicializar em %ez de uma macro -uto(xec ou em acréscimo a ela. Uma

macro -uto(xec é executada depois de as opçês de nicializaç"o terem efeito\ por essa raz"o, con%ém e%itarquaisquer açês em uma macro -uto(xec que alterem o efeito das definiçês da opç"o nicializaç"o. Porexemplo, se %oc& especificar um formulário na caixa (xibir 2ormulário na caixa de diálogo nicializar e utilizar,também, a aç"o -brir2ormulário em uma macro -uto(xec, o Licrosoft -ccess exibirá primeiramente oformulário especificado na caixa de diálogo nicializar e, a seguir, exibirá imediatamente o formulárioespecificado na aç"o -brir2ormulário. )e a segurança em n%el de usuário ti%er sido definida para o seu banco de dados, %oc& pode impedir que osusuários alterem as definiçês da caixa de diálogo nicializar, certificando7se de que n"o tenham recebido apermiss"o de -dminis7trador para o banco de dados. Para ignorar as definiçês da opç"o nicializaç"o, pressione a tecla Kpass !)A2# ao abrir o banco de dados.

Exi+i! um o!mul*!io de inicialiFa$Jo Huando um +anco de dados ou umaClica'iGo a+e!'o

1 Ho menu 2erramentas, clique em nicializar.8 Ha caixa (xibir 2ormulário, clique em um formulário do banco de dados atual.0 )e %oc& n"o deseFa que os usuários consultem ou utilizem a Fanela Kanco de Dados, que aparece atrás doformulário, limpe a caixa de seleç"o (xibir anela Kanco de Dados. Lesmo que %oc& limpe a caixa de seleç"o(xibir anela Kanco de Dados, essa Fanela ainda poderá ser acessada.Mbser%açês -s alteraçês dessas definiçês na caixa de diálogo nicializar n"o ter"o efeito até que o banco de dados ou oaplica7ti%o seFa no%amente aberto. M banco de dados de exemplo HorthIind possui um formulário de inicializaç"o. (le possui também oformulário Lenu de $ontrole Principal, um exemplo de um formulário que %oc& pode utilizar para controlar ana%egaç"o em seu banco de dados. Para exibir esses formulários, abra o banco de dados HorthIind na pasta(xemplos. M formulário nicializaç"o aparece automaticamente quando %oc& abre o HorthIind, mas é poss%elexibi7lo ou o formulário Lenu de $ontrole Princi7pal, sempre que deseFar, clicando na guia 2ormulários na FanelaKanco de Dados, clicando em nicializaç"o ou Lenu de $ontrole Principal e, a seguir, clicando em -brir.

Algumas 'eclas de a'alo



28 -lterna entre o modo editar e selecionar2; -lterna entre estrutura da tabela e folha de propriedades da estrutura da tabela2 -ti%a o %erificador ortográfico nos formulários simples2> -tualiza a origem de dados atual211 ou -EO21 raz a Fanela Kanco de Dados para a frente$BEOZ 2az aparecer a Fanela Depurar$BEO211 -lterna entre a barra de menu personalizada e a barra de menu interna

$BEOKB(-+ Pára de executar o c4digo e exibe o m4dulo atual na Fanela L4duloP-Z(7UP Begistro anteriorP-Z(7DMCH Pr4ximo registro

Exi+i! um 'K'ulo esCecKico na +a!!a de 'K'ulo da Lanela do aClica'iGo

1 Ho menu 2erramentas, clique em nicializar.8 Ha caixa tulo do -plicati%o, insira o ttulo que %oc& deseFa que apareça na barra de ttulo da Fanela doaplicati%o. Mbser%açês -s alteraçês na definiç"o tulo do -plicati%o t&m efeito imediatamente ap4s o fechamento da caixa dediálogo nicializar.Para obter uma lista das questês que de%em ser consideradas ao definir opçês na caixa de diálogo nicializar.

#ela inicial do C!og!ama (S,/AS6)1. $rie uma imagem, !por exemplo: pode capturar a tela de splash do pr4prio -ccess e modificá7la num editorde imagens como o Paint Krush#8. )al%e a imagem com o mesmo nome do programa, isto é, se o seu programa se chama ()(.LDK, sal%ecom o nome ()(.KLP e na mesma pasta do LDK.

Desa+ili'a! ,age C e ,age Don!6@11@8666#

Pri%ate )ub 2orm*+eDoIn!+e$ode -s nteger, )hift -s nteger#V00 7 PgUp\ 09 7 PgDoIn\ > 7 ab\ 1/-lt)elect $ase +e$ode$ase 00, 09, >, 1 +e$ode / 6$ase (lse VDebug.Print +e$ode, )hift(nd )elect(nd )ub

,!imei!o i'em da 4x. de com+ina$Jo como Galo! Cad!Jo

Digite no e%ento ?ao carregar? do formulário:

Pri%ate )ub 2orm*Eoad!#

Le.cbo$liente / cbo$liente.temData!6#

(nd )ub

MD/

uma coleç"o de declaraçês e procedimentos do Gisual Kasic para aplicati%os armazenados em conFunto,formando uma unidade.

(xistem dois tipos básicos de m4dulos: m4dulos classe e m4dulos padr"o.$ada procedimento em um m4dulo pode ser um procedimento 2unction ou um procedimento )ub.

L4dulos $lasse 7 L4dulos de formulário e de relat4rio s"o m4dulos classe que est"o associados a umdeterminado formulário ou relat4rio. Ms m4dulos de formulário e relat4rio freqentemente cont&mprocedimentos de e%ento que s"o executados em resposta a um e%ento no formulário ou relat4rio. Goc& podeutilizar procedimentos de e%ento para controlar o comportamento dos seus formulários e relat4rios, e suaresposta s açês do usuário, como clicar o mouse sobre um bot"o de comando. Ruando %oc& cria o primeiroprocedimento de e%ento para um formulário ou relat4rio, o Licrosoft -ccess cria automaticamente um m4dulo

de formulário ou relat4rio associado.



Ms procedimentos nos seus m4dulos de formulário e relat4rio podem chamar procedimentos que %oc& tenhaadicionado aos m4dulos padr"o. Ho Licrosoft -ccess >, os m4dulos classe s4 existem em associaç"o com umformulário ou relat4rio. Ho Licrosoft -ccess >, m4dulos classe também podem existir independentemente deum formulário ou relat4rio e esse tipo de m4dulo classe está listado na guia L4dulos da Fanela Kanco de Dados.Goc& pode utilizar um m4dulo classe da guia L4dulos para criar uma definiç"o para um obFeto personalizado.

L4dulos Padr"o 7 Ms m4dulos padr"o cont&m procedimentos de uso geral que n"o est"o associados a nenhumoutro obFeto e procedimentos utilizados com freq&ncia, que podem ser executados a partir de qualquer lugardo seu banco de dados.

Goc& pode %isualizar a lista de m4dulos padr"o no seu banco de dados clicando na guia L4dulos na FanelaKanco de Dados. Ms m4dulos padr"o, de formulário e de relat4rio também est"o listados no Pesquisador deMbFeto.

4*lculo com o!as

Um campo data pode ser subtrado de outro, resultando uma fraç"o do dia.(nt"o: 510:665 7 518:95 / 1.691;;;;;;;;;;;(768$omo é uma fraç"o do dia, multiplique por 89 h e por ;6 minutos < 89 = ;6 = 1.691;;;;;;;;;;;(768 /19.>>>>>>>>>>>>> !admita 1 minutos#)e o resultado for menor que 89 horas, isto é, menor que 1: < format!1.691;;;;;;;;;;;(768, ?short time?# /66:1

( se for maior que 89 horas, isto é, maior que 1, a quantidade de: dias / nt!diferença# horas / 89 =!diferença 7 dias# minutos / !horas 7 int!horas## = ;6

,a!a es'a+elece! um Ce!Kodo de 'es'e Ca!a a sua aClica$Jo cole es'a un$Joem um mOdulo e no eGen'o Ao A+!i! do seu o!mul*!io inicial came aun$Jo. En'!e com a da'a a'ual no o!ma'o PddQmmQaaP e o nRme!o diasCa!a 'es'e.

Public 2unction )A-B(C-B(!Data-tual -s )tring, nDias -s Eong#Dim AoFe -s Date, nGalor -s EongAoFe / 2ormat!HoI, ?dd,mm,?# nGalor / DateDiff!?d?, Data-tual, AoFe#f -bs!nGalor# J nDias henDo$md.KeepLsgKox ?M prazo de teste expirou.? N $hr!10# O $hr!16# * N ?M aplicati%o n"o será carregado?, %b$ritical,

?-(HQM?Do$md.Ruit acRuit)a%eHone(nd f(nd 2unction

D/oouC

-dicione ap4strofe antes e depois de cada string:

Pri%ate )ub $odestLaeab*-fterUpdate!#2orms32ormLae3DescestLaeab / DEooSup!?TDescab?, ?abest?, * ?T$odab/ V? N 2orms32ormLae3$odestLaeab N ?V?#(nd )ub

http://office.microsoft.com/pt-pt/access-help/funcao-createobject-HA001228803.aspx

Funções Access

Documents

Transcript of Funções Access