|
| |||||||
| Registrarse | Preguntas Frecuentes | Lista de Foreros | Calendario | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
 |
| | LinkBack | Herramientas | Desplegado |
09-01-2008, 19:08:22
| |||
| |||
 Abrir base Access 2000 con código VB: problemas Hola a todos, Hace unas semanas hice un fihero VBS para poder abrir una base de datos según su versión y copiando un código de J.M. Afan. Lo que ocurre es que dicho código me funciona con Access 97 y con Access 2003, pero no con Access2000 y no entiendo el porqué !!!!??? El código es el siguiente: 'Juan M. Afan de Rivera Dim oApp Dim version Dim acSysCmdAccessVer acSysCmdAccessVer = 7 Set oApp = CreateObject("Access.Application") version = oApp.SysCmd(acSysCmdAccessVer) Select Case version Case "8.0" ': MsgBox "Access 97" oApp.OpenCurrentDatabase opath & "Base97.mde" Case "9.0" ': MsgBox "Access 2000" oApp.OpenCurrentDatabase opath & "Base2000.mdb", True Case "10.0" ': MsgBox "Access 2002" oApp.OpenCurrentDatabase opath & "Base2000.mdb", True Case "11.0" ': MsgBox "Access 2003" oApp.AutomationSecurity = 1 oApp.OpenCurrentDatabase opath & "Base2000.mdb", True End Select Set oApp = Nothing Set fso = Nothing Por si acaso, he creado una nueva base con el A2000 y con una sola tabla, pero tampoco... Alguno sabe porqué puede ser? Gracias, Martí  |
| Today
| ||||
| ||||
 Sponsored Links |
