طلب : عايز الانتقال من الداتا تلقائي

يااخوان انا منتظر المساعدة

تفضل أخي الفاضل ..

علماً بأنّني استخدمت أداة Adodc حيث سهولة استخدامها

Private Sub Form_Load()
Me.Label1.Caption = Me.Adodc1.Recordset.Fields(0)
End Sub

Private Sub Timer1_Timer()
On Error Resume Next
	Static Count As Integer

	If (Label1.Left + Label1.Width) <= 0 Then
		If Not Me.Adodc1.Recordset.EOF Then
		Me.Adodc1.Recordset.MoveNext
		Else
			Me.Adodc1.Recordset.MoveFirst
		End If
			If Me.Adodc1.Recordset.Fields(0) <> "" Then Me.Label1.Caption = Me.Adodc1.Recordset.Fields(0)
			Label1.Left = Form1.Width

	End If

	Label1.Left = Label1.Left - 100
End Sub

شكرا لك اخي

انا اكتشفت الحل من شوية