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 VLG (40 intervenciones) el 29/07/2009 21:12:49
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

RE:Combinar correspondencia vb -> access con pa

Publicado por juan carlos (518 intervenciones) el 24/08/2009 02:03:39
creo que ahi debes de ponre la pass

DocWord.MailMerge.OpenDataSource Name:=App.Path & "master.mdb"
ConfirmConversions:=False 'adios conversiones
ReadOnly:=False 'fuera solo lectura
LinkToSource:=True 'llamar a la fuente
AddToRecentFiles:=False 'no a los archivos recientes
PasswordDocument:="" 'no pass
PasswordTemplate:="" 'no pass temporal
PasswordTemplate:="" 'no pass temporal

creo que aqui es donde debes de poner 'poner la pass

WritePasswordDocument:="" 'grabar password
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar