Access 2016 gefiltertes Unterformular Eingabe ein Wert Übernahme im UF
Hallo
Access 2016
Ich habe ein Problem denn ich nicht lösen konnte.
Ich bedanke mich für jede kleine Hilfe im Voraus
Ich habe ein Formular in dem ich ein Unterformular habe
mein Datensätze haben eine Barcode fängt mit 5000 an und ist zur zeit bei ca 24000 jedes mal wenn ich ein Datensatz dazu füge geht der Barcode 1 höher zB 24001
Im Formular habe ich 2 Textfelder Ungebunden und ein Button
mittels der Textfelder kann ich von bis Filtere z.B textfeld1 5010 Textfeld2 bis 5020
das klappt sehr gut
Jetzt will ich noch ein Ungebundener Textfeld in dem ich ein Wert eingebe
dieser wert soll in den UF in einem bestimmten Textfeld übernommen werden
aber nur in den gefilterten Datensätzen
z.B BarcodVon 5010
BarcodeBis 5020
Unterformular wird gefiltert
Ungebundener Kombinationsfeld heißt (Verkaufs Land) Eingabe (Deutschland , EU Verkauf , Drittland
jetzt soll der Wert in den gefilterten 11 Datensätzen in die Spalte (Verkaufs Land) 11x übernommen werden
habe es im Netz gesucht aber nichts passendes gefunden
hab es so probieret kommt immer wider Fehlermeldung
Private Sub Kombinationsfeld168_AfterUpdate()
Dim sSQL As String
sSQL = "UPDATE [Material und Lagerwirtschaft] SET [Verkaufs Land] = " & Str(Me.Kombinationsfeld168) & " WHERE Barcode BETWEEN " & Me.BarcodeVon & " AND " & Me.BarcodeBis
CurrentDb.Execute sSQL, dbFailOnError
Me.VerkaufGesamtEingabeMaterialLagerwirtschaft_Unterformular.Form.Requery
End Sub
mit Rechnungsnummern und mit Zahlen ist die Übertragung kein Problem das funktioniert nur mit normalen Texten funktioniert es nicht
danke im Voraus
Access 2016
Ich habe ein Problem denn ich nicht lösen konnte.
Ich bedanke mich für jede kleine Hilfe im Voraus
Ich habe ein Formular in dem ich ein Unterformular habe
mein Datensätze haben eine Barcode fängt mit 5000 an und ist zur zeit bei ca 24000 jedes mal wenn ich ein Datensatz dazu füge geht der Barcode 1 höher zB 24001
Im Formular habe ich 2 Textfelder Ungebunden und ein Button
mittels der Textfelder kann ich von bis Filtere z.B textfeld1 5010 Textfeld2 bis 5020
das klappt sehr gut
Jetzt will ich noch ein Ungebundener Textfeld in dem ich ein Wert eingebe
dieser wert soll in den UF in einem bestimmten Textfeld übernommen werden
aber nur in den gefilterten Datensätzen
z.B BarcodVon 5010
BarcodeBis 5020
Unterformular wird gefiltert
Ungebundener Kombinationsfeld heißt (Verkaufs Land) Eingabe (Deutschland , EU Verkauf , Drittland
jetzt soll der Wert in den gefilterten 11 Datensätzen in die Spalte (Verkaufs Land) 11x übernommen werden
habe es im Netz gesucht aber nichts passendes gefunden
hab es so probieret kommt immer wider Fehlermeldung
Private Sub Kombinationsfeld168_AfterUpdate()
Dim sSQL As String
sSQL = "UPDATE [Material und Lagerwirtschaft] SET [Verkaufs Land] = " & Str(Me.Kombinationsfeld168) & " WHERE Barcode BETWEEN " & Me.BarcodeVon & " AND " & Me.BarcodeBis
CurrentDb.Execute sSQL, dbFailOnError
Me.VerkaufGesamtEingabeMaterialLagerwirtschaft_Unterformular.Form.Requery
End Sub
mit Rechnungsnummern und mit Zahlen ist die Übertragung kein Problem das funktioniert nur mit normalen Texten funktioniert es nicht
danke im Voraus
Kommentieren
Teilen
Auf Facebook teilen
Auf X (Twitter) teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 2018423513
Url: https://administrator.de/forum/access-2016-gefiltertes-unterformular-eingabe-ein-wert-uebernahme-im-uf-2018423513.html
Ausgedruckt am: 19.05.2025 um 18:05 Uhr
4 Kommentare
Neuester Kommentar
Die SQL Abfrage kann bei einem Textfeld nicht mit "between" rechnen. Dafür muss es eine Zahl sein. In solchen Fällen musst du vorher den Text in eine Zahl umwandeln, wenn du es einer Rechenaufgabe unterziehen möchtest.
[nörgemodus]Du kommst von Facebook, richtig? Das erkennt man an der komischen Satzbildung und auch an fehlenden Satzzeichen. Bitte halte die Netiquette ein. [/nörgemodus aus]
[nörgemodus]Du kommst von Facebook, richtig? Das erkennt man an der komischen Satzbildung und auch an fehlenden Satzzeichen. Bitte halte die Netiquette ein. [/nörgemodus aus]
Hallo NordocMike
Leider hat mir dein Beitrag nicht also viel gebracht .
Ich bedanke mich trotz dem für dein Beitrag.
"WHERE Barcode BETWEEN " & Me.BarcodeVon & " AND " & Me.BarcodeBis"
Der Ausdruck sagt , welche Datensätze beschrieben werden sollen (von bis ) und das sind alles Zahlen.
Leider hat mir dein Beitrag nicht also viel gebracht .
Ich bedanke mich trotz dem für dein Beitrag.
"WHERE Barcode BETWEEN " & Me.BarcodeVon & " AND " & Me.BarcodeBis"
Der Ausdruck sagt , welche Datensätze beschrieben werden sollen (von bis ) und das sind alles Zahlen.
Sind das "echte" Zahlen? Du sprichst ja von "Text"feldern. Das muss natürlich richtig definiert sein. Nur, weil in einem Textfeld eine Zahl eingegeben wurde, ist es noch keine Zahl im Sinne eines Integers, sondern es ist ein Textfeld im Sinne eines Strings, in dem sich zufällig nur Zeichen von 0-9 befinden.
Hallo
Mit diesem Code kann ich Zahlen in die Tabelle übergeben.
Unterformular wird gefilterter
Ich gebe ein Wert (Zahl) in einem ungebundenen (Kombinationsfeld168) .
Zahl wird in die Tabelle aufgenommen .
Unterformular wird aktualisieret , wie gesagt mit Zahlen funktioniert es perfekt.
Nur mit normalen Buchstaben bekomme ich Fehlermeldung.
verwendeter Cod ist
Private Sub Kombinationsfeld168_AfterUpdate() Dim sLand As String
Dim sSQL As String
sLand = Format(Me.Kombinationsfeld168)
sSQL = "UPDATE [Material und Lagerwirtschaft] SET [Bestimmungs Land] = " & sLand & " WHERE Barcode BETWEEN " & Me.BarcodeVon & " AND " & Me.BarcodeBis
CurrentDb.Execute sSQL, dbFailOnError
Me.VerkaufGesamtEingabeMaterialLagerwirtschaft_Unterformular.Form.Requery
End Sub
Mit diesem Code kann ich Zahlen in die Tabelle übergeben.
Unterformular wird gefilterter
Ich gebe ein Wert (Zahl) in einem ungebundenen (Kombinationsfeld168) .
Zahl wird in die Tabelle aufgenommen .
Unterformular wird aktualisieret , wie gesagt mit Zahlen funktioniert es perfekt.
Nur mit normalen Buchstaben bekomme ich Fehlermeldung.
verwendeter Cod ist
Private Sub Kombinationsfeld168_AfterUpdate() Dim sLand As String
Dim sSQL As String
sLand = Format(Me.Kombinationsfeld168)
sSQL = "UPDATE [Material und Lagerwirtschaft] SET [Bestimmungs Land] = " & sLand & " WHERE Barcode BETWEEN " & Me.BarcodeVon & " AND " & Me.BarcodeBis
CurrentDb.Execute sSQL, dbFailOnError
Me.VerkaufGesamtEingabeMaterialLagerwirtschaft_Unterformular.Form.Requery
End Sub
