Eintrag in ein Feld ändert ein anderes mit ab!

[animate]

wenn ich das nicht falsch verstehe, dann sollte das ganz einfach über Formeln gehen:

bei den Feldern, die du abhängig von anderen Feldern ausfüllen willst, kannst du die Formel jeweils in die InputTranslation (Eingabeübersetzung, glaube ich) schreiben.

Also in die InputTranslation des Felds aus deinem Beispiel:
@If(Dat_Bera_IV_BewerbAbgAM!="";"Nach Abgabe der Bewerbung";fldKategorie)

und das halt für jedes Feld, das du abhängig von einem oder mehreren anderen befüllen willst.
z.B. in dein anderes Feld Diaolog_Bera_ArtGespr
@If(Bedingung1;"Bewerbung";Diaolog_Bera_ArtGespr)

InputTranslation passiert ganz kurz vor dem Speichern.

[Bellerophon]

@TMC:

Leider ist die mit 65.000 Datensätzen a 170 Feldern mit persönlichen Angaben SEHR Vertraulich! ;-(

Wäre auch etwas zu groß zum versenden........naja, macht nix!
Ich bin nun seit 06.00 Uhr an dieser und anderer Probleme dran, mein Kopf ist nun hin und wech!
Werde mir wohl das Laptop schnappen und zu Hause weiter "üben" *lol*
Muss es bis Dienstag geschafft haben........

Danke für Eure Mühe! Bis später.....
Werde das Ergebnis (wenn ich denn eines finde) posten!

Sorry wegen dem Debugger.....

[Bellerophon]

@Thomas Völkl:

Damit schreibt er mir in das Datumsfeld den Text:
"Nach Abgabe der Bewerbung" rein......

[Bellerophon]

@TMC!

Thanx finde ich Klasse das Du mir das anbietest.......trotzdem geht es leider nicht.......!

[TMC]

@Thomas: Afaik zieht da die Input Translation leider nicht mit: Mehrere Felder auswerten etc.

Kann mich jetzt aber auch täuschen, aber ich hatte so was schon mal und musste auf Querysave ausweichen.


@Bell:
Du kannst mir auch nur die DB schicken ohne Doks, die interessieren mich eh nicht :-)

Ansonsten: schmeisse mal alles unnötige aus der Maske raus zum testen:
Deine 117 Felder, das Querysave bereinigst Du, so dass nur mein Scriptbeispiel ausgeführt wird.
Und dann nach jeder Zeile eine Msgbox, dann siehst Du wo es hängt.

Matthias

[animate]

du musst die Formel in die InputTranslation von dem Feld schreiben, in das du "Nach Abgabe der Bewerbung" schreiben willst, nicht in das Datumsfeld.

[animate]

@Thomas: Afaik zieht da die Input Translation leider nicht mit: Mehrere Felder auswerten etc.

Kann mich jetzt aber auch täuschen, aber ich hatte so was schon mal und musste auf Querysave ausweichen.

ich bin mir sehr sicher, dass das klappt.
Wenn du in Feld X einen Wert eintragen möchtest, der von Feld Y und Z abhängt, dann kannst du das in der InputTranslation von Feld X schreiben:
@If (Y = "" & Z = ""; 0; Y+Z)

[Bellerophon]

*greetz*@ALL!

Das scheint ja zu klappen!
War wohl Blind!
Teste es nun noch mit den anderne Felden und dann ´denke ich das es klappen wird! War immer auf das Eingebene Feld beschränkt!

Thanx!

Poste das ergebnis am Montag.......vieleeeeeeeeeeeeeen Daaaaaaaaaaaaaaaaaaaaaank!

[animate]

der Illegal use of parentheses Fehler kommt übrigens weil in der Zeile

uidoc.FieldSetText("fldKategorie", "Nach Abgabe der Bewerbung")

das Call am Anfang fehlt und die Parameter in Klammern stehen.

ohne Call geht das (Parameter in Klammern setzen) nur, wenn du genau einen Parameter hast und den byValue übergibst oder du lässt dir einen Wert von der Funktion zurückgeben, wenn sie das kann

Alternativ zum Hinzufügen des Call-Schlüsselworts könntest du die Klammern um die Parameter weglassen - meine persönliche Meinung dazu ist, dass du das besser nicht machst. Ich finde, sowas macht den Code unübersichtlicher.

[TMC]

Thomas, danke für die Bestätigung.

hmmm, jetzt bin ich leicht verwirrt. Ist auch schon länger her die Problematik, aber ich bin mir sicher ich kam damals auf einen Fehler.

So hatte ich das damals dann in Script umgesetzt:
szChecker = doc.Quantity(0) + doc.Quality(0) + doc.A(0)
If szChecker = ""  Then
   Messagebox "You must enter at least one finding!" & Chr(10) & Chr(10) & "The document has not been saved ....." , 16, db.title
   Continue = False
   Exit Sub
Else
End If

In Formelsprache kam ich da nicht weiter im Feld-Event.

Die Felder sind Checkboxen, wenn nicht mindestens 1 Checkbox angehakt ist, dann soll Fehlermeldung kommen.

Na ja, wie auch immer, schön jedenfalls dass es geht. Trotzdem wurmt es mich, dass mein 2zeiler Script nicht geht.

Matthias

[TMC]

Volltreffer, Thomas mit dem Call.

Das kommt davon, wenn man hier Script nur reinschribt ohne zu testen :-)
Habe schon mehrmals die Hochkomma und Klammern gecheckt.....

Matthias

[animate]

Thomas, danke für die Bestätigung.

hmmm, jetzt bin ich leicht verwirrt. Ist auch schon länger her die Problematik, aber ich bin mir sicher ich kam damals auf einen Fehler.

