*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..........