Como Rellenar campo formulario access 2010

Muéstrame tu consulta .

¿El valor que regresa tu consulta es único?

Gracias

La consulta es sencilla solo muestra el valor máximo de una lista

Puedes usar la función Dmax.

En evento al hacer clic de tu botón.

Pones el siguiente código:

Me.NombreDelCuadroDeTexto =DMax("[NombreDelCampo]", "NombreDeTabla")

Aquí el la información.

https://support.office.com/es-es/article/funciones-dm%C3%ADn-dmin-y-dm%C3%A1x-dmax-f5c6de87-8752-4f29-ab4b-c554053d299f 

El codigo funciona a la perfección perfección pero planteé yo malla pregunta. Lo quise simplificar para explicarlo mejor y por eso tu respuesto no me resulta útil del todo aunque te lo agradezco.. Te clarfo como eta el tema a ver si me puedes ayudar un poquito más.

Lo que necesito es que cuando clique un btón me rellene un cuadro con un valor que ha de ser el máximo de una serie + 1, es decir como si quisiera hacer unaautonumérico. No lo puedo poner con autonumerico porque no todos los registros de la base de datos llevan ese campo de forma consecutiva. Un poco lio ya lo sé. El valor esta expresado con formato "2018-15" por ejenplo y quiero que si aprieto el botón me aparezca "2018-16". Hasta ahora ejecutava una consulta ymanuelmante yo le sumaba uno pero es lento y hay posibilidad de error.

Gracias de nuvo

Pues fácil solo crea un autonumérico personalizado

Siguiendo tu ejemplo de Id ---> 2018-1

Me.NombreDeMiCuadroDeTexto = Id

Solo reemplaza los nombres de tu tabla y campos.

Si tu base esta vacía te asignara el 2018-1 (Dependiendo el año en curso si estas 2019 ser -->

2019-1)

Si no, segura el consecutivo(Supongamos que tienes 2018-1 ---> asignara 2018-2)

Private Function Id() As String
    Dim rst As DAO.Recordset, SQL As String, IdAux As Long
    On Error GoTo ManipularError
    SQL = "SELECT Max(id) As maximo FROM Tabla1"
    Set rst = CurrentDb.OpenRecordset(SQL, dbOpenForwardOnly)
        With rst
            If IsNull(InStr(!maximo, "-")) Then
                Id = Year(Date) & "-" & 1
            Else
                Id = Year(Date) & "-" & Mid(!maximo, InStr(!maximo, "-") + 1) + 1
            End If
        End With
    rst.Close: Set rst = Nothing
Salir:
    Exit Function
ManipularError:
    If Not rst Is Nothing Then rst.Close: Set rst = Nothing
    MsgBox Err.Description, vbCritical, "Atención"
    Resume Salir
End Function

Disculpa mi ignorancia pero el  código donde lo tengo que copiar?

Por otro lado tengo que hacer la misma acción ccon dos valores y solo me permite tener un autonumérico en cada tabla.

Gracias