Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Sort procedures on an Access Form!!! 1
- Thread starter ADW
- Start date
-
1
- #2
Option Compare Database
Option Explicit
'------------------------------------------------------------
' sortdown_stock
'
'------------------------------------------------------------
Function sortdown_stock()
On Error GoTo sortdown_stock_Err
DoCmd.GoToControl "stock-no" 'set focus on field ,control you want to sort
DoCmd.RunCommand acCmdSortAscending 'sort ascending or deascending
'or insert event procedure (onclick) on your button
'DoCmd.GoToControl "stock-no"
'DoCmd.RunCommand acCmdSortAscending
sortdown_stock_Exit:
Exit Function
sortdown_stock_Err:
MsgBox Error$
Resume sortdown_stock_Exit
End Function
Option Explicit
'------------------------------------------------------------
' sortdown_stock
'
'------------------------------------------------------------
Function sortdown_stock()
On Error GoTo sortdown_stock_Err
DoCmd.GoToControl "stock-no" 'set focus on field ,control you want to sort
DoCmd.RunCommand acCmdSortAscending 'sort ascending or deascending
'or insert event procedure (onclick) on your button
'DoCmd.GoToControl "stock-no"
'DoCmd.RunCommand acCmdSortAscending
sortdown_stock_Exit:
Exit Function
sortdown_stock_Err:
MsgBox Error$
Resume sortdown_stock_Exit
End Function
- Status
Similar threads
- Locked
- Question
- Locked
- Question