Office: (Office 2016) Datensatz 1 von 5 Feldern als Pflichtfeld

Hallo miteinander,

wie bringe ich einem Formular bei, dass
1) bei Neuanlage eines neuen Datensatzes
2) bei Wechsel eines bestehenden Datensatzes
3) beim Schließen des Formulars
mindestens eines von fünf bestehenden Feldern ausgefüllt sein muss? Sprich, legt der Benutzer einen neuen Datensatz an, soll er keine Möglichkeit haben, das Formular zu schließen oder den Datensatz zu verlassen, ohne dass er nicht zumindest ein Feld befüllt hat.

Ich kann aber nicht alle Felder als Pflichtfelder festlegen.

Momentan habe ich als Ereignis "Beim Anzeigen", allerdings fragt Access dann nur ab, wenn ich in diesen Datensatz wechsele, aber nicht, wenn ich ihn verlasse.

Danke!

:)

 

Moin,
für solche Checks nimm das Formularereignis "BeforeUpdate" und zusätzlich (bei Neuanlage) noch "Close".
maike

 

Es gibt die Ereignisprozedur, die das kontrollieren kann:

In Form_BeforeUpdate() kannst Du alle Felder vor dem Speichern prüfen, wenn ein Datensatz geändert oder neu hinzugefügt wurde.

Wenn Cancel = True gesetzt wird, wird der Vorgang abgebrochen.

Form_Unload() wird beim Schliessen ausgeführt und lässt sich ebenfalls abbrechen.

 

Hallo,
im Anhang ein einfaches Beispiel.

 

Liebe Leute, vielen Dank schon mal für eure tolle Hilfe!
Ich habe es jetzt versucht so einfach wie möglich zu lösen:

Code:

Der Before_Update-Teil funktioniert soweit bei einem bestehenden DS und bei der Anlage eines neuen DS. Wenn ich allerdings das Formular schließe, kommt zwar die Msgbox, es wird dann aber trotzdem geschlossen (und der DS gespeichert).

 

Hallo Berni,

du musst das Cancel noch ByRef mit übergeben, damit Pruefung den Inhalt von Cancel in den Event-Handlern beeinflussen kann.

Viele Grüße
derHöpp

 

Du programmierst schlampig!

Würdest du Option Explicit verwenden würde der Compiler gleich schreien, wenn du eine Variable ohne Deklaration verwendest.

Sowohl das Update als auch das Unload Event übergeben Cancel byRef.
Warum wohl?
Dieser Wert wird nach dem Aufrufen des Events ausgewertet.
Du musst also den Wert der übergebenen Variable ändern und nicht den Wert "irgend einer" Variable.

 

Hab nie was anderes behauptet *Smilie
Bitte um Nachsicht mit mir, ich bin Spaghetticodeschreiber.

Nun hab ich also
Code:

drin, bin aber immer noch nicht wirklich schlauer. Nun kommt beim Eventhandler von Form_Unload

Bitte für doofe erklären.

 

Aber gerne doch, wir kriegen dich schon noch zum Copy and Paste-Programmierer! *Smilie

PHP:

         Private Sub Form_BeforeUpdate(Cancel As Integer)
Pruefung Cancel
End Sub

Private Sub Form_Unload(Cancel As Integer)
Pruefung Cancel
End Sub

Private Sub Pruefung(ByRef myCancel as Integer)
'Prüft, ob zumindest eines der Felder KSt, Innenauftrag, PSP-Element, FAUF oder Anlagennummer ausgefüllt wurde
Dim lngDS As Long

If IsNull(Me!cboKSt) And IsNull(Me!Innenauftrag) And IsNull(Me![PSP-Element]) And IsNull(Me!FAUF) And IsNull(Me!Anlagennummer) Then
MsgBox "Mindestens eines der Felder 'Kostenstelle', 'Innenauftrag', 'PSP-Element', 'FAUF' oder 'Anlagennummer muss ausgefüllt werden!", , "Unvollständig"
myCancel = True
Me!cboKSt.SetFocus
End If
End Sub


 

Vielleicht zuerst mal über die Fehlermeldung nachdenken.
Da solltest du nach über 3000 Kommentaren schon selbst drauf kommen.

 

Danke Höpp!

Tatsächlich habe ich mir mein ganzes VBA-Wissen auf genau diese Weise (und mit ein paar Tutorials) zusammengeschustert. Dass dadurch einige Unzulänglichkeiten vorhanden sind, ist mir natürlich bewusst. Ich muss aber sagen, dass es mir wirklich schon sehr geholfen hat, vor allem in Excel.

Nochmals ein dickes Danke an euch alle!
@Klaus: Spitzenlösung, ich bin allerdings nicht ganz dahintergestiegen bzw. war mir dann der Aufwand zuviel *Smilie

@markus: Siehe oben. Wenn mir die Fehlermeldung etwas gesagt hätte, hätte ich das Problem alleine gelöst. Bin a ned auf der Nudlsuppn dahergschwumman.

 

Hallo,
warum nicht einfach so:
Code:

Das entspricht meinem Beispiel.

 

PHP:

         Tatsächlich habe ich mir mein ganzes VBA-Wissen auf genau diese Weise (und mit ein paar Tutorials) zusammengeschustert


 

Deswegen sollst du ja darüber nachdenken.
Das darf auch ruhig mehr als eine Sekunde dauern.

 

\@Markus: Danke für deine Hinweise, du hast mich wieder etwas geerdet. Ich werde mich nächstes mal selbst bei der Nase nehmen und mit meinen Antworten im Excelforum weniger kritisch mit Nutzern sein. Deine Antworten haben mir wirklich wieder gezeigt, wie leicht man sich zu wenig hilfreichen Hinweisen verleiten lässt.

Ich werde hier noch weitere Fragen stellen - bitte antworte nur, wenn du mir helfen willst. Aussagen wie "man darf gerne drüber nachdenken" kannst du stecken lassen. Ich investiere genug Zeit in Googlesuchen für Lösungen - wenn ich hier frage, dann wirklich, weil ich nicht weiterweiß.

Thema ist für mich erledigt, schönes Wochenende an alle.