Establecer valor por defecto Combo Box desde una SQL query

Hola a todos! Me estoy realizando una BBDD y tengo un problema con un formulario. En uno de los ComboBox que utilizo, me gustaría poner como valor por defecto el resultado de una query SQL, el pr...

access

office 365

Karl_Donaubauer
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 String

strSQL = "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 If

Servus
Karl
************
Access News (March edition)
Access DevCon (April 28+29)

Forum Discussion

Establecer valor por defecto Combo Box desde una SQL query

Resources