| Pregunta: | 63652 - PROBLEMA DEFINICIÓN DE PATH POR DEFECTO PARA MDB DE BASE DE |
| Autor: | Allvaro |
| Hoal, no consigo llegar a saber cómo puedo poner un path por defecto (no todo el path sino que acceda al mdb de base de datos en el mismo directorio donde tenga el mdb de programas) . Tengo una aplicación en Access 2003 con VBA, con un mdb para Programas y otro mdb para la B.Datos. Todo lo que quiero es que, cuando paso ambos a otro PC (los dos mdb en el mismo directorio) el mdb de Programas acceda al mdb de B.Datos sin tener que,cada vez, vincularla.
Ya sé que apppath no funciona en esta versión (es CurrentProject.Path, CurrentProject.Name, ...fullname y CurrentDb.Name, para conocer la información de base). Pero ¿qué debo hacer ahora? También me he definido un módulo "inicial" que accedo desde el programa "inicial" pero no consigo poner el código correcto. ¿alguien puede ayudarme? Gracias | |
| Respuesta: | lenin valderrama alvis |
| Este código es para el PATH ACTUAL
On Error GoTo Errorleva Dim cade As String Dim via As String via = CurrentProject.Path & "fotis" cade = via & Trim(codest) & ".gif" Image1.Picture = LoadPicture(cade) Exit Sub Errorleva: Exit Sub Y este es para saber sobre la Base de datos actual On Error GoTo Error_Leva Dim dbsA As Database Set dbsA = CurrentDb Dim posi As Integer 'Primer 1 es desde qué posición. Ultimo 1 signifia textual, si coloca 0 es binaria posi = InStr(1, dbsA.Name, "docente", 1) If posi = 0 Then MsgBox "Error. Debe estar en la Base de Datos Docente.mdb." Exit Sub End If Dim stDocName As String stDocName = "borrarloquesobra" DoCmd.RunMacro stDocName MsgBox "Proceso culminado" Exit Sub Error_Leva: Exit Sub | |