Office: (Office 2016) Edit Datensatz

Was Du unbedingt vermeiden solltest: Name als Feldname verwenden. Name ist ein VBA-Schlüsselwort und eine Eigenschaft von Objekten.

Eine Artikelverwaltung kann man aus dem Beziehungsfenster erkennen, mehr aber auch nicht.
Du sollst auch keine Originaldatei hochladen sondern eine Datenbankdatei, in der nur die Objekte (Tabellen/Formulare/Abfragen/Berichte) enthalten sind, welche zur Problemlösung erforderlich sind. Erstelle eine leere, neue Datenbank und importiere die o.g. Objekte. Bei Tabellen achte darauf, das beim Import-Dialog "Nur Struktur" gewählt wird. Dann sind die Tabellen alle leer. Füge einige Spieldatensätze ein. Datenbank komprimieren und reparieren ausführen. DB schließen und die Datei zippen und hier hochladen.

 

Hallo Klaus,
danke für die Antwort.
Bitte vergiss das mal mit den 20 cbo's. War nur angeführt, damit ihr wisst, warum ich eine Vereinfachung des VBA-Speichercodes haben möchte. Bleiben wir bei einem cbo im Beispiel. Das reicht für meine Fragen.

Ja, der Feldname "Name" kommt natürlich nicht vor, hatte ich übersehen.

Was ich mit dem sfm mache, siehst du in der TestDB unter #9. Diese Aufteilung ist auch eine Vorgabe, die ich umsetzen muss. - Suchen - Auswählen - Ändern - Speichern.

Meine Fragen bleiben die 2 unter #9 zum Code:

Code:

Das alles auf meine TestDB unter #9 bezogen.
Für Antworten wäre ich dankbar.
VG Jens.

Edit: und danke auch Elmar, hatte deine Antwort noch nicht gesehen - Die Datenbank ist genau so aufgebaut wie angegeben. Mehr nicht. Ist sicherlich für euch zu einfach, aber wie gesagt, bin halt kein Profi.

 

Hallo,
der Sinn dieses Konstrukts ist mir völlig schleierhaft, auch der Zweck des Ufos ist mysterös. Auch das komplizierte Speichern der Kombis erschließt sich mir nicht.
Die Prüfung auf IsNumeric macht doch bei einem Kombi, das eine Auswahl anbietet auch absolut keinen Sinn. Die gebundene Spalte ist das Schlüsselfeld und das ist zwangsläufig nummerisch. Und ob das ein Ufo ist, sieht doch keiner mehr in der fertigen DB.
Das kommt mir vor wie von hinten durch die Brust ins Auge.

Du kannst doch ein ganz normales gebundenes Endlosformular (kein Datenblatt) verwenden, in den Formularkopf kommen dann die Buttons und die ungebundenen Felder zum Suchen. Für neue Daten gehst Du per Button zu einem neuen Datensatz und trägst die neuen Daten ein. Bei Datenswechsel kann man dann fragen ob gespeichert werden soll, wenn nein, werden die Eingaben verworfen.

Im Anhang findest Du noch eine Beispiel mit einem gebundenen Formular bei dem gefragt wird ob gespeichert werden soll oder nicht.

 

Hallo Klaus,
danke für die Antwort. Ja, das mit dem gebundenen Endlosformular fand ich auch ganz gut. Wurde aber aus optischen und Handling-gründen nicht akzeptiert.

Genau das finde ich ja auch. Nur finde ich keine andere VBA-Lösung.
Lasse ich die Abfrage mit IsNumeric weg, kommt bei Auswahl eines DS durch Doppelklick im sfm und keiner Änderung des cboPGS beim Abspeichern die Fehlermeldung: Laufzeitfehler 440 "Sie haben einen Wert eingegegeben, der für dieses Feld nicht gültig ist". Ich denke, dass das daran liegt, da ich bei der Datenübergabe vom sfm ins frm (subOverSfm) nur das txtPG Feld ins cboPGS Feld schreibe und dann noch kein numerischer Wert im cbo-Feld steht, oder? Genau so verhält es sich ja auch, wenn ich den Text im cbo-Feld komplett raus lösche, weil dort nichts mehr stehen soll, auch das geht nicht??*confused.gif*

VG Jens

 

Huhu, ich glaube ich habe mir die eine Frage jetzt schon selbst beantwortet durch deinen Hinweis auf die Numeric des ersten Feldes. Ich muss nur bei Zuweisung der Daten aus dem Unterformular nicht den Text, sondern den Fremdschlüssel ins cbo-Feld schreiben, schon benötige ich die Abfrage IfNumeric nicht mehr. Jetzt sieht mein Code so aus:
Code:

Bleibt nun noch die Frage 1: Wie kann ich einem cbo-Feld wieder den Wert leer zuweisen, wenn ich im cbo-Feld den Text rauslösche, ohne das Zuweisen von 3 als leeren DS?
VG Jens.

 

Hallo,
weise dem Feld NULL (nicht die Zahl 0) zu.

 

Hallo Klaus, ich habe das jetzt so gemacht:
Code:

Da kommt dann die Fehlermeldung:
Laufzeitfehler 440: Sie wollen den Null-Wert einer Variablen zuweisen, die nicht den Datentyp Variant hat.
Was mache ich da falsch?
VG Jens.

 

Moin, Jens,

Formularfelder sind immer Textfelder.

 

Hallo Ralf, danke für die Antwort, leider sagt mir das für diese Frage überhaupt nichts. Wie muss denn dann der Code aussehen?
VG Jens.

 

Tut mir leid, ich habe nicht verstanden, wo Dich der Schuh drückt :-( Da wäre ich auf ein paar Worte angewiesen, was der Anwender wann sehen soll.

Die Meldung bedeutet, Textfeldern kann man nicht den Wert NULL zuweisen, sondern nur den "Leerwert" = "".

 

Geht leider auch nicht, kommt die selbe Fehlermeldung. Auch = vbNullString geht nicht.
Meine Frage war:

Hier möchte ich eigentlich auch wieder das Feld wirklich leeren können und nicht durch die leere Produktgruppe 3 füllen. Wie geht das?

Also wenn ich den Eintrag in einem cbo-Feld einfach lösche, dass ich dann in dem Fremdschlüsselfeld nichts mehr drin stehen habe. So als hätte noch nie etwas darin gestanden.
VG Jens.

 

Der Bezug bzw. dessen Syntax stimmt nicht, achte auf die ! statt Punkt
Code:

'Vom Hauptformular aus reicht:
'Me![UFoSteuerelement_im_Hauptformular].Form![Steuerelement_im_Ufo]

 

Danke Elmar und vorallem auch Klaus,
mein richtiger Fehler war, dass ich beim Abspeichern den Inhalt der cbo als Text und nicht als Zahl verstanden hatte.

Außerdem spinnte meine Testdatenbank irgendwie. Nachdem ich es neu geschrieben hatte und eure Ratschläge beachtet habe, geht es als einfache Zuweisung ohne jegliches If... Then und das auch beim Löschen.
Danke und VG Jens.