MS Access 2003 - MS Access 데이터베이스 테이블로 텍스트 파일 가져 오기

Question

직장에서 우리는이보고 도구를 가지고 있습니다. 그것은 꽤 잘 잠겨있는 MDE 도구로 모든 사람에게 배포됩니다 (VBA는 볼 수 없으며 테이블, 쿼리, 폼 등을 가져올 수 없습니다). 각 사람이 해당 부분을 채우면 텍스트 파일로 변환 한 다음 Outlook으로 보냅니다. 그런 다음 모두가 한 사람에게 전자 메일을 보냅니다.

원격 종업원 그들을 위해 파워 포인트 프리젠 테이션을 작성하는 양식을 작성하고, 내가 꼼짝 한 생각이 부분 :

그래서 난 내 자신의 데이터베이스에이를 사용할 필요로 올라와있다. 이는 직원이 수동으로 ppt를 작성하는 대신 이러한 프레젠테이션에 대한 메트릭을 추적하는 데 도움이됩니다. 그런 다음 간단한 단계에서 양식으로 데이터를 입력하고 다시 입력합니다. 맞아.

여기 내 문제는 사무실에서 해결되었지만 현장에있는 사람들에게는 위에서 언급 한 것과 같은 유사한 도구가 필요합니다. 그들이 자동 생성 된 ppt의 혜택을 얻은 다음, 그들에게 저에게 db에 추가 할 수있는 이메일을 통해 텍스트 파일을 보내도록 할 수 있습니다. 난 그냥이의 시작 부분에 얻고 있기 때문에 여기에

내 질문은 다음과 같습니다

년 - 형태 꽤 오래 PPT로가는 많은 정보가 있기 때문에, 그래서 다른에 대한 탭이 하나의 양식을 사용 섹션에 기록되지만 테이블에 기록됩니다. 이 모든 정보,이 레코드 하나를 텍스트 파일로 변환하는 방법은 무엇입니까? 그리고 Outlook으로 보내기 버튼을 한 번만 클릭하면 어떻게 사용할 수 있습니까?

- 사용자가 텍스트 파일을 전자 메일로 보낼 때 데이터베이스 테이블로 가져 오는 방법은 무엇입니까?

- 어떻게하면 VB를 볼 수 없도록 개체를 다른 응용 프로그램으로 가져올 수 없도록 MDE를 잠급니까?

기타 조언, 팁, "너의 미친놈!"환영합니다! 언제나처럼 고마워!

Answer 1

텍스트 파일 대신 복제를 고려 했습니까? 데이터는 액세스 보안이있는 복제 된 백엔드 파일에 저장되며 사용자에게 반환 될 수 있습니다. 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가 묻습니다 :

가 - 어떻게 당신이 MDE를 잠글 않는 VB 객체 보이지 않을이며, 너무 응용 프로그램에 을 가져올 수 없습니까?

질문하는 사람이 MDE가 무엇인지 파악하지 못하면 질문이 이해가되지 않습니다. 보이는 MDE에는 코드가 없습니다. 그것은 제거되었고 남아있는 것은 모두 컴파일 된 p- 코드입니다.부수적으로 정식 코드와 컴파일 된 p- 코드 간의 관계를 설명하는 Access의 VBA 컴파일에 대한 유용한 정보는 Michael Kaplan의 "The real deal on the /Decompile switch."

을 참조하십시오. 이는 코드가 포함 된 개체 (폼/보고서/모듈)에만 적용된다는 점에 유의하십시오.) 및 테이블 및 쿼리가 아닙니다.