Tabelle im formular abfragen und berechnen

Computer: Software & Programmierung Microsoft Access
#1

Hallo

Ich habe folgendes problem ich habe eine tabelle die ich nicht ändern darf (wegen den vielen leerzeichen) mit folgenden relevanten feldern.

Tabelle „Lieferfeuchten Schlagmann“
Felder: „LS Nr“ , „Vol“ , „Gew“

Im Formular „Dateneningabe 0/3 hydrophobiert“ habe ich folgende felder „LS_Nr“ mit der eingegebenen Lieferscheinnummer und „lkw_sd_text“ welches mit dem Rechenergebnis von „Vol“ und „Gew“ gefüllt werden soll wenn die Lieferscheinnummer vorhanden ist.
„Auswertung_Superlite_0/3_hyd“ ist die eigentliche Datenquelle des Formulars

Meine bisherigen vergeblichen versuche ergaben folgendes:

Me.RecordSource = ("SELECT LS Nr, Vol, Gew FROM Lieferfeuchten Schlagmann WHERE (LS Nr)=[forms]![Dateneningabe 0/3 hydrophobiert].[LS\_Nr];")  
  
Me.lkw\_sd\_text.Text = Me.RecordSource  
Me.RecordSource = "Auswertung\_Superlite\_0/3\_hyd"
#2

Hallo,

Ich habe folgendes problem ich habe eine tabelle die ich nicht
ändern darf

ist ein Handycap… :wink:

(wegen den vielen leerzeichen)

Leerzeichen bei Was?

Grundsätzlich gilt die Massgabe:
-Keine Sonder- und Leerzeichen in eigenerstellten Objekten (Objektnamen) verwenden.

  • reservierte Wörter vermeiden.

mit folgenden
relevanten feldern.

Tabelle „Lieferfeuchten Schlagmann“
Felder: „LS Nr“ , „Vol“ , „Gew“

Im Formular „Dateneningabe 0/3 hydrophobiert“ habe ich
folgende felder „LS_Nr“ mit der eingegebenen
Lieferscheinnummer und „lkw_sd_text“ welches mit dem
Rechenergebnis

Welcher Algorithmus (Berechnungsvorschrift)?

von „Vol“ und „Gew“ gefüllt werden soll wenn
die Lieferscheinnummer vorhanden ist.
„Auswertung_Superlite_0/3_hyd“ ist die eigentliche Datenquelle
des Formulars

Meine bisherigen vergeblichen versuche ergaben folgendes:

[code]

:Me.RecordSource = ("SELECT LS Nr, Vol, Gew FROM Lieferfeuchten

Schlagmann WHERE (LS Nr)=[forms]![Dateneningabe 0/3
hydrophobiert].[LS_Nr];")

Me.lkw_sd_text.Text = Me.RecordSource
Me.RecordSource = „Auswertung_Superlite_0/3_hyd“
[/code]

Sub Form\_Current()
Me!lkw\_sd\_text= nz(Dlookup("Vol","Lieferfeuchten Schlagmann","[LS Nr]= " & Me!LS\_Nr),0) \* nz(Dlookup("Gew","Lieferfeuchten Schlagmann","[LS Nr]= " & Me!LS\_Nr),0)
End Sub

Gruß
Franz, DF6GL