Supportnet / Forum / Datenbanken
Wert um 1 erhöhen Problem11
Frage
HALLO,
Also ich habe mir ein Marko für ein Formalur erstellt, wo ich bei klick auf dem Button (Ausführung bei Fokus erhalt(Button)) die Kundennr um eins erhöhe.
Jetzt habe ich folgendes Problem.
Wie kann ich das Formular einstellen, das bei klick auf den Button erst alle Formulareinträge eingegeben werden müssen und man erst dann den Button wieder klicken kann um eine Neue Kundennummer zu erstellen.
(Jetzt kann es passieren das ich unvollständige Datensätze habe oder viele Kundennr ohne Namen usw)
Bitte um Rat! gruss Sascha
Antwort 1 von Volldepp
Hi,
kann man wohl nur mit VB lösen. Dlöscht deinen Macro und gehtst bei den Eigenschaften des Buttons BeimKlicken (Focuserhalt) auf die ... dann Code_Builder bis du
Private Sub Button_Click()
siehst. Dann den Code:
Mit
- n= Anzahl der Felder auf Formular die du Checken willst.Eingeben .
- alle Name der Felder müssen dann
dem Datenfeld zugewiesen werden. Namen der FORMULAROBJEKTE!
Dim Datenfeld(1 To n) As String
Datenfeld(1) = Kundennummer
Datenfeld(2) = Kundenname
.
.
.
Dim i As Integer
i = 0
Do
i = i + 1
If Datenfeld(i) <> "" Then
MsgBox "Bitte " & Datenfeld(i, 1) & "eingeben. "
Else
Kundennummer = Kundennummer + 1 ' oder was beim Klicken auch immer geschehen soll
End If
Loop Until i >= n ' n eingeben
Viel Erfolg!
Gib mal Feedback
Gruss V
kann man wohl nur mit VB lösen. Dlöscht deinen Macro und gehtst bei den Eigenschaften des Buttons BeimKlicken (Focuserhalt) auf die ... dann Code_Builder bis du
Private Sub Button_Click()
siehst. Dann den Code:
Mit
- n= Anzahl der Felder auf Formular die du Checken willst.Eingeben .
- alle Name der Felder müssen dann
dem Datenfeld zugewiesen werden. Namen der FORMULAROBJEKTE!
Dim Datenfeld(1 To n) As String
Datenfeld(1) = Kundennummer
Datenfeld(2) = Kundenname
.
.
.
Dim i As Integer
i = 0
Do
i = i + 1
If Datenfeld(i) <> "" Then
MsgBox "Bitte " & Datenfeld(i, 1) & "eingeben. "
Else
Kundennummer = Kundennummer + 1 ' oder was beim Klicken auch immer geschehen soll
End If
Loop Until i >= n ' n eingeben
Viel Erfolg!
Gib mal Feedback
Gruss V
Antwort 2 von Volldepp
MsgBox "Bitte " & Datenfeld(i, 1) & "eingeben. "
muss heissen
MsgBox "Bitte " & Datenfeld(i) & "eingeben. "
muss heissen
MsgBox "Bitte " & Datenfeld(i) & "eingeben. "
Antwort 3 von mapet
Hallo Sascha
Als Primärschlüssel sollte man in Tabellen grundsätzlich den Autowert nehmen. Ich habe den Methode auch schon ausprobiert - Folge wenn eine Adresse nicht vollständig eingeben werden konnte (Angaben fehlten) wurde x-was eingegeben. Da sind mir leere felder sympathischer die kann ich filtern und ev. leere DS gelegentlich löschen.
Ist vielleicht eine Ueberlegung wert.
mapet
Als Primärschlüssel sollte man in Tabellen grundsätzlich den Autowert nehmen. Ich habe den Methode auch schon ausprobiert - Folge wenn eine Adresse nicht vollständig eingeben werden konnte (Angaben fehlten) wurde x-was eingegeben. Da sind mir leere felder sympathischer die kann ich filtern und ev. leere DS gelegentlich löschen.
Ist vielleicht eine Ueberlegung wert.
mapet
Antwort 4 von SAMA
Ok Danke.
Ich probniere aus gleich aus!
MfG
SAMA_need_Help
Ich probniere aus gleich aus!
MfG
SAMA_need_Help