Formulardaten verknüpfter Excel-Dateien in eine Access-Tabelle speichern...

[Radi1311]

...zur Weiterverarbeitung

Hallo zusammen.
könnt ihr mir bei folgendem problem helfen:
Datenherkunft sind drei mit Access verknüpfte Exceltabellen: exctblAnlage, exctblFertigteil, exctbl StueLi
heisst: auf Anlage1 wird Fertigteil1 mit den Einzelkomponenten StueLi1...n gefertigt.
Die Exceltabellen stehen in einer Beziehung im Access. Die Daten werden in Formular frmAnlage mit Unterformular subfrmFertigteil und das wiederum mit Unterformular subfrmStueLi verknüpft.
Das funktioniert auch alles ganz wunderbar. Nun aber müssen die Datensätze im Access weiterverarbeitet werden. Das geht aber offensichtlich nicht mit verknüpften Exceltabellen, hab ich gelernt. Also denk ich mir, ich speicher die Daten der drei Formulare in drei in Beziehung stehende Accesstabellen tblAnlage, tblFertigteil, tblStueli. In der Tabelle tblFertigteil müssen neben den Daten aus der Exceltabelle auch noch weitere Daten gespeichert werden, wie z.b. das aktuelle Datum und zwei weitere Zahlenwerte.
Wie mmach ich das??
Kann mir je,mand helfe? wäre genial :-)

[Beaker s.a.]

Hallo Radi,
Wenn Du eine Quelle für die Daten der zusätzl. Felder hast, sollte das mit einer Anfügeabfrage (INSERT INTO ...) kein Problem sein.
gruss ekkehard

[Radi1311]

hallo ekkehard,

danke für deine nachricht :-)
hab probiert nach einem muster aus dem web. klappt aber i-wie nicht :-(
ich denke, ich habe fehler im code; ich kenn die INSERT INTO struktur nicht genau genug.
häätest du vlt. n beispiel für mich? das wäre total genial
gruss

Radi

[MaggieMay]

Hallo,

ich denke, ich habe fehler im code; ich kenn die INSERT INTO struktur nicht genau genug.

was läge da wohl näher als deinen Code zu zeigen, damit man evtl. Fehlerquellen darin erkennen und dir zeigen könnte?!

[Radi1311]

sorry, hat ein wenig gedauert :-(
das ist der code:

Private Sub Befehl28_Click()
On Error GoTo Err_Befehl28_Click

CurrentDb.Execute _
"INSERT INTO tblStueLi (Ressource) " _
& "SELECT " & Me.Ressource(Ressource).Value & "'", dbFailOnError

Exit_Befehl28_Click:
    Exit Sub

Err_Befehl28_Click:
    MsgBox Err.Description
    Resume Exit_Befehl28_Click
   
End Sub

"tblStueLi"  ist die Access-Tabelle, in der geschrieben werden soll. "Ressource" heissen die Felder im Formular als auch in der Tabelle

[DF6GL]

Hallo,

CurrentDb.Execute _
"INSERT INTO tblStueLi (Ressource) " _
& "Values ('" & Me!Ressource & "')", dbFailOnError


sofern es sich bei "Ressource" um ein Feld mit Datentyp TEXT (in der Tabelle) handelt.

[Radi1311]

Hallo Franz,

danke für die rasche Antwort :-)
Ressource ist ein Zahlenfeld (Long Integer)

[DF6GL]

Hallo,

dann lautet es so:

Code [Auswählen] Erweitern

CurrentDb.Execute _
"INSERT INTO tblStueLi (Ressource) " _
& "Values (" & Me!Ressource & ")", dbFailOnError

[Radi1311]

danke, hab ich gemacht :-)
dann kommt beim klicken auf den button diese meldung: "Datentypen in Kriterienausdruck unverträglich."
:-(

[DF6GL]

Hallo,

na, dann ist Ressource kein Feld mit Datentyp "Zahl,Long"  oder es steht evtl. kein Wert in Formularfeld drin.

[MaggieMay]

Hi,

was hast du dir denn bei der ursprünglichen Eingabe gedacht:

Code [Auswählen] Erweitern

Me.Ressource([color=red]Ressource[/color]).Value


Was für eine Art von Steuerelement ist "Me.Ressource" und womit sollte es indiziert werden?