SoloCodigo

hola a todos, he intentado buscar por el internet una funcion para copiar directorios pero no la he hallado, ademàs necesito poder copiar archivos de cierto tipo por ejemplo todos los *.doc de un directio a otro. Se que debe ser sencillo pero no he logrado encontrar, muchas gracias a quien me puede colaborar....saludos

Ok, muchas gracias Ebolo, probé el código y me funcionó perfectamente.

Tienes razón hay un apartado para VBA, lo tendré en cuenta

muy agradecido....saludos

hola, espero se encuentren bien, necesito ejecutar y abrir un archivo de acces desde un formulario de visual basic. ¿debo verificar alguna referencia en mi proyecto por menu Proyecto, Rerencias?

muchas gracias

cordial saludo, si alquien me puede ayudar.

- cómo creo un libro de excel con código y cómo le puedo colocar un nombre a tal libro.

- cómo puedo leer el contenido de un libro de excel y pasarlo los datos a una base de datos acces. Por ejemplo la columa  A y B de la hoja1 de excel transferir el contenido respectivamente a los campos "campo1" y "campo2" de la tabla de acces "tabla1" de la base de datos "base.mdb"

le agradezco mucho a quien me pueda colaborar.

Amigo, como dijiste que es en Acces, pues ahí es facil casi todo, lo que debes hacer es vincular la tabla que necesitas en una de las dos nases de datos, o sea si tienes BaseDatos1 y BaseDatos2, vincula la tabla de BaseDatos2 en BaseDatos1, y desde BaseDatos1 con el Generador de consultas resuelves todo, eso si tienes que relacionar las dos tabla a através de un campo común a las dos tablas. O si prefieres hacer la consulta desde un formulario independiente en un botón y hacer el SQl con sólo código, pues lo haces como si la tabla vinculada estuviera en la BaseDatos1 así:

Private Sub Comando0_Click()
Dim BASE As Database
Dim RS As Recordset
Dim SQL As String

Set BASE = Workspaces(0).OpenDatabase(CurrentDb.Name)

SQL = "SELECT  ( los campos de las dos tablas) FROM Tabla1,
Tabla2 WHERE campo_que relaciona Tabla1 = campo_que_relaciona_tabla2"

Set RS = BASE.OpenRecordset(SQL)

If RS.RecordCount > 0 Then
RS.MoveFirst
Do While Not RS.EOF
  código_que_muestra-los datos_puede ser en un cuadro de lista u una grilla
 RS.MoveNext
Loop

End If
End Sub

Espero te sirva,  saludos...!!

no se preocupen que ya averigué como hacer, asi:

dim ruta as string
ruta = DbcurrentDB.Name

y listo el pollo, con ese poquito código, ya se la ubicación desde una base de datos que tenga abierta. ....ok

Buenos días amigos, lei nuevamente sus respuestas y gracias de nuevo. Respecto al objeto CurrentDb la verdad no sabría como hacerlo si me dieras la idea para utilizar la función depronto solucionaría mi problema y muchas gracas también por el consejo de la divisiónde la base de datos. Pero para no confundirlos olvidémonos de la base de datos y mejor imaginen que creo un archivo en Access, pero sin crear tablas o sea un archivo Access llamado Pedidos.mdb ubicada en C:\  y con un sencillo formulario independiente que no hace casi nada, unicamente averiguar la ruta en donde se encuentre, o sea que si yo muevo el archivo Pedidos.mdb a la unidad D:\ cuando yo abra el formulario y oprima el botón me muestre D:\ esto es lo que necesito saber la ruta actual donde quiera que yo lo mueva.  El botón debería tener el siguiente código o algo me visualice la ruta actual:

Private Sub Command1_Click()
 MsgBox App.Path
End Sub

Si esto me funcionara,  maravilloso... porque cuando yo cree la base de datos en serio necesito automatizar muchas funciones con código que dependen de la ruta donde se encuentre, pero de eso me encargo yo.

En conclusión sólo necesito que Acces me muestre desde dónde tengo abierto un formulario al hacer click en un botón y ya.

