Möchte mich für die Unterstützung bedanken hab durch eure Hinweise und Tips das Problem mit jemand anderem lösen können. Die Lösung sieht jetzt wie folgt aus:
Private Sub Luftmenge_AfterUpdate()
If Luftmenge.Value = -1 Then
DoCmd.OpenForm "Messgeräte Luftmengenmessung"
End If
End Sub
Ich hab es mal hierrein gestellt vielleicht hilft es ja auch jemand anders der ein ähnliches oder gleiches Problem hat wie ich.
Nochmals vielen Dank für euere Hilfe. War sehr hilfreich für mich.