MS Access 2003 - MS Accessデータベーステーブルへのテキストファイルのインポート

Question

作業中にこのレポートツールがあります。それはかなり良い（VBAは見られない、テーブル、クエリ、フォームなどをインポートすることはできません）ロックされているMDEツールとして全員に配布されます。各自が適切な部分を記入すると、それをテキストファイルにまとめてOutlookに送信するボタンがあります。誰もがそれを一人の人にメールで知らせる。

リモートの従業員が彼らのためにパワーポイントプレゼンテーションを作成し、フォームに必要事項を記入し、私は釘付けしていると考え、この部分：

だから私は自分のデータベースにこれを使用する必要性が出ています。これは従業員が手動でpptを作成するのではなく、プレゼンテーションのメトリックを追跡するのに役立ちます。その後、ブリーフからデータを入力してフォームに入力します。右の意味です。

これは私の問題です。オフィスではこれが解決されますが、現場にいる人には、上記のような類似のツールが必要です。どこで彼らは自動生成されたpptの利益を得て、私はそれらに私がdbに加えることができる電子メールを通して私にテキストファイルを送ってもらうことができます。私はちょうどこのの先頭に取得していますので、ここで

は私の質問です：

PPTに入る情報がたくさんあるので-Theフォームはかなり長いので、私は別のタブで一つの形式を使用しますしかし、すべてがテーブルに記録され、1つはpptです。この1つのレコードをすべてテキストファイルに変換するにはどうしたらいいですか？また、Send to Outlookを使用するにはどうすればいいですか？

- ユーザーがテキストファイルを電子メールで送信したとき、どのようにデータベーステーブルにインポートするのですか？

- VBが見えなくなり、オブジェクトを別のアプリケーションにインポートできないようにするにはどうすればよいですか？

他のアドバイス、ヒント、 "あなたのクレイジーな男！" sは、大歓迎です！いつものようにありがとう！

Answer 1

あなたはテキストファイルではなく複製を考えましたか？データはAccess Securityの複製バックエンドファイルに保存され、返却することができます。 CDOは電子メールに適しています。

テキスト

のアクセスは、両方の輸出にあなたをできるようにしてテキストファイルをインポートしますDoCmd.TransferTextを持っています。

CDO

Private Sub SendEmailCDO() 
    'Requires reference to Microsoft CDO for Windows 2000 
    Dim cdoConfig As Object 
    Dim strSubject As String 
    Dim strBody As String 
    Dim strFile As String 
    Dim cdoMessage As Object 

     'Set up detail of the mail server 
     Set cdoConfig = CreateObject("CDO.Configuration") 
     With cdoConfig.Fields 
      .Item(cdoSendUsingMethod) = 2 ''cdoSendUsingPort 
      .Item(cdoSMTPServerPort) = 25 
      .Item(cdoSMTPServer) = "smpt.themailserver.com" 
      .Item(cdoSendUserName) = "abc@themailserver.com" 
      .Item(cdoSendPassword) = "password" 
      .Update 
     End With 

     ''This is the subject line for the email. 
     strSubject = "Membership List" 

     ''This is the message with a little HTML. 
     strBody = "<P>Here is the membership list for <FONT color=#ff0000>" _ 
     & Format(Date, "mmmm yyyy") & "</FONT>.</P><P>Regards, LTD</P>" 

     ''Location of Attachment 
     strFile = "C:\Docs\MembershipList.rtf" 

     ''Set up the email message 
     Set cdoMessage = CreateObject("CDO.Message") 
     With cdoMessage 
      .Configuration = cdoConfig 
      .Subject = strSubject 
      .From = "me@here.com" 
      .To = "someone@there.com" 
      .HTMLBody = strBody 
      .AddAttachment strFile 
      .Send 
     End With 

    End Sub 

詳しい情報：http://wiki.lessthandot.com/index.php/Access_and_Email

Answer 2

@Justinが求められます。

を使用すると、VBは視聴不可能となるように、MDEをロックし、オブジェクトん - どのように他の アプリケーションに をインポートできませんか？

質問する人がMDEが何であるかを理解できない限り、質問は意味をなさない。目に見えるコードはMDEに残っていません。それは取り除かれており、残りはすべてコンパイルされたpコードです。正式なコードとコンパイルされたpコードの関係を偶然に説明したAccessのVBAコンパイルに関する有益な記事については、Michael Kaplanの"The real deal on the /Decompile switch."

を参照してください。これはコードを持つオブジェクト（フォーム/レポート/モジュール）、テーブルやクエリではありません。