Laura
26 de Junio del 2003

He creado una sencilla aplicaci贸n con VB6 para mostrar los datos de un archivo de access97, ahora quiero crear un formulario para que me muestre en la aplicacion un registro concreto (por ejemplo los datos correspondientes al numero de expediente 2056A) y no se como hacerlo, el acceso a la base de datos es DAO 3.51.

¿Podeis ayudarme?

Tambien quiero que me abra un archivo de word al apretar un commandbutton, he probado con lo siguiente y no me funciona.

openfile "c:ejemplosuno.doc"
y tambien he probado:
open "c:ejemplosuno.doc"

¿Podeis ayudarme?

stefen
26 de Junio del 2003

************ lo de word ************
Private WordServer As Word.Application

Private Sub Command1_Click()
Set WordServer = New Word.Application
WordServer.Visible = True
WordServer.Documents.Open _
FileName:="c:/ENTRADASSALIDASTIPOMOVIMIENTOS.doc", _
ConfirmConversions:=False, _
ReadOnly:=False, _
AddToRecentFiles:=False, _
PasswordDocument:="", _
PasswordTemplate:="", _
Revert:=False, _
WritePasswordDocument:="", _
WritePasswordTemplate:="", _
Format:=wdOpenFormatAuto
WordServer.WindowState = wdWindowStateMaximize
End Sub
************************
*********** el filtrado ************

si usas un data:

data1.recordsource=" select * from (nombretabla) where (nombrecampo)=2056A"

贸

data1.recordsource=" select * from (nombretabla) where (nombrecampo)=" & variable
***** si la variable no es numerica

data1.recordsource=" select * from (nombretabla) where (nombrecampo)='" & variable & "'"

****** si lo quieres ordenar por algun campo

data1.recordsource=" select * from (nombretabla) where (nombrecampo)='" & variable & "' order by nombrecampo"

stefen
26 de Junio del 2003

Se me olvidaba, para que te funcione lo del word
tendras que a帽adir la referencia del word a tu proyecto:
en el menu: proyecto/ referencias
buscas: Microsoft Word 8.0 Object Library, la marcas y pulsa ok