tranthanhan1962 > 25-01-19, 04:46 PM
Private Sub cmdnext_Click()
On Error GoTo Biloi
DoCmd.GoToRecord , , acNext
Biloi:
End Sub
Private Sub Command35_Click()
On Error GoTo Biloi
DoCmd.GoToRecord , , acPrevious
Biloi:
End Sub
Private Sub Form_Current()
lstdmhang.Value = MaHH.Value
Me.Refresh
End Sub