Ist euer Problem gelöst, dann bitte den Knopf "Thema gelöst" drücken!
Private Sub Form_BeforeUpdate(Cancel As Integer)
Debug.Print "Form_BeforeUpdate()"
If Len(Nz(txtaktReichw, "")) = 0 Then
Cancel = -1
Beep
txtaktReichw.SetFocus
End If
End Sub
und die Eigenschaften für das Feld in der Tabelle richtig einstellen, damit auch Änderungen bei einer SQL-Anweisung abgefangen werden, nicht nur im Formular! ZitatDie Berechnung der Hoehe aus den Einzelmassen und der Anzahl der Satensaetze funktioniert auch nicht annaehernd korrekt.Natürlich kann man alle diese Berechnungen korrekt durchführen, man muss halt nur wissen, auf was sich genau die verschiedenen Maßangaben bei einem Fenster und dessen Inhalt beziehen. Wenn man das alles berücksichtigt, kann man solche Einstellungen präzise machen, fragt sich nur, ob das überhaupt notwendig ist. Normalerweise überlässt man solche Größeneinstellungen den wünschen des Anwenders, eventuell überwacht man noch Mindestmaße, das sollte dann aber auch ausreichen.
'dieser Code erzwingt die Eingabe der Rest Reichweite im Ufo
Private Sub Form_BeforeUpdate(Cancel As Integer)
If IsNull(Me.txtaktReichw) Or Me.txtaktReichw = "" Then
MsgBox "Wert für Reichweite eingeben!", vbExclamation, "Eingabe erforderlich"
Me.txtaktReichw.SetFocus
Cancel = True ' Speichern verhindern
End If
End Sub
Zitat von: Bitsqueezer am März 16, 2026, 12:28:41ACCDE: Kann nur erstellt werden, wenn es beim Kompilieren in VBA keine Fehler gab.