So hatte ich das damals dann in Script umgesetzt:
szChecker = doc.Quantity(0) + doc.Quality(0) + doc.A(0)
If szChecker = ""  Then
   Messagebox "You must enter at least one finding!" & Chr(10) & Chr(10) & "The document has not been saved ....." , 16, db.title
   Continue = False
   Exit Sub
Else
End If

In Formelsprache kam ich da nicht weiter im Feld-Event.

Die Felder sind Checkboxen, wenn nicht mindestens 1 Checkbox angehakt ist, dann soll Fehlermeldung kommen.

das was du da machst, ist die Eingabevalidierung.
Wenn du das mit Formeln realisierst, dann benutzt du dazu @Failure und @Success
Das funktioniert nicht, wenn du es in die InputTranslation schreibst
Aber in der InputValidation - und nur da! - funktioniert das - auch mit Prüfen mehrer Felder
im Feld X:
@If(X = "" & Y = "" & Z = ""; @Failure("Fehler");@Success)

Die Prüfung in der InputValidation ist aber manchmal unangenehm, z. B. dann, wenn du dein Frontend-Dokument "refreshst", um dem Benutzer irgendwelche neuen Erkenntnisse anzuzeigen. Denn dann wird validiert, obwohl man das eigentlich gar nicht möchte. Außerdem kann man Titel und Symbol der Msgbox nicht ändern

[TMC]

Logisch, danke für den Hint, ich hatte hier Input Validation mit Translation vertauscht.

Habe hier echt falsch kombiniert. Beim ersten Lesen des ersten Postings kam mir "hmm, eigentlich wäre ein Feld Event angebracht, aber da kam es ja mal bei mir zu Problemen. Also gleich im QuerySave machen".

Wie auch immer:

Bell kann sich es nun aussuchen: Entweder er erweitert sein Querysave per Script, oder aber er macht eine simple Input Translation.

Matthias

Irgendwie bestätigt mir aber auch dies wieder, dass man zentral wo ein Dok bräuchte "Known Bugs" oder so. Denn oftmals stosse ich auf Fehler die wirklich welche sind im Client, oft sind dies aber auch nur von mir verursachte. Werde dies im Rahmen des neu geplanten "Best Practices" Teils mal angehen...

[Bellerophon]

*greetz* @ ALL!

Danke für Eure schnelle Hilfe. Habe Hier einige Anregungen bekommen. Von der "Eingabeumsetzung / -validierung" bin weg gegangen.
Ist nun alles im "Querysave" der Datenbank! Oben bereits beschriebenes Script wurde wie folgt ergänzt:


' Setze Intresse aus   
   If uidoc.fieldgettext("fldImportSKA") = "2" Then
      Call uidoc.fieldsettext("Dialog_Bera_DatHerkunft" , "Datenspeicher SKA")
   End If
' ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------   
' Setze Status
   If uidoc.fieldgettext("Dat_Bera_II_BewerbUnterlab") +uidoc.fieldgettext("Dat_Bera_II_perPost") <> "" Then
      Call uidoc.fieldsettext("fldKategorie" , "Bewerbung abgegeben")
   End If   
   If uidoc.fieldgettext("Dat_Bera_IV_BewerbAbgAM") +uidoc.fieldgettext("Dialog_Bera_IV_BewerbWeiterAN") <> "" Then
      Call uidoc.fieldsettext("fldKategorie" , "Abgabe der Bewerbung an ZNwG/OPZ")
   End If
   If uidoc.fieldgettext("Dialog_Bera_V_EingBewbei") <> "" Then
      Call uidoc.fieldsettext("fldKategorie" , "Eingang der Bewerbung bei ZNwG/OPZ")
   End If
   If uidoc.fieldgettext("Dialog_VorlVerwPla") <> "" Then
      Call uidoc.fieldsettext("fldKategorie" , "Vorläufige Einplanung")
   End If
   If uidoc.fieldgettext("Dat_Bera_V_Einpl_zum") <> "" Then
      Call uidoc.fieldsettext("fldKategorie" , "Eingestellt")
   End If
   If uidoc.fieldgettext("Dat_Bera_V_RücknBewer") + uidoc.fieldgettext("Dialog_AblehnungGrund")<> "" Then
      Call uidoc.fieldsettext("fldKategorie" , "Abgelehnt")
   End If
   If uidoc.fieldgettext("Opt_Bera_V_Abgeschl") = "Ja" Then
      Call uidoc.fieldsettext("fldKategorie" , "Abgeschlossen")
   End If
' ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------   
' Kontollabfrage Weitergabe
   
   If uidoc.FieldGetText("Dat_Bera_IV_BewerbAbgAM") <> "" Then
      If uidoc.fieldgettext("Dialog_Bera_IV_BewerbWeiterAN") = "" Then
         Messagebox "Sie müssen angeben, an wen die Unterlagen abgegeben wurden !" , MB_OK + MB_ICONINFORMATION , "Eingabe vergessen !"
         uidoc.gotofield("Dialog_Bera_IV_BewerbWeiterAN")
         continue = False
         Exit Sub
      End If
   End If   
   If uidoc.FieldGetText("Dialog_Bera_IV_BewerbWeiterAN") <> "" Then
      If uidoc.fieldgettext("Dat_Bera_IV_BewerbAbgAM") = "" Then
         Messagebox "Sie müssen angeben, wann die Unterlagen abgegeben wurden !" , MB_OK + MB_ICONINFORMATION , "Eingabe vergessen !"
         uidoc.gotofield("Dat_Bera_IV_BewerbAbgAM")
         continue = False
         Exit Sub
      End If
   End If
   
End Sub

Das klappt auch ganz gut! ;-) Vielen dank nochmal..........