|
|
| |
:: EXEMPLOS ACCESS :: |
|
|
| |
|
| |
[ Os 10 mais
baixados | Busca | Exemplos
Access | Últimas atualizações ] |
|
|
|
|
| |
|
Agenda de Compromissos
|
Cliques:
1506 |
| Tamanho:
888 Kb | Idioma: Português
| Licença: Gratuito |
| Mais um execelente exemplo de agenda, que além da possibilidade da marcação de compromissos, traz diversas ferrramentas, como um verificador de CPF/CNPJ, cálculo de juros, e outras mais.
Contribuição de Léo// - leofilizzola@hotmail.com |
| Média
de votos: 6.6
[Avaliar]
| Adicionado
em:
12/12/2007 |
|
Agenda Eletrônica
|
Cliques:
1641 |
| Tamanho:
87,5 Kb | Idioma: Português
| Licença: Gratuito |
| Excelente agenda de compromissos com pesquisa, inclusão e exclusão. Vale a pena conferir.
Contribuição de José Carlos Justino (jcjustinodigital@gmail.com) |
| Média
de votos: 7.0
[Avaliar]
| Adicionado
em:
1/9/2007 |
|
Arredondamento
|
Cliques:
1503 |
| Tamanho:
1,11 Kb | Idioma: Português
| Licença: Gratuito |
| - Arquivo contendo informações de como efetuar arredondamento de casas decimais. |
| Média
de votos: 4.0
[Avaliar]
| Adicionado
em:
20/01/04 |
|
Borda 3D
|
Cliques:
1819 |
| Tamanho:
712 bytes | Idioma: Português
| Licença: Gratuito |
Public Enum OpcoesRelevo
RelevoAlto = -1
RelevoBaixo = 0
End Enum
Private Const CTLRECESSED = 0
Private Const CTLRAISED = -1
Private Const BKGNDGRAY = 192
Private Const DARKGRAY = 64
Private Const LIGHTGRAY = 255
Private Const DEFAULTWIDTH = 3
Private FrameWidth As Integer
'Use esta função para dar o efeito ao controle que você quizer
Public Sub EfeitoRelevo(gForm As Form, Controle As Control, Opcao As OpcoesRelevo, Intensidade As Single)
Dim InOut As Integer
InOut = Opcao
FrameWidth = Intensidade
InitCtl Controle, InOut
End Sub
Private Sub HighLight(C As Control, InOut As Integer)
Dim TLShade&
Dim BRShade&
Dim I%
Dim T%
Dim L%
Dim H%
Dim W%
C.Parent.ScaleMode = 3
If InOut = CTLRAISED Then
TLShade& = RGB(LIGHTGRAY, LIGHTGRAY, LIGHTGRAY)
BRShade& = RGB(DARKGRAY, DARKGRAY, DARKGRAY)
Else
TLShade& = RGB(DARKGRAY, DARKGRAY, DARKGRAY)
BRShade& = RGB(LIGHTGRAY, LIGHTGRAY, LIGHTGRAY)
End If
For I% = 1 To FrameWidth
T% = C.Top - I%
L% = C.Left - I%
H% = C.Height + 2 * I%
W% = C.Width + 2 * I%
C.Parent.Line (L%, T%)-Step(0, H%), TLShade&
C.Parent.Line (L%, T%)-Step(W%, 0), TLShade&
C.Parent.Line (L% + W%, T%)-Step(0, H%), BRShade&
C.Parent.Line (L%, T% + H%)-Step(W%, 0), BRShade&
Next I%
End Sub
Private Sub InitCtl(C As Control, InOut As Integer)
If TypeOf C Is HScrollBar Then
Else
C.BackColor = C.Parent.BackColor
End If
HighLight C, InOut
End Sub
|
| Média
de votos: 4.7
[Avaliar]
| Adicionado
em:
20/01/04 |
|
Cadastro de Fornecedores
|
Cliques:
1415 |
| Tamanho:
432 Kb | Idioma: Português
| Licença: Gratuito |
| Simples Sistema de Cadastro de Fornecedores, com funções de contador personalizado, busca avançada através de três tipos de filtros, barra de menus, dentre outros.
Está é a versão 1.0, estarei aperfeiçoando o aplicativo com o tempo, caso tenha alguma dúvida, e gostaria de ve-la no sistema, entre em contato comigo, que tentarei atender a todos com muita satisfação.
E se caso você deseja utilizar o sistema em sua empresa/trabalho, e também deseja alguma mudança, esteja a vontade de fazer seus pedidos.
Ps. Descompacte o arquivo em C:\
Motivo: Vinculação das imagens.
Contribuição de Fabiano Abreu Alves (fabianoabreu_jipa@hotmail.com) |
| Média
de votos: 8.0
[Avaliar]
| Adicionado
em:
13/8/2008 |
|
Capture
|
Cliques:
1100 |
| Tamanho:
560 bytes | Idioma: Português
| Licença: Gratuito |
Private Declare Function BitBlt Lib "gdi32" (ByVal hDCDest As Long, ByVal XDest As Long, _
ByVal YDest As Long, ByVal nWidth As Long, _
ByVal nHeight As Long, ByVal hDCSrc As Long, _
ByVal XSrc As Long, ByVal YSrc As Long, _
ByVal dwRop As Long) As Long
Private Declare Function GetDesktopWindow Lib _
"user32" () As Long
Private Declare Function GetWindowDC Lib _
"user32" (ByVal hWnd As Long) As Long
Private Declare Function ReleaseDC Lib "user32" _
(ByVal hWnd As Long, ByVal hdc As Long) As Long
'Use esta função fazer a captura de tela
Public Sub PrintScreen(gPicture As PictureBox)
Dim r As Long
Dim hWndDesk As Long
Dim hDCDesk As Long
Dim LeftDesk As Long
Dim TopDesk As Long
Dim WidthDesk As Long
Dim HeightDesk As Long
LeftDesk = 0
TopDesk = 0
WidthDesk = Screen.Width \ Screen.TwipsPerPixelX
HeightDesk = Screen.Height \ Screen.TwipsPerPixelY
hWndDesk = GetDesktopWindow()
hDCDesk = GetWindowDC(hWndDesk)
r = BitBlt(gPicture.hdc, 0, 0, _
WidthDesk, HeightDesk, hDCDesk, _
LeftDesk, TopDesk, vbSrcCopy)
r = ReleaseDC(hWndDesk, hDCDesk)
gPicture.AutoRedraw = True
End Sub
|
| Média
de votos: 5,9
[Avaliar]
| Adicionado
em:
20/01/04 |
|
Desativando a roda do mouse
|
Cliques:
268 |
| Tamanho:
53 Kb | Idioma: Português
| Licença: Gratuito |
| Desativando a roda do mouse (sem dll).
Contribuição: OsmarJunior (osmarjr@brturbo.com.br) |
| Média
de votos: 5.5
[Avaliar]
| Adicionado
em:
23/7/2009 |
|
Encript / Decript
|
Cliques:
1692 |
| Tamanho:
561 bytes | Idioma: Português
| Licença: Gratuito |
'Para usar as funções faça o seguinte:
' Para Encryptar:
'EncryptText(Texto, Senha)
'Note que os dados passados para a função devem ser strings
' Para Decryptar:
'DecryptText(Texto, Senha)
Option Explicit
Public Const CASE_SENSITIVE_PASSWORD = False
'Encrypta o texto
Public Function EncryptText(strText As String, ByVal strPwd As String)
Dim i As Integer, c As Integer
Dim strBuff As String
If Not CASE_SENSITIVE_PASSWORD Then
strPwd = UCase$(strPwd)
End If
If Len(strPwd) Then
For i = 1 To Len(strText)
c = Asc(Mid$(strText, i, 1))
c = c + Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))
strBuff = strBuff & Chr$(c And &HFF)
Next i
Else
strBuff = strText
End If
EncryptText = strBuff
End Function
'Decrypta o texto encryptado anteriormente
Public Function DecryptText(strText As String, ByVal strPwd As String)
Dim i As Integer, c As Integer
Dim strBuff As String
If Not CASE_SENSITIVE_PASSWORD Then
strPwd = UCase$(strPwd)
End If
If Len(strPwd) Then
For i = 1 To Len(strText)
c = Asc(Mid$(strText, i, 1))
c = c - Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))
strBuff = strBuff & Chr$(c And &HFF)
Next i
Else
strBuff = strText
End If
DecryptText = strBuff
End Function
|
| Média
de votos: 5.8
[Avaliar]
| Adicionado
em:
20/01/04 |
|
| |
|
|
|
| |
Quer
contribuir com o site ??
Envie um e-mail para 
fabiano@expertaccess.com.br
com seu nome e link de seu banco de dados que nós publicaremos
para você.
Se preferir, você também poderá enviar o banco
de dados em anexo ao e-mail.
Obs.: O arquivo compactado não deve ultrapassar 250KB.
A
publicação de exemplos tem por objetivo ser fonte
de estudo aos usuários do portal.
Então, não estaremos mais publicando exemplos de banco
de dados em formato MDE ou com travas ou bloqueios que impeçam
o acesso a estrutura do mesmo. |
| |
|
| |
 |
|
