Visual Basic - Combinar correspondencia vb -> access con pass

Life is soft - evento anual de software empresarial
   
Vista:

Combinar correspondencia vb -> access con pass

Publicado por VLG1971 (40 intervenciones) el 29/07/2009 21:16:00
Hola mi intencion es combinar correspondencia desde vb a un access esto ya lo he conseguido pero ahora me dicen que quieren poner una contraseña al la BD, este me esta originando problemas con el codigo que ya tenia, este codigo es el siguiente:

Dim AppWord As Word.Application
Dim DocWord As Word.Document
Dim MyAppID, ReturnValue
Set DocWord = New Word.Document
Set AppWord = New Word.Application
Set DocWord = AppWord.Documents.Open(App.Path & "Reactor_combinar_correspondencia.dot")
' C:MAIL.DOC es el documento Word
AppWord.Visible = True

DocWord.MailMerge.OpenDataSource Name:=App.Path & "master.mdb", ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, Format:=wdOpenFormatAuto, Connection:="TABLE Import_Oferta_Word", SQLStatement:="SELECT * FROM [Import_Oferta_Word] where Usuario like '" & mNombreUsuario & "'", SQLStatement1:=""

With DocWord.MailMerge
.Destination = wdSendToNewDocument ' o wdSendToPrinter si lo quieres directo a impresora
.MailAsAttachment = False
.MailAddressFieldName = ""
.MailSubject = ""
.SuppressBlankLines = True
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
.Execute Pause:=True
End With

SABEIS DONDE TENGO QUE PONER LA CONTRASEÑA ?
GRACIAS POR LA ATENCION
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder