Forums Últimos mensajes - Powered by IBM
 

Error de compilación

14/07/2010 - 18:58 por isidorodos | Informe spam
Buenas tardes:

Después de actualizar un campo hago que se busque el valor en una
tabla y si existe me avise con un mensaje, el código siguiente me ha
funcionado sin ningún problema desde hace años pero estoy actualizando
el formulario y desde hace unos días me salta el siguiente error
despues de actualizar el campo

Error de compilación, no se ha definido la variable

La línea que da el error es Set mibd = CurrentDb()

y el código que estoy usando es el siguiente:

Dim sSQL As String
sSQL = "SELECT * FROM articulos"
Set mibd = CurrentDb()
Set rsRegistros = mibd.OpenRecordset(sSQL, dbOpenDynaset)
If rsRegistros.RecordCount > 0 Then
Do While Not rsRegistros.EOF
If Me.idarticuloa = rsRegistros!idarticuloa Then
MsgBox "EL CÓDIGO DE ARTÍCULO YA EXISTE EN LA TABLA
ARTÍCULO, ELIJA OTRO CÓDIGO DE ARTÍCULO", vbInformation
Me.idarticuloa.SetFocus
Me.Undo
Exit Do
End If
rsRegistros.MoveNext
Loop
End If

No tengo muchos conocimientos de programación pero no se que está
pasando.

¿Alguna ayuda?

Utilizo Access 2002

Gracias y un saludo
 

Leer las respuestas

#1 jorge hector vega
15/07/2010 - 14:33 | Informe spam
Antes de la linea del error falto declarar la variable:

Dim mibd as Database

Y también tenes que declarar rsRegistros:

Dim rsRegistros as DAO.Recordset

Si no quieres hacer las declaracion de variables hay que eliminar la
siguiente línea al principio del código:

Option Explicit

Saludos.

Preguntas similares