كيف استخدم خاصية MoveNext ؟!
انا سويت فورم يديد وعرضة بينات من قاعدة بيانات Access على Text وقدرت والحمدلله بس لما اريد انتقل إلى السجل التالي ما أقدر أحتاج مساعدتكم
ولو سمحتوا بسرعة لأني ماعدي وقت موووول
هذي الأواد إلي عاملنهم:
Private Sub CmdNext_Click()
Dim rs As adodb.Recordset
Dim SQL As String
Set rs = New adodb.Recordset
SQL = "select * from TblBook"
rs.Open SQL, DT, adOpenDynamic, adLockOptimistic
TxtNu = rs("Book_No")
TxtName = rs("Book_Name")
CoSection = rs("Book_Type")
TxtPar = rs("Book_Part")
TxtWri = rs("Book_Writer")
TxtAbout = rs("About_Book")
TxtDate = rs("Date_Pup")
rs.MoveNext
End Sub
Private Sub Form_Load()
Dim rs As adodb.Recordset
Dim SQL As String
Set rs = New adodb.Recordset
SQL = "select * from TblBook"
rs.Open SQL, DT, adOpenDynamic, adLockOptimistic
TxtNu = rs("Book_No")
TxtName = rs("Book_Name")
CoSection = rs("Book_Type")
TxtPar = rs("Book_Part")
TxtWri = rs("Book_Writer")
TxtAbout = rs("About_Book")
TxtDate = rs("Date_Pup")
End Sub
