Feld muss ausgefüllt werden erzwingen

[DF6GL]

Hallo,

in der Tat..  Dann nimm ein Listenfeld

[Beaker s.a.]

Hallo Julle,
Was ich meinte ist:

Code [Auswählen] Erweitern

Private Sub bDrucken_Click()

  Dim strMsg As String
  Dim blnFehler As Boolean

  strMsg = "Folgende Fehler müssen ausgefüllt werden:"

  If Len(Nz(Me!txtKunde, "")) = 0 Then
    blnFehler = True
    strMsg = strMsg & vbcrlf & "Kunde"
  ElseIf Len(Nz(Me!txtAdresse, "")) = 0 Then
    blnFehler = True
    strMsg = strMsg & vbcrlf & "Adresse"
  ElseIf Len(Nz(Me!txtProdukt, "")) = 0 Then
    blnFehler = True
    strMsg = strMsg & vbcrlf & "Produkt"
  End If

  If blnFehler Then
    MsgBox strMsg, vbInformation, "Bitte füllen Sie alle Felder aus!"
  Else
    DoCmd.RunCommand acCmdPrint
  End If

End Sub

Wie gesagt eine MsgBox für alles.
hth
gruss ekkehard

[julle]

Hallo,

in der Tat..  Dann nimm ein Listenfeld

Würde das gern aus Formatierungsgründen ohne Listenfeld umsetzen.
Jedes Kontrollkästchen gibt ja einen Wert aus, ich nehme an 0 für "nicht ausgewählt" und 1 für "ausgewählt".
Wenn man nun alle Werte addiert und das einen Wert ungleich 0 (bzw x>0) ergibt, wäre die Bedingung, dass mindestens eins ausgewählt ist, erfüllt.
Frage ist nun die Umsetzung. Ich müsste ja eine Prüfvariable als String einführen (als Summe aller Werte der Kontrollkästchen) und überprüfen.

Wie erstellt man so eine Summe?

Wie gesagt eine MsgBox für alles.
hth
gruss ekkehard

Danke für die Option, aber im Moment kommt ja auch nur ein Hinweis. Und in dem Hinweis von deinem Code steht in der Meldung auch nur das erste nicht ausgefüllte Feld und nicht alle fehlenden. Obwohls natürlich ein kompakterer Code ist 

[DF6GL]

Hallo,

ausgehend von

Auf dem Formular sind eine oder mehrere Gruppen an Kontrollkästchen.
Gibt es eine Bedingung (ähnlich der oben) die den Nutzer dazu zwingt, ein odere mehrere Kästchen dieser Gruppe zu markieren?
Zumal diese "Gruppen" erstmal definiert werden müssten.

kannst Du die Überprüfung genau so machen wie bei den Textfeldern auch, also jedes KK einzeln für sich testen und entspr. reagieren.

Natürlich könnten die Einzelprüfungen auch innerhalb einer Schleife erfolgen, die entweder über alle KK läuft oder innerhalb mehrerer Schleifen, die durch jede Gruppe von KK laufen.

Die "Gruppen" könnten so gebildet werden, als dass für die Benamsung der KK eine fortlaufende Ziffer eingesetzt wird, die zur "Berechnung" des akt. KK herangezogen wird.

[julle]

kannst Du die Überprüfung genau so machen wie bei den Textfeldern auch, also jedes KK einzeln für sich testen und entspr. reagieren.

Natürlich könnten die Einzelprüfungen auch innerhalb einer Schleife erfolgen, die entweder über alle KK läuft oder innerhalb mehrerer Schleifen, die durch jede Gruppe von KK laufen.

Die "Gruppen" könnten so gebildet werden, als dass für die Benamsung der KK eine fortlaufende Ziffer eingesetzt wird, die zur "Berechnung" des akt. KK herangezogen wird.

hab das gelöst mit:

Code [Auswählen] Erweitern

Dim intSumme As Integer
   
    intSumme = Me!ichk1 + Me!chk2 + Me!chk3 + Me!chk4 + Me!chk5

   
ElseIf intSumme = 0 Then
        MsgBox "Bitte mindestens eine Kontrollkästchen anhaken!"
        Exit Sub

[DF6GL]

Hallo,

