Office: (Office 2016) Nach Aktualisierung in bestimmtes Feld springen und einfügen

Hallo, brauche Hilfe,
Zur Beschreibung: Ich scanne mittels Handscanner ein Label mit 8 Barcodes.Da der Scanner aber nicht immer den richtigen Barcode erwischt, habe ich mir ein Feld angelegt in nur dieses gescannt wird. in jedem Barcode steht zu Beginn ein Buchstabe. So kann ich durch den Buchstaben das Feld zuordnen in dem ich den Code benötige.
Ich starte das Formular mit neuem Datensatz und jedes Mal wenn ich scanne, füllt er die dazugehörigen Felder 1-8. P kommt in das Feld Lieferscheinnummer, S in Feld Sachnummer usw. Auch wenn ich einen Barcode zufällig doppelt scanne, überschreibt er einfach das dazugehörige Feld nochmal.
in Excel habe ich folgenden Script:
If Left([B3], 1) = "P" Then 'Sachnummer
Range("B3:G3").Select
Selection.Copy
Range("AA2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Wenn im Feld B3 die Eingabe mit einem P anfängt soll nach Aktualisierung der Wert ohne P in ein anderes Feld "Lieferscheinnummer" eingetragen werden.
Wie schreibe ich das in Access VBA
Danke Gruß Andy

:)

 

Hallo,
in Access ist das einfacher, weil Du die Formularfelder direkt ansprechen kannst, da muss nix gesprungen werden.
Code:

 

Hallo Klaus,
vielen Dank. Ja das isses fast aber nach jedem Scan schreibt er einen neuen Datensatz. Hier sollten die 8 Felder erst gefüllt werden bevor dann ein neuer Datensatz kommt oder die Daten weiterverarbeitet werden. Das Formular ist an eine Tabelle gebunden.
Gruß Andy

 

Das dürfte sogar gut sein.

Ein Schritt zurück: Hier streifen wir die Datenmodellierung (Tabellenstrukturen).
Acht im Sinn gleiche Informationen gehören nicht excellike in Spalten, sondern datenbanklike in das gleiche Feld und somit in Datensätze einer zusätzlichen Tabelle mit dem Schlüssel auf das Label bzw. dessen Hintergrund.

 

Hallo,
der Vorschlag oben wechselt aber nicht den Datensatz, das hat einen anderen Grund.
Aber folge dem Hinweis von Eberhard, das habe ich übersehen.

 

Hallo Eberhard,
OK, wenn ich alle Felder nicht mehr zu Tabelle "Palettendaten" binde werden alle Felder richtig nach Klaus seiner Anweisung befüllt. Sieht hier echt gut aus, passt. Aber wie bekomme ich nun diese 8 Daten in einen Datensatz in die Tabelle. In der Tabelle sind die Spalten so benannt wie in der Prozedur ?

Private Sub Scanfeld_AfterUpdate()
Select Case Left(Scanfeld, 1)
Case "N"
Me.Lieferscheinnummer = Mid(Me.Scanfeld, 2)
Case "P"
Me.Sachnummer = Mid(Me.Scanfeld, 2)
Case "Q"
Me.Füllmenge = Mid(Me.Scanfeld, 2)
Case "V"
Me.Lieferantennummer = Mid(Me.Scanfeld, 2)
Case "S"
Me.Packstücknummer = Mid(Me.Scanfeld, 2)
Case "B"
Me.PackmittelKunde = Mid(Me.Scanfeld, 2)
Case "H"
Me.Chargennummer = Mid(Me.Scanfeld, 2)
'usw.
End Select
Me.Scanfeld = Null 'Scanfeld leeren
End Sub
Gruß Andy

 

\@Andy

Du solltest Dich schon für nur ein Forum entscheiden.

 

\@Maxel,
wenn man unter Druck steht, sucht man einfach überall und schreibt auch mal rein. Ok, wenn das falsch ist, werd ich mich dran halten. Vielleicht bin ich mal soweit und kann dann auch überall helfen, wäre schön.
Gruß Andy

 

Auch wenn man nicht unter Druck steht, spart man sich und anderen (ja, an die darf man schon aus Anstandsgründen auch denken) Zeit, wenn man seine Aufgabe hinreichend vollständig darstellt. Nur Bruchstücke provozieren Rückfragen, Gedanken in andere Richtungen aus der Interpretation von den spärlichen oder vlt. ungeschickten Formulierungen usw.

Die jetzigen Formularfeldnamen lassen vermuten, dass die Informationen doch in einem Datensatz liegen könnten. Über eine wirkliche Datenmodellierung braucht man aus eben genannten Gründen und somit völliger Unklarheit keine Gedanken verschwenden.

Wenn ich die Codesequenz in #6 anschaue, macht die genau das, was im Thementitel angefragt wird - womit sich die Frage nach der Frage stellt. Das Scanfeld müsste nur ein ungebundenes Feld im Formularkopf eines an die Tabelle gebundenen Formulars sein. Somit wird die Verteilung bereits vorgenommen.
Das Formular selber wäre ideal nur ein Eingabeformular (nur Daten eingeben).
Die Prozedur könnte man dann dahingehend erweitern um einen Test, ob alle Felder des Datensatzes inhaltlich belegt wurden mit einem dann folgenden Speichernaufruf.

 

Hallo,
der Codevorschlag von mir wechselt nicht den Datensatz. Das Formular sollte also an die Tabelle gebunden sein bzw. bleiben. Das Scanfeld muss ungebunden sein (wie von Eberhard auch angemerkt).

Zum Crossposting:
Crossposting | Excel ist sexy!

Und sei so freundlich und verwende für Codedarstellungen die Codetags des Forums.