السلام عليكم:
المثال الذي أورده الأخ anowrosh88 مثال جميل ومفيد أشكره عليه.
ولفهمه يجب أن نحلل حدث النموذج عند التحميل Form_Load وحدث عند الموقت الزمني Form_Timer
Private Sub Form_Load()
DoCmd.OpenForm "form2"
' شريط متحرك بأعلى النموذج
Me.Caption = "مدرسة بلال بن رباح طلاب المرحلة الخامسة ................ "
' شريط متحرك بالنموذج وهو يأخذ قيمته الابتدائية من مربع النص [aa] في النموذج [form2]
Me.lblScrollingLabel.Caption = Forms![form2]![aa]
' شريط متحرك بأسفل النموذج
txtScrollStatus = "وما أوتيتم من العلم إلا قليلا .. لا تنسونا من الدعاء" & Space(25)
DoCmd.Close acForm, "form2"
End Sub
Private Sub Form_Timer()
' تنتنج النص المتحرك في شريط عنوان النموذج
Me.Caption = Mid(Me.Caption, 2, _
(Len(Me.Caption) - 1)) & Left(Me.Caption, 1)
' تنتنج النص المتحرك في مربع التسمية على النموذج
Me.lblScrollingLabel.Caption = Mid(Me.lblScrollingLabel.Caption, 2, _
(Len(Me.lblScrollingLabel.Caption) - 1)) & Left(Me.lblScrollingLabel.Caption, 1)
' تنتنج النص المتحرك في شريط الحالة للأكسس
SysCmd acSysCmdSetStatus, txtScrollStatus
txtScrollStatus = Mid(txtScrollStatus, 2, (Len(txtScrollStatus) - 1)) & Left(txtScrollStatus, 1)
End Sub