Error en código access

Te hago una consulta a ver si me puedes ayudar que tengo 2 errores y no se como solucionarlos:

Ahí va la consulta.

En una consulta access quiero que los registros que sean de menos de 20 en el campo Anzahl se pongan rojos y que cambie la letra a mas grande en los campos Anzahl y DekNr, el código que tengo es este en el procedimiento de evento, pero no funciona :-(:

Private Sub Form_Current()
If Me![Anzhal] > 20 Then
Me![Anzhal].FontBold = True
Me![Anzhal].FontSize = 20
Me![Anzhal].ForeColor = vbRed
Me![DekNm].ForeColor = vbRed

Me![DekNm].FontSize = 20
End If
End Sub

Luego la otro pregunta es:

Tengo una consulta de actualización que funciona correctamente, solo que me gustaría que en el caso que no encuentre el valor exacto del DekNr que le doy me de un aviso de que ese DekNm no se encuentra. Como he dicho funciona bien pero si no encuentra el registro que le digo, hace como que hace bien la actualización pero en realidad no hace nada por que ese registro no existe, pero si existe hace perfecta la actualización.

aquí esta el código:

UPDATE TablaPrincipal, TablaSuma SET TablaPrincipal.Anzhal = [Anzhal]+[TablaSuma.Suma]
WHERE (((TablaPrincipal.DekNr) Like [ geben Sie die Dekor Nummer ]));

Espero me puedas ayudar y te doy ya las gracias por todo tu tiempo.