Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Daten aus Abfrage + input in Tabelle speichern?

Daten aus Abfrage + input in Tabelle speichern?
16.12.2014 13:27:44
Stefan
Hallo,
ich habe da ein Formular letztes Jahr erstell mit Hilfe dieses Forums welches mir einen Kunden Datensatz aus einer Datenbank anzeigt + ein Eingabefeld welches dann zusammen mit den Kundendaten an ein Bericht uebergeben wird und dieser dann ausgedruckt wird.
Nun moechte ich das dahingehend aendern, das die aufgerufenen daten + die Eingabe die von einem Scanner (code) uebergeben werden, angezeigt werden, aber nicht ausgedruckt, sondern in einer speraten Tabelle abgespeichert werden.
Tja nur wie ?
hier mal mein bisheriger Code:

Option Compare Database
Option Explicit
Private Sub Befehl0_Click()
DoCmd.Close acForm, Me.Name
'DoCmd.Close acForm, "ufo"'
End Sub
Private Sub Nam_AfterUpdate()
Me!ufo.Form.Requery
Me!packetinput.SetFocus
End Sub
Private Sub Nam_Click()
Me.Nam = Null
Me.packetinput = Null
'Me.stk = Null
'Me!ufo.Form!packete = Null
Nam_AfterUpdate
Me!Nam.SetFocus
End Sub
Private Sub packetinput_AfterUpdate()
Me!ufo!packete.Requery
On Error GoTo Err_berichtdrucken
Dim i As Integer
For i = 1 To Me!packetinput
Dim stDocName As String
stDocName = "dpd_new"
DoCmd.OpenReport stDocName, acNormal
Next i
Me.Nam = Null
Me.packetinput = Null
Me!Nam.SetFocus
Exit_berichtdrucken:
Exit Sub
Err_berichtdrucken:
MsgBox Err.Description
Resume Exit_berichtdrucken
End Sub

Ansetzen muss ich ja hier

Private Sub packetinput_AfterUpdate()
Me!ufo!packete.Requery
On Error GoTo Err_berichtdrucken
Dim i As Integer
For i = 1 To Me!packetinput
Dim stDocName As String
stDocName = "dpd_new"
DoCmd.OpenReport stDocName, acNormal
Next i
Me.Nam = Null
Me.packetinput = Null
Me!Nam.SetFocus
Exit_berichtdrucken:
Exit Sub
Err_berichtdrucken:
MsgBox Err.Description
Resume Exit_berichtdrucken
End Sub

Statt der uebergabe in einen Bericht sollen die Daten in eine Tabelle gespeichert werden.
Ich gehe mal davon aus, das die Tabelle vorhanden sein muss und die felder die es zu befuellen gilt auch im code angegeben werden muessen.
Wenn mir hierbei jemand helfen koennte?
Lg stefan

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten aus Abfrage + input in Tabelle speichern?
16.12.2014 15:19:01
Stefan
Ich habe mal folgendes versucht bekomme aber Fehlermeldungen.
(syntax fehler. fehlender operator in abfrageausdruck)

Private Sub packetinput_AfterUpdate()
Dim strSQL As String
strSQL = "INSERT INTO dpdrueckhol (kdnr, kunde, plz, ort, strasse, eancode) " & _
"VALUES (" & Me!ufo.Form!C001 & ", " & Me!ufo.Form!C053 & "," & Me!ufo.Form!C050 &  _
", " & Me!ufo.Form!C051 & ", " & Me!ufo.Form!C052 & ",  " & Me!ufo.Form!packete & ")"
DoCmd.RunSQL strSQL
Me.Nam = Null
Me.packetinput = Null
Me!Nam.SetFocus
Exit Sub
End Sub
keiner ne Ahnung?
lg stef
Anzeige

311 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige