Duda en Programación en Microsoft Access

No necesitas el botón. Suponiendo que NAlbaran sea texto y que el subformulario se llame Albaranes, en el evento Después de actualizar del cuadro de texto NAlbaran crees un procedimiento de evento y entre Private Sub y End sub poner

me!albaranes.form.recordsource="select * from albaranes where Nalbaran='" & me.nalbaran & "'"

En caso de que fuera numérico sería lo mismo pero terminado

.................................NAlbaran=" & me.nalbaran & ""

Es decir, que el origen de registros del subformulario sea aquel registro de la tabla Albaranes en que su campo NAlbaran sea igual al que acabas de escribir.

Pero, si de todas formas lo quieres poner en el botón te aconsejaría que en el evento Al hacer clic de él lo pongas como

If not isnull([nalbaran]) then

me!....lo de arriba

else

Msgbox"Muchacho, hay que poner el número de albarán", vbokonly,"Inténtalo otra vez"

Nalbarán setfocus

end if

Así, si pulsaras en el botón y el control Nalbaran está vacío te aparece el mensaje y el cursor se va a él.

También podrias sustituirlo por un combinado con origen de la fila en los campos Nalbarán de la tabla. El código sería igual que en el primer caso.

También puede aplicar un filtro por formulario, bien sea porque utilice el botón o en el evento después de actualizar el Albarán. Algo como:

1- Si lo hace mediante el botón:

Private Sub Albaran_AfterUpdate()
  Me.nombfreSubformulario.Form.Filter = "[N° ALBARÁN]=" & Me.albaran
  Me.nombfreSubformulario.Form.FilterOn = True
End If

2. Si lo hace en el Evento Después de Actualizar:

Private Sub Albaran_AfterUpdate()
  Me.nombfreSubformulario.Form.Filter = "[N° ALBARÁN]=" & Me.albaran
  Me.nombfreSubformulario.Form.FilterOn = True
End If

Si utiliza la forma 1 tiene que agregar un botón para eliminar el filtro. Con la forma 2 solo borre el contenido.