RE:Actualizar sólo datos de ACCESS
Hala Mi menda.
A ver si me has entendido, abajo esta el código mas o menos o parecido al anterior, este es para otros documentos y necesitaria que la carpeta la cree alguna línea del código, si se puede claro. Por ejem: El documento se guardaria en la carpeta Almacen dentro de otra carpeta que debe crear el código y por ejem: con número correlativo, es decir carpeta 1, carpeta 2, carpeta 3 etc. Lo que en difinitiva quiero es a la carpeta almacen llamarla 2010 y ahí meter todas las subcarpetas que se generen automaticamente junto con el documento. No se si mé entiendes o me explico bién. Gracias Mi menda por dedicarme tu tiempo.
Private Sub Comando309_Click()
Dim appWord As Word.Application
Dim docs As Word.Documents
Dim doc As Word.Document
Dim campoWord As Object
Dim strRutaPlantilla As String
Dim strTestPlantilla As String
Dim strNuevoDocumento As String
On Error GoTo ManejadorError
' Ruta completa de la plantilla de Word
strRutaPlantilla = "C:\blas\Carta.dot"
' Ruta y nombre del nuevo documento
strNuevoDocumento = "C:\blas\almacen\" & Me.idnumreg & ".doc"
'Sí existe el archivo lo abrimos y nos salimos,
' sino existe lo creamos
MkDir "C:\Mi nueva carpeta"
strTestPlantilla = Nz(Dir(strNuevoDocumento))
If strTestPlantilla <> "" Then
If MsgBox("El Documento ya existe. ¿Desea actualizarlo", _
vbInformation + vbYesNo + vbDefaultButton2, _
"I2000 GADAR Actualizar Documento") = vbNo Then
'Esta linea la ponemos solo sí queremos que se abra el documento
Application.FollowHyperlink strNuevoDocumento
Exit Sub
End If
End If
Set appWord = CreateObject(Class:="Word.Application")
Set docs = appWord.Documents
Set doc = docs.Add(strRutaPlantilla)
Set campoWord = doc.CustomDocumentProperties
On Error Resume Next
campoWord.Item("idnumreg").Value = idnumreg
campoWord.Item("nombre").Value = nombre
campoWord.Item("fechasuceso").Value = fechasuceso
campoWord.Item("horasuceso").Value = horasuceso
campoWord.Item("dni").Value = dni
doc.Variables("manif").Value = Me.manif
' Sigue con los demás campos de word
With appWord
.Visible = True
.Selection.WholeStory
.Selection.Fields.Update
.ActiveDocument.SaveAs strNuevoDocumento
.Activate
.Selection.EndKey Unit:=wdStory
End With
ManejadorErrorSalir:
Exit Sub
ManejadorError:
If Err.Number = 429 Then
Set appWord = CreateObject(Class:="Word.Application")
Resume Next
Else
MsgBox Err.Description, , "Error Nº: " & Err.Number
Resume ManejadorErrorSalir
End If
End Sub