De nuevo le doy gracias Brroz, FRIJU, Juanolo, Kev y Blaq por su interes.....muchos Saludos

Hola amigos, he leido todas sus respuestas y me alegra mucho el interes de ustedes por colaborarme y he aprendido muchas cosas, tienen razon que me faltaba la "\", y muchas gracias, pero les cuento algo que no estoy seguro, bueno el App.Path parece ser que no funciona en Access97, esto lo digo porque probé en Visual Basic 6.0 un simple código como este para probar:

Private Sub Command1_Click()
 Dim a As String
 a = App.Path
 MsgBox a
End Sub

y claro que me muestra la ruta actual.

Pero digito las mismas lineas en un formulario de Access97 y un botón de comando y cuando escribo app.path en minusculas y doy enter para cambiar al siguiente renglón, ni si quiera convierte en mayusculas las inciales de App.Path o sea que el visual basic de Access97 no tiene ni idea de esta función, o sea que piensa que app.path es una variable no declarada porque cuando ejecuto el código me depura el código me dice Error de compilacio, no se ha definido la variable y
me pone en azul app.

Depronto estoy equivocado o le falte algo  mi Access97 pero ya he probado en varios equipos. Si alguien sabe algo sobre lo que afirmo, le agradezco de nuevo....muchos Saludos y que la pasen super....

Hola, espero que se encuentren muy felices y prósperos. Necesito averiguar la ruta de mi base de datos, pues resulta que tengo algunos formularios que utilizan DAO para efectuar algunos procesos, entonces debo proporcionar la ruta de mi base de datos al objeto DATABASE, por ejemplo asi: SET Mibasedatos = Workspaces(0).Opendatabase ("C:\Mis Documentos\pedidos.mdb") pero como la ruta quedaría fija ahi escrita en el código, qué pasaría si en el futuro tengo que mover mi base de datos pedidos.mdb a otra carpeta o a otra unidad, pues cuando ejecute este código mi aplicación no encontraría el archivo en tal ruta, entonces mi pregunta es ¿puede Acces97 autoaveriguar cuál es la ruta donde se encuentre actualmente una base de datos abierta?  si es así, sería genial porque ya no colocaría la ruta, sino sólo el nombre del archivo "pedidos.mdb" y antes el código que averiguara la ruta actual.

Ah... les cuento que ya probé con (App.Path & "pedidos.mdb") pero arroja Error de compilación,  no se ha definido la varibale.

Si al guién me entiende y me puede colaborar, de antemanto te agradezco inmensamente. Que la sigan pasando muy bien....Saludos

hola, te agradecería que me enviares el código de tu programa, soy novato  en FoxPro, además  poco es lo que se habla de FoxPro y esta es una buena manera de aprender,  saludos y muchas gracias:

Mi email:
jpardo84@hotmail.com

ok, muchas gracias a los dos por la ayuda. Ya puse en práctica el código y me funcionó, aunque en un principio pensé que sería posile vincular con código directamente a la recordset con el combobox, pero concatenando también en una buena idea, lo que peligroso es tener cuidado de no cambiar el ancho o tamaño del campo en la bases de datos, porque despues de que genere un ejecutable toca y volver a cambiar y el código y generarlo de nuevo. En verdad gracias por su ayuda y buen día...

Hola a todos, si alguien puede colaborme, debe ser algo sencillo pero no lo se. Tengo un DataReport para visualizar una Factura, pero debo multiplicar el valor_total (proveniente de una función sumatoria de los campos Valor del la seccion detalle) x el 16%. Si alguien sabe le agradecería mucho su colaboración. Muchas gracias y saludos..!!

Hola, espero estén muy bien. Si alguien puede ayudarme, cómo paso un criterio de busqueda a un reporte pero a través de un formulario. Ya lo intente basando el reporte en una consulta con parámetros, pero cada vez que abro el repórte debo digitar el criterio, y así no me sirve, el criterio debe tomarse automaticamente de un textbox que tengo en un formulario abierto, he creado un botón desde aqui para mostrar el formulario pero no se como transmitirle el dato como criterio desde el TextBox. Agradezco inmensamente a quien me pueda colaborar..Saludos