Office: (Office 2010) Daten aus einem Formular kopieren und in ein neues Formular einfügen

Hallo,

ich habe eine Datenbank mit mehreren Formularen und den jeweils dazu gehörigen Tabellen.

Bisher habe ich immer den aktuellen Datensatz aus dem Formular Eingang mit nachfolgendem Befehl kopiert und in das Formular Statistik eingefügt

PHP:

         Private Sub Befehl98_Click()

DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
DoCmd.openform ("frmStatistik")
DoCmd.GoToRecord , , acNewRec
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdPaste

End Sub


:)

 

Mit einem Wort: Es sollen Daten von einer in eine andere Tabelle kopiert werden. Das bedeutet doppelte Datenhaltung und damit ein falsches Datenmodell.

 

Aufgrund der vorgegebenen Datenstruktur leider nicht anders möglich.

 

Hallo,

ist Name wirklich der Feldname? Was nicht gut wäre.
Eventuell so...
In ein Modul
Code:

frmEingang:
Code:

 

Hallo,

dann ist die vorgegeben Struktur falsch.
Es würde vollständig genügen nur den PS des Hauptdatensatzes zur Statistik zu übertragen. Mit Abfragen lässt sich dann die gewünschte Anzeige der vollständigen Daten erreichen.
Vielleicht sollte man doch die Struktur überdenken.

 

Hallo,

Name ist nicht der wirkliche Feldname sondern NName.

Bei dem Eintrag

PHP:

         Public NName As String


 

...in den Kopf eines Moduls schreiben und nicht den gleichen Namen, als der Feldnamen ist, verwenden.
Ich habe sName geschrieben!
Modul:
Code:

PS: ich möchte dir den Hinweis von Maxel und Klaus auch noch einmal zu bedenken geben!

 

Hallo,

ich habe jetzt eine Lösung gefunden die funktioniert.

PHP:

         ......
Dim temparray(5) As Variant

DoCmd.RunCommand acCmdSelectRecord
temparray(1) = Me.NName
temparray(2) = Me.Vorname
temparray(3) = Me.PLz
temparray(4) = Me.Ort

DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
DoCmd.openform ("frmStatistik")
DoCmd.GoToRecord , , acNewRec

Forms("frmStatistik").NName.Value = temparray(1)
Forms("frmStatistik").Vorname.Value = temparray(2)
Forms("frmStatistik").PLz.Value = temparray(3)
Forms("frmStatistik").Ort.Value = temparray(4)
.......


 

Hi,
man muss kein Formular öffnen, um dort einen Datensatz anzulegen, wenn es keine manuelle Eingabe ist.
Führe eine Anfügeabfrage auf die zugrundeliegende Tabelle aus.
... ungeachtet der redundanten Daten die produziert werden, aber die Hinweise weist du ja lapidar von dir.

 

Hallo,

für eine Abfrage benötigst aber zumindest eine ID, dass du auch den richtigen Datensatz weitergibst.
Ob das in der DB gegeben ist...? Wobei die ID als Autowert ja einfach nachrüstbar wäre.