Stifone ha scritto:
Direi che puoi provare questa soluzione:
Dim inizio As Integer
Private Sub Form_Timer()
Dim testo As String
Dim intTesto As Integer
testo = "testo da far scorrere continuamente senza che si fermi mai" & Space(30)
intTesto = Len(testo)
'sto ancora facendo delle prove
inizio = inizio + 1
If Mid(Me.comunicazione, 1, intTesto) = testo Then
inizio = 2
End If
Me.comunicazione = Mid(testo, inizio) & Left(testo, inizio)
End Sub
Ciao Stifone, innanzitutto grazie per la risposta!
Con la tua soluzione il problema si risolve, ma ne compare un altro.
Avendo dovuto creare una tabella apposita per le comunicazioni da far scorrere di tanto in tanto a scelta dell'admin, ho modificato il codice precedente con il seguente:
Private Sub Form_Timer()
Dim testo As String
Dim intTesto As Integer
testo = DLookup("messaggio", "tblcomunicazioni") & Space(30)
intTesto = Len(testo)
inizio = inizio + 1
If Mid(Me.comunicazione, 1, intTesto) = testo Then
inizio = 2
End If
Me.comunicazione = Mid(testo, inizio) & Left(testo, inizio)
End Sub
Il problema sta nel fatto che mi riporta sempre la fastidiosissima prima lettera del messaggio, come da videata seguente:
Non riesco a capire dove sia il problema nel codice?