Foros del Web » Soporte técnico » Ofimática »

Apoyo de programacion VBA Access

Estas en el tema de Apoyo de programacion VBA Access en el foro de Ofimática en Foros del Web. Saludos Cordiales, Solicito me ayuden con unas rutinas de progrmación en Access, he desarrollado en Visual Basic, pero esto no le encuentro correccion, les explico: ...
  #1 (permalink)  
Antiguo 08/01/2010, 01:53
 
Fecha de Ingreso: enero-2010
Mensajes: 3
Antigüedad: 14 años, 3 meses
Puntos: 0
Información Apoyo de programacion VBA Access

Saludos Cordiales,

Solicito me ayuden con unas rutinas de progrmación en Access, he desarrollado en Visual Basic, pero esto no le encuentro correccion, les explico:

he creado varios formularios para cargar datos en las distintas tablas de una base de datos de Access 2003 y deseo lo siguiente:

En un formulario de maquinas he colocado un campo de codigo de operador y al lado he colocado un campo donde debera aparecer el nombre del mismo en tal caso de que exista el registro en la tabla operadores que es separada de la tabla maquinas, en el evento change del campo codigo he colocado la siguiente programación:

Private Sub codigoperador_Change()
' Configurar el Objeto de la Base de Datos, configurar y colocar en memoria el registro segun el codigo de busqueda
Set dbAuditar = OpenDatabase("BdAuditoria.mdb")
Set rsTabla = dbAuditar.OpenRecordset("SELECT nombrepera, apellidopera WHERE codigopera = '" & Me.codigoperador.Value & "'FROM tblOperadores;")
axNomOperador = rsTabla.Fields(0).Value & " " & rsTabla.Fields(1).Value
dbAuditar.Close
Me.txtNombreOperador = axNomOperador
End Sub

En la linea de color rojo, me arroja el siguiente error:

Numero 3045: el archivo ya esta en uso

De hecho es cierto ya tengo la base de datos abierta, ¿como puedo hacer que busque el registro en la tabla especificada y me traiga el nombre?

Gracias
  #2 (permalink)  
Antiguo 08/01/2010, 09:03
Avatar de David
Moderador
 
Fecha de Ingreso: abril-2005
Ubicación: In this planet
Mensajes: 15.720
Antigüedad: 19 años
Puntos: 839
Respuesta: Apoyo de programacion VBA Access

En lugar de dbAuditar, usa directamente CurrentDb que se refiere a la base de datos actual.

Saludos.
__________________
Por favor, antes de preguntar, revisa la Guía para realizar preguntas.
  #3 (permalink)  
Antiguo 09/01/2010, 13:34
Avatar de mrocf  
Fecha de Ingreso: marzo-2007
Ubicación: Bs.As.
Mensajes: 1.103
Antigüedad: 17 años, 1 mes
Puntos: 88
Respuesta: Apoyo de programacion VBA Access

¿Intentaste con

Set dbAuditar = OpenDatabase("BdAuditoria.mdb", , True)

O sea: abrir la BD de "sólo lectura".
  #4 (permalink)  
Antiguo 10/01/2010, 01:42
 
Fecha de Ingreso: enero-2010
Mensajes: 3
Antigüedad: 14 años, 3 meses
Puntos: 0
Información Respuesta: Apoyo de programacion VBA Access

Si habia intentado con True y False y ninguno de los dos dio resultado, es por que la base de datos esta abierta, pero porbare con CurrentDb.

Gracias
  #5 (permalink)  
Antiguo 10/01/2010, 08:26
Avatar de mrocf  
Fecha de Ingreso: marzo-2007
Ubicación: Bs.As.
Mensajes: 1.103
Antigüedad: 17 años, 1 mes
Puntos: 88
Respuesta: Apoyo de programacion VBA Access

Si eso no te llegara a funcionar, apunta a "la fuente" del problema...

O sea: quien haya abierto previamente la base, debe abrirla "compartida".

Etiquetas: access, programacion, vba
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 00:08.