SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => VBA => Mensaje iniciado por: ticojunior en Miércoles 29 de Noviembre de 2006, 19:01
-
:comp: por favor alguien me puede decir como crear botones dinamicamente
en VBA access, ya probe con createcontrols pero el formulario tiene q estar en modo disenho y eso no me sirve
Alguna otra idea por favor
la nesecito y rapido tengo varios dias es ese problema
gracias
-
:comp: por favor alguien me puede decir como crear botones dinamicamente
en VBA access, ya probe con createcontrols pero el formulario tiene q estar en modo disenho y eso no me sirve
Alguna otra idea por favor
la nesecito y rapido tengo varios dias es ese problema
gracias
:whistling: :whistling: :whistling: Cuando no tenga tiempo lo hago más rápido. :whistling: :whistling: :whistling:
-
Lo primero que vamos a hacer agregar las referencias necesarias para nuestro proyecto.
Abrimos Visual Basic > picamos en proyecto > referencias.
Se abrirá una ventana y seleccionaremos estas dos referencias:
Código:
1. Microsoft data formatting object library 6.0 (sp4)
2. Microsoft DAO 2.6 object library
Una vez seleccionados pulsa aceptar.
Ahora declaramos las variables globales:
Código:
Dim BD As Database
Dim RecSQL As Recordset
Creamos la conexión:
Código:
Set BD = OpenDatabase(App.Path & "\base_de_datos.mdb")
Mostramos resultados:(en el botón que queráis)
Código:
On Error GoTo VerError
Set RecSQL = BD.OpenRecordset("SELECT * FROM Login")
While Not RecSQL.EOF
MsgBox RecSQL.Fields("nombre").Value & "|" & RecSQL.Fields("contraseña").Value 'Muestra por nombre de columna
MsgBox RecSQL.Fields(0).Value & "|" & RecSQL.Fields(1).Value 'Muestra por número de columna
RecSQL.MoveNext
Wend
RecSQL.Close
Set RecSQL = Nothing
Exit Sub
VerError:
MsgBox "Nº de error: " & Err.Number & " | " & Err.Description, vbCritical, "Control de errores"
Err.Clear
Set RecSQL = Nothing
El code funciona muy bien y es bastante claro pero si tenéis alguna duda solo hay que preguntarla
:comp: :comp: :comp: :comp: :comp: :comp: :comp:
:smartass: :smartass: :smartass: :smartass: :smartass:
-
donde creas el boton?????
-
Upsss.. se le olvidó las líneas en donde creas el boton.. me quedé con las ganas de saber, como se hacía.