das ist ok, wenn eine solche Plausi-Prüfung dem Anspruch genügt...

[julle]

Hallo,

das ist ok, wenn eine solche Plausi-Prüfung dem Anspruch genügt...

Es tut seinen Dienst. Aber rein interessehalber, was wäre an anderen Möglichkeiten qualitativ besser?

[MzKlMu]

Hallo,
@Julle
Hast Du Dir das Beispiel hier in diesem Thema (#19) nicht angesehen ?

[DF6GL]

Hallo,

qualitativ?

Das heißt, den Ansprüchen (der Logik) genügen.

Und das heißt wiederum, Du(!) musst die Ansprüche (den Algorithmus) der Plausibilität definieren.

Deine Prüfung auf 0-Summe erfüllt nur den Anspruch, mindestens einen Haken setzen zu müssen. Bestimme KK, bzw. "Gruppen" sind so nicht bestimmbar. ...

[julle]

Hallo,

qualitativ?

Das heißt, den Ansprüchen (der Logik) genügen.

Und das heißt wiederum, Du(!) musst die Ansprüche (den Algorithmus) der Plausibilität definieren.

Deine Prüfung auf 0-Summe erfüllt nur den Anspruch, mindestens einen Haken setzen zu müssen. Bestimme KK, bzw. "Gruppen" sind so nicht bestimmbar. ...

Nunja, bestimmte Gruppen hab ich nun durch unterschiedliche Summen-Variablen gekennzeichnet. Von daher alles paletti!

Hallo,
@Julle
Hast Du Dir das Beispiel hier in diesem Thema (#19) nicht angesehen ?

Doch hab ich, vielen Dank dafür, war hilfreich fürs Verständnis!

[julle]

Hallo,
@Julle
Hast Du Dir das Beispiel hier in diesem Thema (#19) nicht angesehen ?

Ich habe vom Beispiel die Funktion nachgebaut, dass das Schließen der Formulare nur über einen Button funktioniert.

Code [Auswählen] Erweitern

Private Sub Beenden_Click()
    bolSchliessenErlaubt = True
    DoCmd.Close acForm, "frmStart"
    DoCmd.Quit
End Sub


Private Sub Form_Unload(Cancel As Integer)
    If bolSchliessenErlaubt = False Then
        MsgBox "Formular bitte per Button verlassen" & vbCrLf & vbCrLf & "Die Anwendung kann nur über den Button <Beenden> geschlossen werden"
        Cancel = True
    End If
End Sub

passendes Modul dazu

Code [Auswählen] Erweitern

Option Compare Database

Option Explicit

Public bolSchliessenErlaubt As Boolean



Ich hab ein Startformular welches weitere Formulare anwählt.

Problem ist nun, dass wenn ich das von "frmStart" ausgewählte Formular schließe (geht nur über den Button) komme ich ja wieder auf "frmStart" zurück, in diesem Moment kann ich das Formular "frmStart" aber wieder normal schließen, also der Code greift nicht mehr.

Wisst ihr wo da ein Fehler liegen könnte?

[MaggieMay]

Hallo,

wenn du eine einzige globale Variable zur Steuerung aller Formulare einsetzen willst, so musst du sie bspw. beim Laden eines Formulars auch immer wieder auf FALSE setzen.

[julle]

Hallo,

wenn du eine einzige globale Variable zur Steuerung aller Formulare einsetzen willst, so musst du sie bspw. beim Laden eines Formulars auch immer wieder auf FALSE setzen.

verstehe nicht ganz wie so etwas aussehen würde! außerdem bleibt das Formular "frmStart" ja die ganze Zeit geöffnet!

[MaggieMay]

Mit dem frmStart hat es ja nichts zu tun, wenn du das Speichern in den Bearbeitungsformularen kontrollieren willst.

Was hält dich davon ab, es einfach mal auszuprobieren?
Aktiviere das Ereignis "Beim Laden" und schreibe die folgende Codezeile in die Ereignisprozedur:

Code [Auswählen] Erweitern

bolSchliessenErlaubt = False

[DF6GL]

Hallo,


Wenn jedes einzelne Form für sich selber "geprüft" werden soll, dann gehört die "bolSchliessenErlaubt"-Variable in die einzelnen Formularklassenmodule und nicht in ein Standardmodul...