Starting Access document resolvers

Author: ThunderFrame

Rubberduck.VBEEditor/Application/AccessApp.cs

@@ -1,3 +1,8 @@
+using System.Collections.Generic;
+using System.IO;
+using System.Reflection;
+using Microsoft.Office.Interop.Access;
+
 namespace Rubberduck.VBEditor.Application
 {
     public class AccessApp : HostApplicationBase<Microsoft.Office.Interop.Access.Application>
@@ -10,6 +15,21 @@ public override void Run(QualifiedMemberName qualifiedMemberName)
             Application.Run(call);
         }
 
+        //public List<string> FormDeclarations(QualifiedModuleName qualifiedModuleName)
+        //{
+        //    Application.DoCmd.OutputTo(AcOutputObjectType.acOutputForm, qualifiedModuleName.Name, AcCommand.acCmdExportText, 
+        //        Path.Combine(ExportPath, qualifiedModuleName.Name), null, null, null);
+        //}
+
+        //private string ExportPath
+        //{
+        //    get
+        //    {
+        //        var assemblyLocation = Assembly.GetAssembly(typeof(AccessApp)).Location;
+        //        return Path.GetDirectoryName(assemblyLocation);
+        //    }
+        //}
+
         private string GenerateMethodCall(QualifiedMemberName qualifiedMemberName)
         {
             //Access only supports Project.Procedure syntax. Error occurs if there are naming conflicts.

Rubberduck.VBEEditor/Extensions/MSAccessComponentTypeExtensions.cs

@@ -0,0 +1,28 @@
+using Rubberduck.VBEditor.SafeComWrappers;
+
+namespace Rubberduck.VBEditor.Extensions
+{
+    public static class MSAccessComponentTypeExtensions
+    {
+        internal const string AccessFormExtension = ".accfrm";
+        internal const string AccessReportExtension = ".accrpt";
+
+        /// <summary>
+        /// Returns the proper file extension for the MS Access Component Type.
+        /// </summary>
+        /// <param name="componentType"></param>
+        /// <returns>File extension that includes a preceeding "dot" (.) </returns>
+        public static string FileExtension(this MSAccessComponentType componentType)
+        {
+            switch (componentType)
+            {
+                case MSAccessComponentType.Form:
+                    return AccessFormExtension;
+                case MSAccessComponentType.Report:
+                    return AccessReportExtension;
+                default:
+                    return string.Empty;
+            }
+        }
+    }
+}

Rubberduck.VBEEditor/Rubberduck.VBEditor.csproj

@@ -126,10 +126,12 @@
     <Compile Include="Events\ISinks.cs" />
     <Compile Include="Events\ProjectEventArgs.cs" />
     <Compile Include="Events\ProjectRenamedEventArgs.cs" />
+    <Compile Include="Extensions\MSAccessComponentTypeExtensions.cs" />
     <Compile Include="SafeComWrappers\Abstract\ISafeComWrapper.cs" />
     <Compile Include="SafeComWrappers\Abstract\IVBComponentsEventsSink.cs" />
     <Compile Include="SafeComWrappers\Abstract\IVBProjectsEventsSink.cs" />
     <Compile Include="SafeComWrappers\DispatcherEventArgs.cs" />
+    <Compile Include="SafeComWrappers\MSAccessComponentType.cs" />
     <Compile Include="SafeComWrappers\MSForms\ControlType.cs" />
     <Compile Include="SafeComWrappers\Abstract\ICodePanes.cs" />
     <Compile Include="SafeComWrappers\Office.Core\Abstract\ICommandBarButton.cs" />

Rubberduck.VBEEditor/SafeComWrappers/MSAccessComponentType.cs

@@ -0,0 +1,8 @@
+namespace Rubberduck.VBEditor.SafeComWrappers
+{
+    public enum MSAccessComponentType
+    {
+        Form,
+        Report
+    }
+}

Rubberduck.VBEEditor/SafeComWrappers/VB6/VBComponent.cs

@@ -110,7 +110,7 @@ public void Export(string path)
         }
 
         /// <summary>
-        /// Exports the component to the folder. The file is name matches the component name and file extension is based on the component's type.
+        /// Exports the component to the folder. The file name matches the component name and file extension is based on the component's type.
         /// </summary>
         /// <param name="folder">Destination folder for the resulting source file.</param>
         public string ExportAsSourceFile(string folder)