Olá, a propósito de questão de colega, criei pequeno exemplo de Banner com ficheiros jpg.
Segue o código e exemplo:
Segue o código e exemplo:
- Código:
Option Compare Database
Dim iFoto%
Private Sub Form_Activate()
iFoto = 1
Me.foto.Picture = Application.CurrentProject.Path & "\c" & iFoto & ".jpg"
End Sub
Private Sub Form_Timer()
'ahteixeira 2016 para MaximoAccess
If iFoto = 5 Then
iFoto = 1
Else
iFoto = iFoto + 1
End If
Me.foto.Picture = Application.CurrentProject.Path & "\c" & iFoto & ".jpg"
End Sub
- Anexos
- ExemploBanner.zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (56 Kb) Baixado 329 vez(es)