Access - paso a paso....

Ya no me da el error, pero nunca me devuelve registros....

Private Sub Form_AfterUpdate()
Dim rs As DAO.Recordset
Dim x As String
ReferenciaMecanizada.SetFocus
x = ReferenciaMecanizada.Text

Set rs = CurrentDb.OpenRecordset("SELECT Elementos.Codigo, Elementos.Tipo, Elementos.Ubicacion, Elementos.Medida, Max(Inspeccion.ProximaCalibracion) AS MáxDeProximaCalibracion FROM (Referencia INNER JOIN Caja ON Referencia.ReferenciaMecanizada = Caja.ReferenciaMecanizada) INNER JOIN ((Elementos INNER JOIN Inspeccion ON Elementos.Codigo = Inspeccion.Codigo) INNER JOIN Utiles ON Elementos.Codigo = Utiles.Codigo) ON Referencia.ReferenciaMecanizada = Utiles.ReferenciaMecanizada GROUP BY Elementos.Codigo, Elementos.Tipo, Elementos.Ubicacion, Elementos.Medida, Caja.ReferenciaMecanizada HAVING (((Max(Inspeccion.ProximaCalibracion))<Date()) AND ((Caja.ReferenciaMecanizada)= 'x'))")

If rs.RecordCount > 0 Then
MsgBox "Hay registros"
Else
MsgBox "No hay registros"
End If

End Sub

Es el paso siguiente que he dado...

Deberías de haber continuado en el mismo hilo para un mejor seguimiento pero bueno, me parece ver que el campo de comparación está en el formulario activo, en ese caso prueba:

x = Me.ReferenciaMecanizada

y al final de la sentencia NO le pongas comillas simples a la x puesto que se trata de una variable (las variables no se encierran entre comillas).

Si te sigue fallando, cambia lo que tienes por esto que sigue, porque en las sentencias largas, a veces Recordcount de DAO no funciona bien:

If Not rs.NoMatch Then
MsgBox "Hay registros."
Else
MsgBox "No hay registros"
End if

Saludos