[Resolvidos]fazer texto na label-rotulo andar-mover-se

Joao, boa noite e parabens pelo forum!
Segue:

1) criei uma tabela: TB Msg com os campos:
> codigo (automatico)
> texto
> campo (sera cadastrado tres tipo: 1,2,3)

2) criei um formulario: FRL_Abertura onde:
> criei Caixa 1
> criei Caixa 2
> criei Caixa 3

Objetivo:

>>>>ao abrir o formulario gostaria que:
> a Caixa 1 mostrasse o ultimo registro da TBL_Mensagens cujo Campos seja cadastrado como 1
> a Caixa 2 mostrasse o ultimo registro da TBL_Mensagens cujo Campo seja cadastrado como 2

> a Caixa 3 mostrasse o ultimo registro da TBL_Mensagens cujo Campo seja cadastrado como 3



Proximo objetivo e mais importante!:

> fazer que as 3 mesagens dentro das caixas, andem ....como se fosse banner.



Sds,!

Ola Carlos bem vindo ao forum;

Uma sugestão prática é substituir as 3 caixas de texto por rotulos (label`s).

Dê o nome a cada uma de lbl1, lbl2, lbl3.

Agora veja o resultado, neste pequeno exemplo que fiz para si.

http://dl.getdropbox.com/u/771097/Carlos.mdb

Sucesso e abraço

SHOW! SHOW! SHOW!!! muito obrigado!!!!
agora quero entender:
Private Sub Form_Timer() ///no timer do formulario
If Me!lbl1.Left <= 100 And Me!lbl2.Left <= 100 And Me!lbl3.Left <= 100
>>>>>>>>>>>>>o que significa 100?
Then
If Len(Me!lbl1.Caption) > 1 And Len(Me!lbl2.Caption) > 1 And Len(Me!lbl3.Caption) > 1 Then
>>>>>por que maior que 1? - o que é 1?
Me!lbl1.Caption = Right(Me!lbl1.Caption, Len(Me!lbl1.Caption) - 1)
Me!lbl2.Caption = Right(Me!lbl2.Caption, Len(Me!lbl2.Caption) - 1)
Me!lbl3.Caption = Right(Me!lbl3.Caption, Len(Me!lbl3.Caption) - 1)
>>>>>>>>o que significa LEN? por que orientou para direita se esta andando para esquerda?
Else
Me!lbl1.Width = 0 >>>o que é width?
Me!lbl1.Left = Me.WindowWidth>>>o que é este comando?
Me!lbl2.Width = 0
Me!lbl2.Left = Me.WindowWidth
Me!lbl3.Width = 0
Me!lbl3.Left = Me.WindowWidth
Me.lbl1.Caption = DLast("[texto]", "TBL_Mensagens", "[tipo]=1")
Me.lbl2.Caption = DLast("[texto]", "TBL_Mensagens", "[tipo]=2")
Me.lbl3.Caption = DLast("[texto]", "TBL_Mensagens", "[tipo]=3")
End If
Else
Me!lbl1.Left = Me!lbl1.Left - 100
Me!lbl1.Width = Me!lbl1.Width + 100
Me!lbl2.Left = Me!lbl2.Left - 100
Me!lbl2.Width = Me!lbl2.Width + 100
Me!lbl3.Left = Me!lbl3.Left - 100
Me!lbl3.Width = Me!lbl3.Width + 100
End If
End Sub

Private Sub Form_Open(Cancel As Integer)
Me!lbl1.Width = 0
Me.lbl1.Left = Me.WindowWidth
Me.lbl1.Caption = DLast("[texto]", "TBL_Mensagens", "[tipo]=1")
Me!lbl2.Width = 0
Me.lbl2.Left = Me.WindowWidth
Me.lbl2.Caption = DLast("[texto]", "TBL_Mensagens", "[tipo]=2")
Me!lbl3.Width = 0
Me.lbl3.Left = Me.WindowWidth
Me.lbl3.Caption = DLast("[texto]", "TBL_Mensagens", "[tipo]=3")
End Sub

Ola Carlos Bom dia;

Twip é a medida utilizada pelo Access como default 1cm = 567 twips

Se o rótulo estiver a menos de 100 twips da esquerda da janela:
If Me!lbl1.Left <= 100 And Me!lbl2.Left <= 100 And Me!lbl3.Left <= 100

E se a legenda (Caption) do rótulo for >1 caractere
If Len(Me!lbl1.Caption) > 1 And Len(Me!lbl2.Caption) > 1 And Len(Me!lbl3.Caption) > 1

A função Len retorna o tamanho de uma string defenida por nós, aqui pedi 1 caracter.
Faz a legenda do rótulo igual à legenda do rótulo - com primeiro caractere à esquerda:
Me!lbl1.Caption = Right(Me!lbl1.Caption, Len(Me!lbl1.Caption) - 1)

Quando a legenda termina, coloca o tamanho a zero.
Me!lbl1.Width = 0

Depois colocamos a esquerda do rótulo igual à largura da janela.
Me!lbl1.Left = Me.WindowWidth

E colocamos a frase pretendida lá dentro.
Me.lbl1.Caption = DLast("[texto]", "TBL_Mensagens", "[tipo]=1")

Se estiver com mais de 100 twips faz com que a esquerda do rótulo diminua 100 twips
Me!lbl1.Left = Me!lbl1.Left - 100

E o tamanho aumenta 100 twips
Me!lbl1.Width = Me!lbl1.Width + 100

E voilá, a velocidade é defenida no Cronómetro do formulario, a cada décimo de segundo esse procedimento é executado,

Sucesso e abraço

Amigo, desculpe-me.....novato é um problema! Igual a estagiario! Talvez seja uma bobeira, mas nao consigo pensar como resolver:
Dlast : nao funciona
tentei DÚltimo....tambem nao.. O access que utilizamos aqui é a versao 2000

O DLast funciona em VBA, o DÚltimo funciona em consultas ou na origem do controle, e isto é para todas as versões do Access.
Você terá de ter 3 campos na sua tabela TBL_Mensagens
Campo1 = ID......................autonumeração
Campo2 = texto..................texto 255
Campo3 = tipo....................numero inteiro