... Ich bitte un Entschuldigung, Ich hab da irgendwo 'Mist' gemach.
Aber Hallo Klaus !
DU brauchst Dich bei mir doch nicht entschuldigen, im Gegenteil, ich muß mich bei Dir noch bedanken.
Gruß
... Ich bitte un Entschuldigung, Ich hab da irgendwo 'Mist' gemach.
Vorschlag zur Programmierung:
B4X:Sub ButtonBeenden01_Click AppClose End Sub Sub ButtonBeenden02a_Click AppClose End Sub Sub ButtonBeenden02b_Click AppClose End Sub . . . Sub ButtonBeenden31_Click AppClose End Sub
ersetzen durch
B4X:' In der App_Start Routine oder einer anderen Init Routine die ganzen ButtonClicks auf eine einzige Routine verzweigen AddEvent("ButtonBeenden01",Click,"ButtonBeenden_Click") AddEvent("ButtonBeenden02a",Click,"ButtonBeenden_Click") AddEvent("ButtonBeenden02b",Click,"ButtonBeenden_Click") . . . AddEvent("ButtonBeenden31",Click,"ButtonBeenden_Click") Sub ButtonBeenden_Click AppClose End Sub
AddEvent("ButtonBeenden29",Click,"ButtonBeenden_Click")
AddEvent("ButtonBeenden31",Click,"ButtonBeenden_Click")
Sub ButtonBeenden_Click
AppClose
End Sub
End Sub
AddEvent("ButtonBeenden29",Click,"ButtonBeenden_Click")
AddEvent("ButtonBeenden31",Click,"ButtonBeenden_Click")
End Sub
Sub ButtonBeenden_Click
AppClose
End Sub
Sub App_Start
Form01StartseiteUndMenue.Show
ButtonNeuenKundenAnlegen01_Click 'Fragt gleich beim Start nach, ob ein neuer Kunde angelegt werden soll.
WaitCursor (True)
ErrorLabel(Err)
Die Tabelle muss ja erst erstellt sein bavor man sie füllen kann. Der Aufruf muss später erfolgen.
Sub ButtonBeenden_Click
AppClose
End Sub
TableName.TableSort("Nachname ASC, Vorname ASC") 'Sortiert die Tabele nach den Nachnamen. (ASC = ascending | DSC = descending)
WaitCursor (False)
ShowRow
[COLOR="Red"]Return[/COLOR]
Err:
Msgbox("Entweder gibt es einen Fehler beim Laden der Datenbank, oder eine Datenbank ist noch gar nicht vorhanden. Durch Anlegen eines neuen Kunden wird eine neue Kundendatenbank erstellt."," Hinweis",cMsgboxOk,cMsgboxHand)
'------------------------------------------------------
' Der "Beenden"-Button unten links
'------------------------------------------------------
'In der App_Start Routine oder einer anderen Init Routine die ganzen ButtonClicks auf eine einzige Routine verzweigen (Tip von Klaus).
AddEvent("ButtonBeenden01",Click,"ButtonBeenden_Click")
AddEvent("ButtonBeenden02a",Click,"ButtonBeenden_Click")
AddEvent("ButtonBeenden02b",Click,"ButtonBeenden_Click")
Vielen Dank Klaus !!!!!Es ist auch normal dass es nicht funktioniert !
Denn Du hast eine Return Instruktion bevor Du die AddEvent Instruktionen erreichst.