SoloCodigo

Bueno, en realidad sería App.Path & "\pedidos.mdb", porque recuerda que el archivo va a estar dentro de una carpeta y el "\", representa eso.

No se porque te dá error de compilación......ya que no necesitas ninguna variable....el App.Path es interno al VB.

Saludos,

 

Está casi todo dicho, pero me permito darte un pequeño consejo:
En lugar de declarar:
 SET Mibasedatos = Workspaces(0).Opendatabase ("C:\Mis Documentos\pedidos.mdb")
reemplaza la cadena por una variable. Por ejemplo, podrías declarar la variable global MiBase. Luego, al iniciar la aplicación cargas la variable:
MiBase="C:\Mis Documentos\pedidos.mdb"
Luego la instrucción sería:
SET Mibasedatos = Workspaces(0).Opendatabase (MiBase)
Así cuando cambies la ubicación, basta con que  cambies la cadena que cargas en la variable, no debiendo tocar el resto del código.
Una posibilidad un tanto más avanzada, es que des al usuario la posibilidad de indicar la dirección y guardar esta información en un archivo INI (por ejemplo), y cargarla desde ahí cuando sea necesario.
Espero te sirva.
Salu2.

Falta "\", pero buscando en la web encontre que al usar app.path usan una condicion para averiguar si la direccion tiene o no al final el caracter "\", alguien sabe porque se pregunta eso, puede darse el caso de que app.path devuelva al final de la ruta el caracter "\"

Nota.- La mayoria aconseja usar ADO en lugar de DAO, aunque con DAO haces cosas que no puedes hacer don ADO como por ejemplo compactar un base de datos.

Adios.

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 jpardo84.

La forma que conozco para obtener el path de la base de datos es a través del objecto CurrentDb. La propiedad Name proporciona el nombre con la ruta completa de la base de datos, por lo que como imagino por lo que dices que lo que necesitas es el nombre y ubicación de la bd, no necesitas hacer nada más. Si sólo necesitaras recuperar la ruta, necesitarías hacer una muy sencilla función para recuperarla.

Suerte.

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

Este se me escapó y no lo puedo eliminar...

Ok Brroz,  diste en el blanco, eso era precisamente lo que necesitaba, estoy muy agradecido contigo y con todo los que participaron de la discusión.
Este código lo andaba buscando desde hace unos 8 meses y nada hasta que por fin:

Dim str1 As String, int1 As Integer
   str1 = CurrentDb.Name
   'Con vba de access no dispones de InStrRev , una pena...
   For int1 = Len(str1) To 1 Step -1
       If Mid(str1, int1, 1) = "\" Then Exit For
   Next int1
   str1 = Left(str1, int1)
   MsgBox str1

Genial, ahora puedo utilizar la variable str1 para suministrarle la ruta al objeto Database ya sea en DAO o ADO.

De nuevo les estoy mu agradecido, y espero participar de nuevo en algún otro tema.....Saludos y un buen día...!!