
'----------------------------------------------------------------
' Hands-On 2-1
' No code for this Hands-On. 
' Please follow the instructions in the book.
'----------------------------------------------------------------


'----------------------------------------------------------------
' Hands-On 2-2
' No code for this Hands-On. 
' Please follow the instructions in the book.
'----------------------------------------------------------------


'----------------------------------------------------------------
' Hands-On 2-3
' No code for this Hands-On. 
' Please follow the instructions in the book.
'----------------------------------------------------------------


'----------------------------------------------------------------
' Hands-On 2-4
'----------------------------------------------------------------

Sub NewFolder()
   MkDir "C:\Study"
End Sub

Sub RemoveFolder()
   RmDir "C:\Study"
End Sub


'----------------------------------------------------------------
' Hands-On 2-5
' Statements to be tried out in the Immediate window
'----------------------------------------------------------------

DoCmd.OpenForm "Inventory List"
Debug.Print Forms![Inventory List].RecordSource


'----------------------------------------------------------------
' Hands-On 2-6
' Queries to be tried out in the Immediate window
'----------------------------------------------------------------

?Forms![Inventory List].Controls.Count
?Application.Name
?12/3
?3+2:?12*8
?Application.GetOption("Default Database Directory")
?Application.CodeProject.Name
Print Application.CodeProject.Name


