[administrator]

كود زر السابق

كود :

If rs.BOF = False Then
rs.MovePrevious
Text1.Text = rs("ID")
Text2.Text = rs("namee")
Text3.Text = rs("dep")
Text4.Text = rs("sex")
Text5.Text = rs("datee")
Text6.Text = rs("slary")
Else
MsgBox "وصلت الى اول سجل", vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading
End If

كود التالي

كود :

If rs.EOF = False Then
rs.MoveNext
Text1.Text = rs("ID")
Text2.Text = rs("namee")
Text3.Text = rs("dep")
Text4.Text = rs("sex")
Text5.Text = rs("datee")
Text6.Text = rs("slary")
Else
MsgBox "وصلت الى اخر سجل", vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading
End If