Daten aus Abfrage + input in Tabelle speichern?
16.12.2014 13:27:44
Stefan
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
Anzeige