Julián González Cabarcos respondió:
Vamos a suponer que el cuadro de lista se llama Historial. En el evento Al activar el registro del formulario, crea un procedimiento de evento y entre Private Sub y End Sub pon If not isnull([nombre]) then historial.rowsource="select...
Julián González Cabarcos respondió:
En el caso de que quieras que "recomience" por 1 al cambiar el año, Private Sub Form_Current() If Me.NewRecord Then Dim a a = Nz(DCount("codigo", "variable", "year([fechafactura])=year(date())")) + 1 Codigo = Format([a], "00000") & "/" & Year(Date)...