Änderungen im Hfo und Ufo erkennen?

[-Tom-]

Hi,

die Dateien kann ich nicht öffnen (ZIP_Ordner ist ungültig.

Harald

Jetzt aber -> Motordatenbank

Tom

[bahasu]

Hi Tom,

1. Datei ist ladbar.
2. Herzlichen Gückwünsch zu den Beziehungen (gibt reichlich)
3. Kannst Du bitte beschreiben, wie Du vorgehst: Start-Formular ? Und dann?
    Die Angaben helfen, dass ich nicht den Fehler suchen muss, sondern mich auf das Finden der Ursache konzentrieren kann.

Harald

[-Tom-]

2. Herzlichen Gückwünsch zu den Beziehungen (gibt reichlich)

Ich wurde hier ja von diesem Forum bestens unterstützt!

3. Kannst Du bitte beschreiben, wie Du vorgehst: Start-Formular ? Und dann?
    Die Angaben helfen, dass ich nicht den Fehler suchen muss, sondern mich auf das Finden der Ursache konzentrieren kann.

1. Motordaten erfassen/ändern
2. Über Motornummer suchen einen Motor auswählen
3. Schaltfläche "Neu" drücken -> Jetzt sollte nicht die Abfrage "Änderungen speichern?" kommen.
4. jetzt erscheint ein Neuer leerer Datensatz
5. wenn ich nun auf Beenden drücke, erscheint auch die Meldung "Änderung speichern?"  was aber bei einem leeren Datensatz auch nicht passieren soll.

Tom

[bahasu]

Hi Tom,

Die geänderte gezippte Version ist mit 297 kb zu lang. Deshalb "nur" Kommentare.

Knackpunkt waren die Zuweisungen von ... = 0 im "Neu"-Button. Nach Deaktivieren mit "'" unterblieb der Änderungshinweis.
'30.11.2013 Me.frm01MotorErfassungUfoMechDat!kontr_thermo = 0
'30.11.2013 Me.frm01MotorErfassungUfoMechDat!kontr_fremdlüfter = 0
'30.11.2013 Me.frm01MotorErfassungUfoMechDat!kontr_korrossionsschutz = 0
'30.11.2013 Me.frm01MotorErfassungUfoMechDat!kontr_kondenswasserbohrung = 0
'30.11.2013 Me.frm01MotorErfassungUfoMechDat!kontr_säureschutz = 0
'30.11.2013 Me.frm01MotorErfassungUfoMechDat!kontr_rücklaufsperre = 0


Vom Problem unabhängig hatte ich Anweisungen von "Form.allow..." gegen "Me.allow..." getauscht.


In Ereignissen BeforeUpdate ist
    If Me.Dirty = True Then
nicht notwendig.


Den Verweis auf "Web Office ..." mußte ich deaktivieren.

Harald

[-Tom-]

Danke!

Tom

[-Tom-]

Hallo,

Ich habe hier noch eine Frage, wie kann ich denn vom Hfo eine Funktion im Ufo aufrufen?

Habe es so versucht:

Code [Auswählen] Erweitern

CheckInput = Forms!frm01MotorErfassungUfoMechDatUfoGetr.MechDatenPrüfen_neu()

Aber da erhalte ich immer einen Laufzeitfehler 2450 - ... kann das angegebene Formular frm01MotorErfassungUfoMechDatUfoGetr nicht finden.

Tom

[bahasu]

Hi,

ist die Funktion wie folgt deklariert?

Public Function MechDatenPrüfen_neu() as boolean

Harald

[-Tom-]

Die Funktion war nicht als Public deklariert, hab es geändert.
Geht trotzdem nicht.

Das komische ist doch dass er das Formular nicht findet.

Tom

[bahasu]

Hi Tom,

was passiert bei:

Code (vb) [Auswählen] Erweitern

CheckInput = Me.frm01MotorErfassungUfoMechDat.Form.MechDatenPrüfen_neu

Harald

[-Tom-]

Das funktioniert, aber ich möchte ja auf das Ufo (frm01MotorErfassungUfoMechDatUfoGetr) unterhalb von dem Ufo (frm01MotorErfassungUfoMechDat) zugreifen.

So funktioniert es leider nicht:

Code [Auswählen] Erweitern

CheckInput = Me.frm01MotorErfassungUfoMechDat.frm01MotorErfassungUfoMechDatUfoGetr.Form.MechDatenPrüfen_neu

Tom

[bahasu]

Hi,

In dem Form gibt es nicht die gesuchte Funktion.
Dort finde ich nur: "MechDatenPrüfenGetr_neu".

Harald

[-Tom-]

In dem Form gibt es nicht die gesuchte Funktion.
Dort finde ich nur: "MechDatenPrüfenGetr_neu".

Diese soll es auch sein, war ein Tippfehler.

Tom

[bahasu]

Hi Tom,

mit einem Test-Aufruf, der im Hauptformular plaziert ist:

Code (vb) [Auswählen] Erweitern

MsgBox Me.frm01MotorErfassungUfoMechDat!frm0403MotorSuchenUfoElDatUfoGetr.Form.MechDatenPrüfenGetr_neu
lande ich bei der Funktion.


Die Funktion muss deklariert sein als:
Public Function MechDatenPrüfenGetr_neu() As Boolean


Harald

[DF6GL]

Hallo,


warum wird nicht eine Public-Funktion in einem Standardmodul benutzt, die von allen Stellen in der Anwendung aus aufgerufen werden kann, statt dieser Vergewaltigungen von Klassenmodul-Funktionen und Verletzung der (erwünschten) Kapselung der formularbezogenen Prozeduren?

[bahasu]

Hi,

vermutlich wird dieser Aufruf nicht mehr notwendig sein, wenn die Überprüfung auf vollständige Datenerfassung (siehe anderer Diskussionsbeitrag) wie gewünscht funktioniert.
Wenn wie dort vorgeschlagen die Prüfung vor dem Speichern erfolgt, musss nicht mehr im nachhinein aus anderen Formularteilen geprüft werden.

Harald