MS Access 2003 - импорт текстового файла в таблицу базы данных MS Access

Question

На работе у нас есть этот инструмент отчетности. Он распространяется среди всех как инструмент MDE, который довольно хорошо заблокирован (VBA недоступен для просмотра, не может импортировать какие-либо таблицы, запросы, формы и т. Д.). Когда каждый человек заполняет свою соответствующую часть, есть кнопка, которая объединяет его в текстовый файл, а затем отправляет его в Outlook. Тогда каждый отправляет электронное письмо одному человеку.

Итак, мне нужно использовать это в моей собственной базе данных:

Удаленные сотрудники заполняют форму, которая создает для них презентацию Power Point, и эту часть, я думаю, я прибил. Это помогает нам отслеживать показатели по этим презентациям, а не сотруднику, вручную создающему ppt, а затем мы возвращаемся назад и вручную вводим данные из сводки в форму. Имеет смысл правильно.

Вот моя проблема, в офисе, это решено, но для тех, кто работает в поле, мне нужен похожий инструмент, подобный упомянутому выше; где они получают выгоду от автоматически сгенерированного ppt, и тогда я могу попросить их отправить мне текстовый файл по электронной почте, который я могу добавить в базу данных.

Вот мои вопросы, потому что я только начинаю это:

- Форма довольно длинная, потому что в ppt поступает МНОГО информации, поэтому я использую одну форму с вкладками для разных разделов, но все это заносится в таблицу и один ppt. Как мне превратить всю эту информацию, эту одну запись, в текстовый файл, и как я могу использовать Отправить в Outlook, все одним нажатием кнопки ??

-Когда пользователь отправляет текстовый файл по электронной почте, как мне импортировать его в таблицу базы данных?

-Как вы блокируете MDE, чтобы VB был недоступен для просмотра, и объект нельзя было импортировать в другое приложение?

любые другие советы, советы, "ваш сумасшедший!", Добро пожаловать! спасибо как всегда!

Answer 1

@ Джастин спрашивает:

-Как вы блокируете MDE, чтобы VB был недоступен для просмотра, а объект нельзя импортировать в другой приложение?

Вопрос не имеет смысла, если только тот, кто его спрашивает, не понял, что такое MDE. В МДЕ НЕТ НИКАКОГО ВИДИМОГО КОДА. Он был удален, и все, что осталось, это скомпилированный p-код. Для полезной статьи о компиляции VBA в Access, которая случайно объясняет взаимосвязь между каноническим кодом и скомпилированным p-кодом, см. Майкла Каплана "Реальная сделка с ключом / Decompile".

Имейте в виду, что это относится только к объектам, несущим код (формы / отчеты / модули), а не к таблицам и запросам.

Answer 2

Вы рассматривали репликацию, а не текстовый файл? Данные будут храниться в реплицированном внутреннем файле с 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