Forum Discussion
Establecer valor por defecto Combo Box desde una SQL query
- Mar 24, 2022
¡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!
No es de extrañar que no haya nombres de campo. Vuelve a mirar mi ejemplo en el que había utilizado "Campo1" para ello. Contigo debería decirse:
rs!nombre
Servus
Karl
Access News (new March episode)
Access DevCon (April 28+29)
Hola Karl, muchas gracias por la ayuda, ahora parece que falla otra instrucción:
Muchísimas gracias.
- Mar 24, 2022
¡Hola!
Tu fncUsuario devuelve un texto. Por eso faltan las comillas:
strSQL = "SELECT nombre FROM fichaje WHERE usuario_registrado = '" & fncUsuario & "'"
Servus
Karl
Access News (new March episode)
Access DevCon (April 28+29) - markarelMar 25, 2022Brass Contributor
Muchísimas gracias Karl_Donaubauer, ya funciona todo a la perfección. Mil gracias!!!!! 🙂