Variables tipo Recordset

Quisiera saber si puedes ayudarme con la siguiente inquietud:
Mira estoy realizando un pequeño formulario en Access 2000 en donde se ingresa el nombre de usuario y contraseña, para esto estoy utilizando el siguiente código:
Option Compare Database
Option Explicit
Private Sub cmdOk_Click()
On Error GoTo Err_cmdOk_Click
Dim Rst As Recordset
Dim Sql As String
Sql = "SELECT * FROM seguridad WHERE [Nombre]=" & "'" & Me.txtusuario & "'" _
& "AND [Password]=" & "'" & Me.txtpassword & "';"
Set Rst = CurrentDb.OpenRecordset(Sql, dbOpenDynaset)
If Rst.EOF = False Then
Dim itemmenu As CommandBarControls
Set itemmenu = CommandBars("MnuProlab").Controls("Analíticas")
If Rst("Analíticas") = False Then
itemmenu.Enable = False
End If
Else
MsgBox "Usuario y/o contraseña no son válidos.", vbCritical, "Error de autentificación"
Rst.Close
Set Rst = Nothing
DoCmd.Quit
End If
Rst.Close
Set Rst = Nothing
DoCmd.OpenForm "Educacion"
DoCmd.Close acForm, "seguridad"
Exit_cmdOk_Click:
Exit Sub
Err_cmdOk_Click:
MsgBox Err.Description
Resume Exit_cmdOk_Click
End Sub
Al momento de compilarlo me da un error que me dice que NO ESTA DEFINIDA LA VARIABLE en la linea:
Set Rst = CurrentDb.OpenRecordset(Sql, dbOpenDynaset)
¿Me puedes ayudar? No se que hacer

1 respuesta

Respuesta
1
Para empezar
¿CurrentDB esta seteada? ¿Y abierta?
Tal vez sea eso...
Cualquier cosa me vuelves a preguntar
A ver...
¿Currentdb es del tipo database?
O es adodc. Connection...
tal vez sea eso...
Prueba poniendo el nombre real de la base de donde tiene que tomar los datos...
Solamente para una prueba a ver si lo otro funciona...
U otro consejo... estas mirando en la tabla para ver el password...
Dynaset te permite editar la tabla...
Porque no la abres directamente como forwardonly
O alguno de los otros métodos de solo lectura...
Que es lo que vas a hacer para comparar el usuario y el password...
No necesitas escribir nada
Es solo un consejo
Espero que te sirva...
Cualquier otra duda vuelve a preguntar...
Y no tienes nada de ignorante si hubieras leído algunas de las preguntas que hice yo... ya me pongo colorado =)
Ezequiel..
Gracias por tu respuesta, sabes al momento de querer crear mi variable tipo Database me aparece el mensaje de que LA VARIABLE NO ESTA DEFINIDA POR EL USUARIO, ¿crees qué sea problema de librerías?, la verdad no tengo idea de que pueda ser.
A ver...
Cuando pones la variable
dim db as database ..
¿Te aparece en la opción del as database?
Porque si no tienes que agregar la referencia a:
MS ado object library ... la mas avanzada que tengas...
a ver si es eso
Bingo!... eran las librerías, pero ahora tengo otro problema. Me da un error de que NO COINCIDEN LOS TIPOS en la linea:
Set Rst = CurrentDb.OpenRecordset(Sql, dbOpenDynaset)
Disculpa la ignorancia...
¿Ha a ver que estas usando?
Tal vez estas usando ado
Para ado no se declara distinto el recordset
Seria algo así como
dim rst as adodc.recordset
:(
Te cuento que no he podido soluciona el problema, ¿qué más puedo hacer?, ¿Crees qué sea problema de la base de datos o de alguna otra librería?...
En esa misma linea me da el error, incluso he intentado utilizando las diferentes opciones de lectura pero me da el mismo error..
Ezequiel si era ese el problema el tipo declarado tenia que ser DAO. Recordset, con eso ya no me da problemas.
Muchas Gracias.
Si tengo algún otro problema no dudes que recurriré a ti! jajajaja... si no te molesta...
Cualquier problema... no dudes en volver a preguntar
finaliza la pregunta por favor =)

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Actualizar tabla desde formulario con campo SI/NO

Estoy tratando de ejecutar una consulta de actualización desde el botón de un formulario, evaluando una caja de texto cuyo valor debe ser cero y un control de un dos subformularios que corresponde a un campo si/NO , pero no lo consigo, ¿Me puedes...
1 respuesta

Validar stock en tablas vinculadas

Tengo unas tablas vinculadas, y he creado este código para validar el stock: Dim vBob, vTBob As Variant Dim rst As Recordset Dim vFecha, vTfecha As Variant Dim vEnvio, vTEnvio As Variant Dim vstoc As Boolean vBob = Me.num_bob.Value vEnvio =...
1 respuesta

Aviso de vencimiento en función de una fecha

Estoy dando los últimos toques a una base de datos y uno de esos toques es que me avise diez días antes de que un convenio vaya a caducar. Para ello he realizado una simple consulta llamada Convenios_firmados en la que tengo los siguientes campos:...
1 respuesta

Aplicación en access 2007 para el control de usuarios

Este es el código que utilizo para validar el ingreso de los usuarios, a la hora de ingresar necesito que me abra un formulario por cada usuario que tenga registrado en base de datos, ya que cuento con 30 usuarios y un administrador del sistema. Dim...
1 respuesta

Bloqueo de Formulario luego de un select

Tengo un formulario en el que pido usuario y contraseña, válido si son correctos mediante un evento en un botón con un SELECT, después presenta una pantalla con varias opciones y una de ellas es dar mantenimiento a la tabla de usuarios y cuando...
3 respuestas

Recorrer subformulario para comprobar checkbox

Tengo un subformulario el cual contiene un checkbox llamado "imprimir" en cada registro, me gustaría poner un botón en el formulario principal que detecte las casillas marcadas y ejecute un comando si la casilla esta marcada para cada registro marcado.
2 respuestas

CurrentDb

Mi pregunta es curiosidad más que nada, y es que me ha surgido una duda leyendo otras preguntas: ¿Cuál es la diferencia entre abrir objetos de bases de datos de estas dos maneras?: dim base as database dim rst as recordset set base=currentdb set...
1 respuesta

Quiero copiar datos de una tabla en otra

Que es lo que tengo mal, no consigo que funcione. Quiero copiar datos de una tabla a otra cuando pulso un botón y añadir la fecha. Dim dbs As Database Dim rst As Recordset Dim rst_s As Recordset Dim Familia, Concepto As String Dim codUltVenta,...
1 respuesta

Comparación de menor mayor en recordset no funciona

Hago un recorset y busco que un numero dado (puesto en la variable numero) se encuentre o no en un rango de números del recordset... El tema es que cuando ejecuto el código, me dice que el numero esta incluido en rangos donde no debería estarlo. Algo...
2 respuestas

Asignar valor de consulta a variable en vba

Me estoy rompiendo la cabeza con el siguiente problema: Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("SELECT codprod FROM facttemp WHERE codprod = " & producto) If rst.RecordCount > 0 Then rst.MoveFirst rst.Delete End If Rst. Close...
1 respuesta