Forum Discussion
Establecer valor por defecto Combo Box desde una SQL query
¡Hola!
Con un evento adecuado (abrir el formulario o algo así) puedes utilizar un código como éste:
Dim rs As DAO.Recordset
Dim strSQL As StringstrSQL = "SELECT Campo1 " & _
" FROM Tabla " & _
" WHERE Id=42"
Set rs = CurrentDb.OpenRecordset(strSQL, dbOpenSnapshot)If Not rs.BOF Then
Forms!Formulario1!Combo1.DefaultValue = rs!Campo1
End IfServus
Karl
************
Access News (March edition)
Access DevCon (April 28+29)
Hola Karl_Donaubauer
Una vez mas, muchas gracias por tu respuesta, he tomado tu ejemplo como plantilla y he desarrollado lo siguiente, pero no funciona, no me da ningún error, pero la casilla sigue vacía.
Que puede ser?
¡Hola!
¿Has comprobado si tu texto SQL devuelve un valor? P.e. establece un punto de interrupción y comprueba el valor de Campo1 o antes del If Not...
Debug.Print rs!Campo1
o
MsgBox rs!Campo1
o después de asignar el valor por defecto:
Debug.Print Me!nombre_caja.DefaultValue
para verlo en la ventana directa.
Servus
Karl
************
Access News (March edition)
Access DevCon (April 28+29)
Hola, he establecido varios puntos de control pero ninguno devuelve nada, cuando abro el formulario no me aparece ningún Message Box ni ningún print en pantalla.
He probado a poner directamente un nombre se usuario y quitar la función fncUsurio pero sigue sin devolver nada. Que puede ser?
¡Hola!
Parece que tu Sub usario_defecto no se ejecuta. ¿Dónde y cómo se llama? En mi primera respuesta de hoy, mencioné que necesitas un evento adecuado que active el código.
Servus
Karl
************
Access News (March edition)
Access DevCon (April 28+29)Hola Karl_Donaubauer,
Soy nuevo programando en VBA, tengo el código aquí, por lo que entiendo se ejecuta cuando se abre el formulario, no?
Gracias!
