2009-07-31 350 views
2

在工作中,我們有這個報告工具。它作爲一個MDE工具分發給每個人,被鎖定的很好(VBA是不可查看的,不能導入任何表,查詢,表單等)。當每個人填寫他們的適用部分時,都會有一個按鈕將其合併到一個文本文件中,然後將其發送到Outlook。然後,每個人都會將其發送給一個人。MS Access 2003 - 將文本文件導入MS Access數據庫表

於是我想出了需要在自己的數據庫來使用此:

遠程員工填寫的是爲他們創建一個Power Point演示形式,而這部分我想我已經板上釘釘了。這有助於我們跟蹤這些演示文稿的指標,而不是員工手動創建ppt,然後我們來後面並將摘要中的數據手工輸入到表單中。使感覺正確。

這是我的問題,在辦公室,這是解決的,但對於那些在外地的我需要一個類似於上面提到的工具;他們從自動生成的ppt中獲得好處,然後我可以讓他們通過電子郵件向我發送文本文件,我可以將其添加到數據庫。

這裏是我的問題,因爲我剛剛進入這個開頭:

-The形式是相當長的,因爲有信息進入一個百分點的很多,所以我用一個形式的標籤爲不同部分,但這一切都記錄在表中,一個PPT。如何將所有這些信息(這一條記錄)都轉換爲文本文件,以及如何使用發送到Outlook,只需點擊一下按鈕?

- 當用戶通過電子郵件發送文本文件時,如何將其導入到數據庫表中?

- 您如何鎖定MDE以便VB無法查看,並且該對象無法導入到其他應用程序中?

任何其他的意見,提示,「你瘋了的男人!」,歡迎!一如既往的感謝!

回答

0

您是否考慮過複製而不是文本文件?這些數據將存儲在帶有Access Security的複製後端文件中,該文件可能會返回給您。 CDO應該適合發送電子郵件。

文本

Access有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) = "[email protected]" 
      .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 = "[email protected]" 
      .To = "[email protected]" 
      .HTMLBody = strBody 
      .AddAttachment strFile 
      .Send 
     End With 

    End Sub 

更多信息:http://wiki.lessthandot.com/index.php/Access_and_Email

+0

這是我想的一種可能性。有時候這些銷售代表已經出現一段時間了,我在想,電子郵件txt集會會讓我儘快將度量指標導入數據庫。什麼是CDO?記得我,菜鳥? ;) – Justin 2009-08-01 21:24:10

+0

我這樣做。 :)我編輯了我的帖子。 – Fionnuala 2009-08-01 22:05:27

+0

再次感謝你! – Justin 2009-08-02 13:14:21

0

@Justin問:

- 如何你鎖定了一個MDE從而使VB是unviewable,並且對象 無法導入到另一個 應用程序中?

這個問題沒有意義,除非提問者沒有把握MDE是什麼。 MDE中沒有可查看的代碼。它已被刪除,剩下的就是編譯後的p代碼。對於訪問的VBA編寫的一個有用的一篇文章,順便介紹了規範的代碼和編譯p代碼之間的關係,看到邁克爾·卡普蘭的"The real deal on the /Decompile switch."

請記住,這僅適用於代碼方向的對象(窗體/報告/模塊)而不是表和查詢。

+0

我確信我缺乏理解是原因,因爲......我缺乏理解。但這就是爲什麼我感謝你的答案和學習的參考,因爲我需要它。 我想這個(就像我的許多其他問題一樣)只是很少被問到......我注意到,對於一些MDB(而不是MDE),您可以將諸如表單,查詢等對象導入到您自己的數據庫中,有些似乎將該功能鎖定。我如何做到這一點?感謝您與新手合作! – Justin 2009-08-09 22:18:33

+0

閱讀MDE上的幫助文件。這將回答你的問題。 – 2009-08-10 02:56:48