Weihnachtliche Kuchen Deko
Aber BITTE nicht einfach -> funktioniert nicht
Option Compare Database Option Explicit Dim bEdit As Boolean Private Sub lst_Verl�ngerung_AfterUpdate() '-------------------------------------------------------------- 'Die Daten des in der Liste angeclickten Datensatzes anzeigen If Not IsNull(lst_Verl�ngerung) Then ndFirst "Verl_id=" & Me! lst_Verl�ngerung cmd_L�schen. Enabled = True cmd_Neu. Enabled = True End Sub Private Sub Verl_L�nge_BeforeUpdate(Cancel As Integer) ' Ist das Eingabefeld leer? ' Cancel = True bewirkt, dass das Update NICHT ausgef�hrt wird, ' was in diesem Fall bedeutet, dass der Inhalt des Eingabefeldes ' nicht gel�scht wird! ' Das Dr�cken der Esc-Taste bewirkt, dass ein gel�schter Wert ' wieder hergestellt wird. ' Summa summarun wird alo verhindert, dass der Datensatz mit ' einem leeren Eingabefeld gespeichert wird! If Nz(Me! Verl_L�nge) = "" Then MsgBox "Bitte geben Sie eine L�nge ein oder dr�cken Sie die Esc-Taste! " Cancel = True End If Private Sub cmd_Neu_Click() bEdit = True Dim i As String i = MsgBox("Sind Sie sicher, dass Sie eine neue Verl�ngerung anlegen wollen??