Kolay Gelsin.... Kodunuzu Şu Şekilde Düzeltin... Bu Arada Timerde belirttiğiniz 120 süresinide biraz artırın.... Çok Kısa....
Kod:
Private Sub Form_Timer()
Me.lblScrollingLabel.Caption = Mid(Me.lblScrollingLabel.Caption, 2, _
(Len(Me.lblScrollingLabel.Caption) - 1)) & Left(Me.lblScrollingLabel.Caption, 1)
DoCmd.Close acForm, "Form1"
DoCmd.OpenForm "x1", acNormal, "", "", , acNormal
End Sub