Programación General > VBA

 Vba Access

(1/1)

ticojunior:
: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

RadicalEd:

--- Cita de: "ticojunior" --- :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
--- Fin de la cita ---
 :whistling:  :whistling:  :whistling: Cuando no tenga tiempo lo hago más rápido. :whistling:  :whistling:  :whistling:

Anibita25:
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:

alberto4888:
donde creas el boton?????

Jefralago:
Upsss.. se le olvidó las líneas en donde creas el boton.. me quedé con las ganas de saber, como se hacía.

Navegación

[0] Índice de Mensajes