delete_sub [Access macro]

' run write_to_module.bas first

option explicit

public sub delete_sub() 

  dim ac        as access.application
  dim vb_editor as vbide.vbe
  dim vb_proj   as vbide.vbProject
  dim vb_comp   as vbide.vbComponents
  dim vb_module as vbide.vbComponent
  dim vb_code   as vbide.codeModule
  
  dim mdb_name  as string
      mdb_name = "c:\temp\inserted_module.mdb"

  dim module_name as string
      module_name = "ThisModuleWasInserted"

  set ac = new access.application
  ac.openCurrentDatabase(mdb_name)


  set vb_editor = ac.vbe
  set vb_proj   = vb_editor.activeVBProject
  set vb_comp   = vb_proj.vbComponents
  set vb_module = vb_comp(module_name)
  set vb_code   = vb_module.codeModule()

  dim line_start as long
  dim line_count as long

  dim sub_name as string
      sub_name = "Del"

  line_start = vb_code.procStartLine (sub_name, vbext_pk_Proc)
  line_count = vb_code.procCountLines(sub_name, vbext_pk_Proc)

  vb_code.deleteLines startLine := line_start, count := line_count

  vb_code.addFromString("' Deleted " & line_count & " lines at line " & line_start)

end sub