Mover texto en la barra de estado en Access

[Fernando126]

Amigos,
Tengo creada una una base en Access en la cual puse un mensaje en la parte izquierda de la barra de estado. El mensaje sale cuando se habre el documento. Lo que quiero es que el mensaje vaya rotando (moviendose). Alguna idea?

[Taribo007]

Como has puesto ese texto??? Que version de acces utilizas??

Un saludo

[Fernando126]

Puse el mensaje utilizando SysCmd(4, "Texto") al abrir un formulario. La versión es la del Office 2003

[Taribo007]

Aqui tienes la respuesta

http://www.llodax.com/smf/index.php?topic=279.0

Solo has de adaptarlo un poquito

Un saludo

[Fernando126]

Estube tratando de adaptar al código, pero tengo un problema. El codigo es el siguiente y por lo que pude ver, el segmento en rojo debería ser reemplazado por SysCmd(4, "texto") en la funcion RotaCadena() pero no me permite hacerlo. Ayuda porfavor!!!. El codigo es:
Option Explicit
Const consngVelocidad As Single = 5

Private Sub Form_Open(Cancel As Integer)
TimerInterval = 1000 / consngVelocidad
End Sub

Private Sub Form_Timer()
lblMarquesina.Caption = RotaCadena(lblMarquesina.Caption, 1)End Sub

Private Function RotaCadena( _
Cadena As String, _
Optional ByVal Elementos As Long = 1) _
As String
Dim lngCadena As Long
lngCadena = Len(Cadena)
RotaCadena = Mid(Cadena, Elementos + 1) _
& Left(Cadena, Elementos)
End Function

[Fernando126]

Ya lo resolví, había que hacer un Call a SysCmd(4, "texto") desde la función RotaCadena().

Saludos