Office: (Office 2016) MsgBox bei fehlenden Wert im Adressfeld

TopFlop · 25. Oktober 2020

Hallo zusammen,

ich stehe ein wenig auf dem Schlauch.

Ich habe folgende Adressfelder.
Straße
Hausnummer
PLZ
Ort

Leider schaffen es zurzeit viele Nutzer die PLZ oder die Hausnummer nicht einzutragen.
Deswegen wollte ich bevor sie den Datensatz verlassen mit einer MsgBox daran erinnern.
Das Problem ist zusätzlich, dass es auch Datensätze gibt wo keine Adresse notwendig ist.
Sozusagen soll wenn etwas im Feld "Straße" steht und "Hausnummer" leer ist an die Hausnummer erinnert werden.
Code:

Private Sub Form_BeforeUpdate(Cancel As Integer)
If IsNull(Me.Straße) And Me.Hausnummer >= 0 Then
MsgBox ("Keine Straße eingetragen")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

hab ich bis jetzt.
Wie bekomme ich es hin, dass man auf den Datensatz zurück geschickt wird nach der MsgBox?
Und gibt es eine Elegantere Lösung, als jede Kombination aus zuschreiben?

Vielen lieben danke das Ihr es bis hier schon mal gelesen habt *biggrin.gif*

Gruß TopFlop

:)

ebs17 · 26. Oktober 2020

Codebeispiel - Prüfen von Pflichfeldern und Ausgabe in Messagebox welche noch fehlen

Maxel · 7. Januar 2021

von TopFlop

Wie bekomme ich es hin, dass man auf den Datensatz zurück geschickt wird nach der MsgBox?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Was macht der verzweifelte User, wenn er keine Hausnummer kennt und aus der Nummer nicht mehr rauskommt? Er trägt irgendeine ein...

TopFlop · 27. Oktober 2020

Ich wollte den Code von Eberhard so ändern, dass eine MsgBox kommt mit der Frage ob man die Fehlenden Daten eintragen will.

aber ich bekomme es gerade nicht so richtig hin.

Das praktische ist bei dem Code, dass nur nach den fehlenden Werten gefragt wird wenn man bei einem etwas eingetragen hat. Wenn man wiederum einfach durch die Felder Tabt, passiert nichts.

Code:

Dim Felder As Variant
Dim x As Variant
Dim Feldbezeichnung As Variant
Dim Ausgabe As String

Felder = Array(Me.Straße, Me.Hausnummer, _
Me.PLZ, Me.Ort)

Feldbezeichnung = Array("Straße", "Hausnummer", _
"Postleitzahl", "Ort", _
"Ende")
Ausgabe = ""

Do Until Feldbezeichnung(x) = "Ende"
If IsNull(Felder(x)) Then Ausgabe = Ausgabe & Chr(13) & Feldbezeichnung(x)
x = x + 1
Loop

If Ausgabe "" Then

-----> If MsgBox("Folgende Felder wurden nicht eingegeben. Möchten Sie diese ausfüllen?" & Chr(13) & Ausgabe, vbYesNo) = vbYes Then

Else

End If

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

es funktioniert noch nicht ^^

TopFlop · 27. Oktober 2020

Hab es jetzt ganz schlicht und einfach gehalten

Code:

If Ausgabe "" Then

If MsgBox("Folgende Felder wurden nicht eingegeben. Möchten Sie diese ausfüllen?" & Chr(13) & Ausgabe, vbYesNo) = vbYes Then Cancel = True
Else
Exit Sub
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Oder habt ihr eine bessere Idee?

Office: (Office 2016) MsgBox bei fehlenden Wert im Adressfeld

MsgBox bei fehlenden Wert im Adressfeld

MsgBox bei fehlenden Wert im Adressfeld

MsgBox bei fehlenden Wert im Adressfeld

MsgBox bei fehlenden Wert im Adressfeld - Similar Threads - MsgBox fehlenden Wert

MsgBox mit Berechnung und Eintrag in Tabelle

VBA: Mit MsgBox bestimmte Inhalte von Zeile leeren

VBA-Code Arbeitsblatt wechseln

MsgBox bei zwei Werten

MsgBox in Excel anzeigen lassen per Word VBA

MsgBox Ja / Nein > Nein als Standard

MsgBox wenn in Zeitintervall kein "x"