Announcement

Collapse
No announcement yet.

VBA-Code falsch

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • VBA-Code falsch

    Hallo liebe Forum-leser,

    ich habe zwei schwerwiegende probleme...
    ich hoffe, ihr könnt mir helfen...

    ich habe in access eine tabelle "lager" und eine tabelle "artikel"
    sowie eine tabelle "bestand", inder das attribut menge,
    aber auch die attribute von tabelle lager/artikel enthalten sind...

    bsp. für tabelle "bastand": Lager Artikel Menge
    ----------------------------
    g12 Monitor 45

    desweiteren habe ich ein formular erstellt,
    die ein kombinationsfeld enthält,
    in welches man ein vorhandenes lager aus der tabelle "lager" wählen kann,

    und ein weiteres kombinationsfeld, in welches man einen vorhandenen artikel
    aus der tabelle "artikel" wählen kann.

    Im selben Formular habe ich ein bezeichnungsfeld erstellt,
    welches die Menge meiner jeweils ausgewählten kombinationsfelder anzeigen soll.
    zumal die menge nur in verbindung mit "lager" und "artikel" einen wert
    besitzt.

    jedoch ist das mein problem....

    denn ich schaffe es nicht, dass attribut "menge" im bezeichnungsfeld
    darzustellen, zumal ich überhauptnicht weiss, wie mann im VBA-Code tabellen
    und ihre werte anspricht...

    geschweige denn die auswahl der kombinationsfelder miteinbezieht....
    auch die überwachungsfunktion, dass beide kombi-felder ausgewählt sein müssen,
    damit erst eine menge angezeigt wird, ist mir verborgen geblieben.

    hier der total misslungene VBA-Code:

    *****

    Private Sub Eingabe_Artikel_Change()
    Dim sql
    If Not (Eingabe_Lager.Value = "") And (Not (Eingabe_Artikel.Value = "")) Then
    Eingabe_Anzahl_Lager.Caption = "SELECT * FROM Bestand WHERE((Bestand.Lagername = " & Eingabe_Lager.Value & " )AND(Bestand.Artikelname = " & Eingabe_Artikel.Value & "))"
    End If

    End Sub

    Private Sub Eingabe_Lager_Change()

    If Not (Eingabe_Lager.Value = "") And (Not (Eingabe_Artikel.Value = "")) Then
    Eingabe_Anzahl_Lager.Caption = "SELECT * FROM Bestand WHERE((Bestand.Lagername = " & Eingabe_Lager.Value & " )AND(Bestand.Artikelname = " & Eingabe_Artikel.Value & "))"
    End If

    End Sub

    *****

    ich danke sehr sehr sehr viel für eine antwort...
Working...
X