Run a command through current project : CurrentProject « Access « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. Access
  3. CurrentProject

Run a command through current project

 
Sub runcmdobj()
  Dim cmd As ADODB.Command
  Dim strSQL As String
  Set cmd = New ADODB.Command
  strSQL = "SELECT * FROM Employees"
  'Resuse the current Access connection
  Set cmd.ActiveConnection = CurrentProject.Connection
  cmd.CommandText = strSQL
  cmd.Execute
  Set cmd = Nothing
End Sub








Related examples in the same category

1.Get current project from Application object
2.CurrentProject.Connection
3.Loop through all forms
4.Use With statement with CurrentProject
5.Iterates through the AllForms collection of the CurrentProject, printing the name of each form
6.The AllReports collection allows you to loop through all reports in the current project.
7.The AllMacros collection allows you to iterate through all macros stored in the current project.
8.Iterate through all modules located in the database referenced by the CurrentProject object
9.Use the CompactRepair method of the Application object to compact and repair the database