Abrí una base de datos con el control de datos data.

Para hacer las consultas pienso que es mejor abrir la base de datos: Set Baseddatos = OpenDatabase("base.mdb").

Lógicamente el VB no me deja abrir la base de datos, porque ya la he abierto con el control de datos data..
Por mucho que he buscado no encuentro la manera de cerrar la base de datos para poder hacer las consultas..
Gracias

Vi esa forma de abrir la tabla en un tutorial...
Muchas gracias Gangrel por tu ayuda, ha sido todo correcto como dijiste.

Soy bastante nuevo con VB. Agradezco muchísimo toda la ayuda que estoy recibiendo en este foro. Espero dentro de un tiempo poder ayudar yo.
Feliz año a todos..

Me ha dado error 91. Variable de tipo Object o la
variable de bloque With no está establecida, en una aplicación que estoy haciendo.
Estoy utilizando:
una base de datos: ejemplo.mdb
que contiene una tabla: tabla
y sólo le he puesto un campo: cantidad
con 5 registros: 1,2,3,4 y 5.
 He hecho un ejemplo típico sencillo donde me sigue tirando este error:

Private Sub Form_Load()
    Dim BaseDatos As Database
    Dim Tabla As Recordset
    Set BaseDatos = OpenDatabase("ejemplo.mdb")
   
'Aquí es donde me marca el error:
    Tabla.OpenRecordset ("SELECT * FROM tabla WHERE cantidad = 2")
End Sub

He de decir Sancho.Mazorka que vengo de probar lo que has comentado y...
muchas, muchísimas gracias!!!!, me he quedado muy impresionado...y contentísimo...

 

Hola seken_C4.

También estoy interesado en lo mismo, ahora no tengo tiempo para probar esto pero lo haré..

Se me ocurre por ejemplo (son sólo ideas), crear un botón que simule la barra donde están los botones de minimizar etc.. y cuando sea pulsada variar los valores Left y Top del formulario.. Tengo bastantes lagunas de cómo hacer variar los valores según la posición del ratón.. todo es probar..

Un saludo

Después de trastear creo que he podido dar con una solución:(Se m ha ocurrido pensar cuándo tiene el enfoque, y después quitárselo y ponerlo en el primer text que tengo)

Private Sub Check1_GotFocus()
Textref.SetFocus
End Sub

Espero no tener problemas para hacer ahora lo contrario..



El problema como mencioné viene para hacer lo contrario, así que por si alguien le pasa lo mismo que a mí resolví todo de la siguiente forma..
Para que ahora se pueda cambiar el check1 a 0 o 1 he empleado la siguiente condición (es cuando inhabilito un botón):

Private Sub Check1_GotFocus()
If Nuevo.Enabled = False And Check1.Value = 1 Then
Check1.Value = 0
Else
If Nuevo.Enabled = False Then
Check1.Value = 1
End If
End If
Textref.SetFocus
End Sub

y me funciona a la perfección...

PD. problemilla q he encontrado: que cambio value al utilizar el tabulador o flechas.. pero muy sencillo de solucionar impidiendo que salten a esta casilla con el tab.

Gracias por vuestra ayuda..
Muy interesante eso de la macro..me ha gustado echaré un vistazo...

Podríais decirme cómo puedo bloquear un checkbox para que no se modifique pero se vea??

si lo inhabilito (enable) pierde el color y parece como si no quisiera mostrar el contenido del checkbox..

Yo lo que quiero hacer es:
Check1.Locked = True

Gracias...

He puesto InhabilitarCajas porque lo he copiado de un libro de VB6.

Perdonad!!! que ya veis que soy un inculto todavía...
Tienes toda la razón Azofaito está claro que tengo que crear un private sub inhabilitarcajas..

Qué despiste!!

Hola a todos..

Estoy haciendo una aplicación para tratar una base de datos..
Pues bien, para que nadie modifique los textbox nada más ejecutar la aplicación, he puesto lo siguiente:

Private Sub Form_Load()
Grabar.Enabled = False
InhabilitarCajas
End Sub

Me da error en InhabilitarCajas:
Error de compilación
Procedimiento Sub o Function no definido.

Me echáis una mano???
Gracias. Estoy con VB6