| ebolo |  |
|
2007-06-21 11:05 - Respuestas: 10 - Tema nº: 2453816
Creo que ya te entiendo; los docs originales tienen más información que lo existente en la bd. Sólo que le falta a algunos docs información que Sí está en la bd.
Los docs se llaman como el NºBiopsia y siempre ocurre que *1* corresponde al Nombre, *2* a Edad,...
¿Los docs están todos en la misma carpeta?.
Saludos.
| |
|
|
| puzzleman |  |
|
Re: Rellenar archivos de texto o word con datos de acces (Solucionado) - 2007-06-21 11:54 - Respuesta 7
Asi es, estan todos en la misma carpeta y a todos les falta la informacion esa, no solo a unos pocos. Lo que tengo que hacer es rellenar lo que falta en todos los docs que siempre es los mismos campos en todos por lo que tiene la base de datos, sabiendo que como cada doc tiene un nombre que se corresponde con NºBiopsia, de esa forma es como se puede sacar la info de la bd.
Saludos! | |
|
|
| ebolo | |
|
Re: Rellenar archivos de texto o word con datos de acces (Solucionado) - 2007-06-22 09:08 - Respuesta 8
Hola de nuevo; yo lo que haría es intentar meter todos los datos de los docs en la bd y crearme un informe general que contenga los campos de la tabla donde se hallen, de forma que cuando necesites un historial mandes imprimir un informe y ya lo tengas.
Te comento ésto porque creo que es lo más correcto y lo más cómodo de cara a un futuro tener todos los datos en la bd si es que vas a seguir usándola; si sólo es de forma esporádica pues entonces lo entiendo.
De todas formas se puede hacer lo que quieres, aunque no lo he hecho nunca, no me resulta en principio difícil, pero considero la solución que te propongo la más acertada.
Un saludo.
| |
|
|
| puzzleman | |
|
Re: Rellenar archivos de texto o word con datos de acces (Solucionado) - 2007-06-22 10:00 - Respuesta 9
La verdad es que si puede resultar mas comodo, pero los docs no siempre todos tienen los mismos campos de informacion despues de los primeros comunes y ademas pueden llegar a ser 2 paginas de texto. Si con esto no hay problema entonces perfecto.
Saludos! | |
|
|
| ebolo | |
|
Re: Rellenar archivos de texto o word con datos de acces (Solucionado) - 2007-06-24 00:22 - Respuesta 10
Hola de nuevo; te dejo un código que te reemplaza todos los doc de una carpeta, según la consulta SQL que se hace.
Mírala y si no entiendes algo lo dices; yo he puesto de forma fija cambiar sólo 5 campos como ejemplo.
Private Sub Comando1_Click()
Dim docu, WB, midoc As Object
Dim txtlibro As String, q As Integer
Dim ruta, consulta As String
Dim rs As DAO.Recordset
ruta = "C:\turuta\*.doc"
txtlibro = Dir$(ruta)
Set WB = CreateObject("Word.Application")
While Len(txtlibro)
Set docu = WB.Documents.Open(Left$(ruta, Len(ruta) - 5) & txtlibro)
Set midoc = WB.ActiveDocument.Range(Start:=0, End:=0)
consulta = "SELECT DATOS.NºBIOPSIA, DATOS.PACIENTE, DATOS.EDAD, DATOS.MEDICO, DATOS.ORGANO, DATOS.DIAGNOSTICO"
consulta = consulta & " FROM DATOS"
consulta = consulta & " WHERE (((DATOS.NºBIOPSIA)='" & Left(txtlibro, Len(txtlibro) - 4) & "'))"
Set rs = CurrentDb.OpenRecordset(consulta)
If Not rs.EOF Then
With midoc.Find
.ClearFormatting
.Text = "*1*"
With .Replacement
.ClearFormatting
.Text = rs!Paciente
End With
.Execute Replace:="2", Format:=True, MatchCase:=True, MatchWholeWord:=True
.Text = "*2*"
With .Replacement
.ClearFormatting
.Text = rs!Edad
End With
.Execute Replace:="2", Format:=True, MatchCase:=True, MatchWholeWord:=True
.Text = "*3*"
With .Replacement
.ClearFormatting
.Text = rs!Medico
End With
.Execute Replace:="2", Format:=True, MatchCase:=True, MatchWholeWord:=True
.Text = "*4*"
With .Replacement
.ClearFormatting
.Text = rs!Organo
End With
.Execute Replace:="2", Format:=True, MatchCase:=True, MatchWholeWord:=True
.Text = "*5*"
With .Replacement
.ClearFormatting
.Text = rs!Diagnostico
End With
.Execute Replace:="2", Format:=True, MatchCase:=True, MatchWholeWord:=True
End With
End If
docu.Close
txtlibro = Dir$
Wend
Set docu = Nothing
Set midoc = Nothing
Set WB = Nothing
End Sub
Saludos.
| |
|
|
|