|
10-01-2008, 21:30:30
| |||
| |||
| Re: Abrir base Access 2000 con código VB: problemas Me da que es un tema de referencias, ¿has mirado si en la de 2000 tienes referenciado DAO? -- -- ** Colabora con el grupo, contesta a este mensaje y dinos si te sirvió o no la respuesta dada. Muchas gracias. Salu2 Ju***nK [MVP Access] http://juank.mvps.org Correos personales o preguntas particulares en mi grupo http://groups.google.es/group/juank http://juankc.spaces.live.com/ http://juank.mvps.org/ www.juank.tk www.mvp-access.com ¿Que es un MVP?, entérate en http://mvp.support.microsoft.com Nota: El contenido de este mensaje, así como el código fuente que pueda ir incluido en el mismo, se proporciona «COMO ESTÁ», sin garantías de ninguna clase, y no otorga derecho alguno. Usted asume cualquier riesgo al poner en práctica, utilizar o ejecutar la sugerencia del presente mensaje. ** "marjan" <de hotmail : centralbib> escribió en el mensaje news:uGFdCMvUIHA.4196***TK2MSFTNGP04.phx.gbl... > Hola a todos, > > Hace unas semanas hice un fihero VBS para poder abrir una base de datos > según su versión y copiando un código de J.M. Afan. > > Lo que ocurre es que dicho código me funciona con Access 97 y con Access > 2003, pero no con Access2000 y no entiendo el porqué !!!!??? > > El código es el siguiente: > > 'Juan M. Afan de Rivera > Dim oApp > Dim version > Dim acSysCmdAccessVer > acSysCmdAccessVer = 7 > Set oApp = CreateObject("Access.Application") > version = oApp.SysCmd(acSysCmdAccessVer) > Select Case version > Case "8.0" ': MsgBox "Access 97" > oApp.OpenCurrentDatabase opath & "Base97.mde" > Case "9.0" ': MsgBox "Access 2000" > oApp.OpenCurrentDatabase opath & "Base2000.mdb", True > Case "10.0" ': MsgBox "Access 2002" > oApp.OpenCurrentDatabase opath & "Base2000.mdb", True > Case "11.0" ': MsgBox "Access 2003" > oApp.AutomationSecurity = 1 > oApp.OpenCurrentDatabase opath & "Base2000.mdb", True > End Select > Set oApp = Nothing > Set fso = Nothing > > Por si acaso, he creado una nueva base con el A2000 y con una sola tabla, > pero tampoco... > > Alguno sabe porqué puede ser? > > Gracias, > > > Martí > > > > > > > > > |
|
11-01-2008, 16:58:51
| |||
| |||
| Re: Abrir base Access 2000 con código VB: problemas Hola Marjan: He probado tu código con Access 2000, y funciona bien. ¿No será que la máquina donde está el Access 2000 hay alguna restricción para ejecutar archivos vbs? Tampoco indicas en qué es lo que falla el código. -- Un saludo, Patxi Sanz patxisanz[ARROBA]yahoo[PUNTO]es Tudela (NA) |
|
11-01-2008, 17:01:38
| |||
| |||
| Re: Abrir base Access 2000 con código VB: problemas Ya está "solucionado" aunque no lo entiendo, he añadido la linea oApp.Visible = True antes de abrir la base y ya está. En cambio no era necesaria en A97 o A2003 (con otras versiones no lo he probado) Mi versión de A2000 es la 9.0.3821 (SR-1) y las referencias DAO estaban bién. Gracias a los dos por vuestras respuestas... si averiguais porque pasa eso os agradecería que me lo dijerais. Martí "Ju***nk" <condek***hotmail.com> escribió en el mensaje news:uraDLA9UIHA.5160***TK2MSFTNGP05.phx.gbl... > Me da que es un tema de referencias, ¿has mirado si en la de 2000 tienes > referenciado DAO? > > -- > -- > ** > Colabora con el grupo, contesta a este mensaje y dinos si te sirvió o no > la > respuesta dada. > Muchas gracias. > > Salu2 > Ju***nK [MVP Access] > http://juank.mvps.org > Correos personales o preguntas particulares en mi grupo > http://groups.google.es/group/juank > http://juankc.spaces.live.com/ > http://juank.mvps.org/ > www.juank.tk > www.mvp-access.com > ¿Que es un MVP?, entérate en http://mvp.support.microsoft.com > > Nota: El contenido de este mensaje, así como el código > fuente que pueda ir incluido en el mismo, se proporciona > «COMO ESTÁ», sin garantías de ninguna clase, y no otorga > derecho alguno. Usted asume cualquier riesgo al poner en > práctica, utilizar o ejecutar la sugerencia del presente mensaje. > ** > "marjan" <de hotmail : centralbib> escribió en el mensaje > news:uGFdCMvUIHA.4196***TK2MSFTNGP04.phx.gbl... >> Hola a todos, >> >> Hace unas semanas hice un fihero VBS para poder abrir una base de datos >> según su versión y copiando un código de J.M. Afan. >> >> Lo que ocurre es que dicho código me funciona con Access 97 y con Access >> 2003, pero no con Access2000 y no entiendo el porqué !!!!??? >> >> El código es el siguiente: >> >> 'Juan M. Afan de Rivera >> Dim oApp >> Dim version >> Dim acSysCmdAccessVer >> acSysCmdAccessVer = 7 >> Set oApp = CreateObject("Access.Application") >> version = oApp.SysCmd(acSysCmdAccessVer) >> Select Case version >> Case "8.0" ': MsgBox "Access 97" >> oApp.OpenCurrentDatabase opath & "Base97.mde" >> Case "9.0" ': MsgBox "Access 2000" >> oApp.OpenCurrentDatabase opath & "Base2000.mdb", True >> Case "10.0" ': MsgBox "Access 2002" >> oApp.OpenCurrentDatabase opath & "Base2000.mdb", True >> Case "11.0" ': MsgBox "Access 2003" >> oApp.AutomationSecurity = 1 >> oApp.OpenCurrentDatabase opath & "Base2000.mdb", True >> End Select >> Set oApp = Nothing >> Set fso = Nothing >> >> Por si acaso, he creado una nueva base con el A2000 y con una sola tabla, >> pero tampoco... >> >> Alguno sabe porqué puede ser? >> >> Gracias, >> >> >> Martí >> >> >> >> >> >> >> >> >> > > |
|
11-01-2008, 19:15:10
| |||
| |||
| Re: Abrir base Access 2000 con código VB: problemas Hola Patxi, Lo he probado en dos máquinas diferentes... Como ves en mi mensaje anterior lo "solucioné" 'oApp.Visible = True'... Lo descubrí porque al intentar abrir la base se veia como un pantallazo rápido, desaparecia y se quedaba la base bloqueada (con el .ldb abierto) o el proceso abierto sin aparecer el .ldb (tenía que matar el proceso con ctrl+alt+supr), o sea: se ocultaba. ¿Porqué? No lo sé... Lo cierto que es no he actualizado a la versión SR2 ya que solo tenía a mano la SR1, quizás sea eso... También abrí la base en modos Exclusivo y Compartido por si acaso, pero igual. También lo que me ocurre es que tengo una macro autoexec para maximizar la ventana de la aplicación cuando se abre, pero en A2000 no me hace caso. (Tengo un DoCmd.Maximize en el form de inicio por si acaso, pero tampoco: se abre en modo restaurado) Esto es el rollo de las versiones de Access  (y de otras aplicaciones debases de datos) Gracias de nuevo, Martí "Patxi Sanz" <patxisanz[ARROBA]yahoo[PUNTO]es> escribió en el mensaje news:e88kBNHVIHA.3568***TK2MSFTNGP06.phx.gbl... > Hola Marjan: > > He probado tu código con Access 2000, y funciona bien. ¿No será que la > máquina donde está el Access 2000 hay alguna restricción para ejecutar > archivos vbs? > > Tampoco indicas en qué es lo que falla el código. > > -- > Un saludo, > > > Patxi Sanz > patxisanz[ARROBA]yahoo[PUNTO]es > Tudela (NA) > > |
|
14-01-2008, 05:55:29
| |||
| |||
| Re: Abrir base Access 2000 con código VB: problemas Pueden ser cosas de los diferentes motores JET, ya me he encontrado con cosas parecidas :-( -- -- ** Colabora con el grupo, contesta a este mensaje y dinos si te sirvió o no la respuesta dada. Muchas gracias. Salu2 Ju***nK [MVP Access] http://juank.mvps.org Correos personales o preguntas particulares en mi grupo http://groups.google.es/group/juank http://juankc.spaces.live.com/ http://juank.mvps.org/ www.juank.tk www.mvp-access.com ¿Que es un MVP?, entérate en http://mvp.support.microsoft.com Nota: El contenido de este mensaje, así como el código fuente que pueda ir incluido en el mismo, se proporciona «COMO ESTÁ», sin garantías de ninguna clase, y no otorga derecho alguno. Usted asume cualquier riesgo al poner en práctica, utilizar o ejecutar la sugerencia del presente mensaje. ** "marjan" <de hotmail : centralbib> escribió en el mensaje news:uvGRhOHVIHA.5396***TK2MSFTNGP02.phx.gbl... > Ya está "solucionado" aunque no lo entiendo, he añadido la linea > oApp.Visible = True > antes de abrir la base y ya está. > En cambio no era necesaria en A97 o A2003 (con otras versiones no lo he > probado) > > Mi versión de A2000 es la 9.0.3821 (SR-1) y las referencias DAO estaban > bién. > > Gracias a los dos por vuestras respuestas... si averiguais porque pasa eso > os agradecería que me lo dijerais. > > Martí > > > "Ju***nk" <condek***hotmail.com> escribió en el mensaje > news:uraDLA9UIHA.5160***TK2MSFTNGP05.phx.gbl... >> Me da que es un tema de referencias, ¿has mirado si en la de 2000 tienes >> referenciado DAO? >> >> -- >> -- >> ** >> Colabora con el grupo, contesta a este mensaje y dinos si te sirvió o no >> la >> respuesta dada. >> Muchas gracias. >> >> Salu2 >> Ju***nK [MVP Access] >> http://juank.mvps.org >> Correos personales o preguntas particulares en mi grupo >> http://groups.google.es/group/juank >> http://juankc.spaces.live.com/ >> http://juank.mvps.org/ >> www.juank.tk >> www.mvp-access.com >> ¿Que es un MVP?, entérate en http://mvp.support.microsoft.com >> >> Nota: El contenido de este mensaje, así como el código >> fuente que pueda ir incluido en el mismo, se proporciona >> «COMO ESTÁ», sin garantías de ninguna clase, y no otorga >> derecho alguno. Usted asume cualquier riesgo al poner en >> práctica, utilizar o ejecutar la sugerencia del presente mensaje. >> ** >> "marjan" <de hotmail : centralbib> escribió en el mensaje >> news:uGFdCMvUIHA.4196***TK2MSFTNGP04.phx.gbl... >>> Hola a todos, >>> >>> Hace unas semanas hice un fihero VBS para poder abrir una base de datos >>> según su versión y copiando un código de J.M. Afan. >>> >>> Lo que ocurre es que dicho código me funciona con Access 97 y con Access >>> 2003, pero no con Access2000 y no entiendo el porqué !!!!??? >>> >>> El código es el siguiente: >>> >>> 'Juan M. Afan de Rivera >>> Dim oApp >>> Dim version >>> Dim acSysCmdAccessVer >>> acSysCmdAccessVer = 7 >>> Set oApp = CreateObject("Access.Application") >>> version = oApp.SysCmd(acSysCmdAccessVer) >>> Select Case version >>> Case "8.0" ': MsgBox "Access 97" >>> oApp.OpenCurrentDatabase opath & "Base97.mde" >>> Case "9.0" ': MsgBox "Access 2000" >>> oApp.OpenCurrentDatabase opath & "Base2000.mdb", True >>> Case "10.0" ': MsgBox "Access 2002" >>> oApp.OpenCurrentDatabase opath & "Base2000.mdb", True >>> Case "11.0" ': MsgBox "Access 2003" >>> oApp.AutomationSecurity = 1 >>> oApp.OpenCurrentDatabase opath & "Base2000.mdb", True >>> End Select >>> Set oApp = Nothing >>> Set fso = Nothing >>> >>> Por si acaso, he creado una nueva base con el A2000 y con una sola >>> tabla, pero tampoco... >>> >>> Alguno sabe porqué puede ser? >>> >>> Gracias, >>> >>> >>> Martí >>> >>> >>> >>> >>> >>> >>> >>> >>> >> >> > > |
|
14-01-2008, 05:56:26
| |||
| |||
| Re: Abrir base Access 2000 con código VB: problemas Has mirado como tienes la propiedad "Ventanas en la Barra de tareas" -- -- ** Colabora con el grupo, contesta a este mensaje y dinos si te sirvió o no la respuesta dada. Muchas gracias. Salu2 Ju***nK [MVP Access] http://juank.mvps.org Correos personales o preguntas particulares en mi grupo http://groups.google.es/group/juank http://juankc.spaces.live.com/ http://juank.mvps.org/ www.juank.tk www.mvp-access.com ¿Que es un MVP?, entérate en http://mvp.support.microsoft.com Nota: El contenido de este mensaje, así como el código fuente que pueda ir incluido en el mismo, se proporciona «COMO ESTÁ», sin garantías de ninguna clase, y no otorga derecho alguno. Usted asume cualquier riesgo al poner en práctica, utilizar o ejecutar la sugerencia del presente mensaje. ** "marjan" <de hotmail : centralbib> escribió en el mensaje news:%23jztIZIVIHA.5396***TK2MSFTNGP02.phx.gbl... > Hola Patxi, > > Lo he probado en dos máquinas diferentes... Como ves en mi mensaje > anterior lo "solucioné" 'oApp.Visible = True'... > > Lo descubrí porque al intentar abrir la base se veia como un pantallazo > rápido, desaparecia y se quedaba la base bloqueada (con el .ldb abierto) o > el proceso abierto sin aparecer el .ldb (tenía que matar el proceso con > ctrl+alt+supr), o sea: se ocultaba. > > ¿Porqué? No lo sé... Lo cierto que es no he actualizado a la versión SR2 > ya que solo tenía a mano la SR1, quizás sea eso... > > También abrí la base en modos Exclusivo y Compartido por si acaso, pero > igual. > > También lo que me ocurre es que tengo una macro autoexec para maximizar la > ventana de la aplicación cuando se abre, pero en A2000 no me hace caso. > (Tengo un DoCmd.Maximize en el form de inicio por si acaso, pero tampoco: > se abre en modo restaurado) > > Esto es el rollo de las versiones de Access (y de otras aplicaciones de> bases de datos) > > Gracias de nuevo, > > > Martí > > > > > > > "Patxi Sanz" <patxisanz[ARROBA]yahoo[PUNTO]es> escribió en el mensaje > news:e88kBNHVIHA.3568***TK2MSFTNGP06.phx.gbl... >> Hola Marjan: >> >> He probado tu código con Access 2000, y funciona bien. ¿No será que la >> máquina donde está el Access 2000 hay alguna restricción para ejecutar >> archivos vbs? >> >> Tampoco indicas en qué es lo que falla el código. >> >> -- >> Un saludo, >> >> >> Patxi Sanz >> patxisanz[ARROBA]yahoo[PUNTO]es >> Tudela (NA) >> >> > > |
| |
| |
|
| Herramientas | |
| Desplegado | |
| |
Temas Similares | ||||
| Tema | Autor | Foro | Respuestas | Último mensaje |
| Como abrir una base de access y un formulario a la vez? | Roy | Newsgroup microsoft.public.es.access | 2 | 14-05-2008 20:33:35 |
| Convertir base de access 97 a 2000 | JAVIER ROBLES | Newsgroup microsoft.public.es.vb | 3 | 11-01-2008 11:57:19 |
| Abrir base de datos access | Hugo A. Gsell | Newsgroup microsoft.public.es.dotnet.aspnet | 1 | 27-10-2007 16:11:00 |
| Como Crear una Base de Datos Access mediante codigo | Matheoz | Newsgroup microsoft.public.es.dotnet.ado | 6 | 04-10-2007 23:19:47 |
| pasar código VB a Access 2000 | Helen | Newsgroup es.comp.bd.ms-access | 0 | 19-05-2007 23:49:00 |
Mode Lineal
