title image


Smiley Code funzt nicht
Hallo Datenbankler,



mit dem unten stehenden Code will ich Folgendes tun.

Ich hab nen Formular mit zwei Textfeldern. Eines davon

ist "txt_position". Es geht darum: Ich habe angelieferte

Materialien in einer Tabelle "tab_Anlieferung". Diese

haben jeweils eine Bestellpositionsnummer, welche unter

Umständen bei Nachlieferungen doppelt vorkommen kann.

Nun möchte ich Datensätze erzeugen für den Verbrauch dieser

Materialien. Dazu soll der Benutzer in das Formular lediglich

die Bestellpositionsnummer in "txt_position" und die Menge in

ein anderes Textfeld eintragen. Per click auf "cmd_verbrauch"

soll nun aus "tab_Anlieferung" der Datensatz herausgesucht werden,

der der eingetragenen Bestellpositionsnummer entspricht. Dies

könnten unter Umständen ja zwei sein. Es soll dann nur der

erste als Grundlage für den neu zu erstellenden Datensatz für den

Verbrauch herangezogen werden.



Nun zu meinem Problem. Momentan ist es so, das Access den ersten Datensatz

aus "tab_Anlieferung" als Grundlage nimmt, sodass ich in meiner Verbrauchstabelle

einen Datensatz erzeugt bekommen, dessen Bestellpositionsnummer und Menge zwar stimmt, aber der Rest nicht stimmt, weil ja garnicht der Datensatz mit der

entsprechenden Bestellpositionsnummer als Grundlage herausgesucht wurde.



Sorry wegen der langen Erklärung, aber ich weiss nicht, wo der Fehler in

meinem Code steckt,

hoffe ihr könnt mir helfen,



Gruß, Menzek.







--------------------------------------------------------------------------------

Private Sub cmd_verbrauch_Click()





Text20.SetFocus



Dim tb1 As Recordset

Dim tb2 As Recordset

Dim SQL As String



Set db = CurrentDb



SQL = "select * from tab_Anlieferung" & " where Bestellnummer=" & Me.txt_position



Set tb1 = db.OpenRecordset(SQL)

Set tb2 = db.OpenRecordset("tab_verbrauch")



tb1.MoveFirst



tb2.AddNew

tb2!Kostenstelle = Me.Kostenstelle

tb2!Menge = Me.txt_menge * -1

tb2!Bestellnummer = Forms!frm_verbrauch.txt_position

tb2!Lieferantenname = Me.Lieferantenname

tb2!Bestelldatum = Me.Bestelldatum

tb2!Lieferdatum = Date

tb2!Werkstoff = Me.Werkstoff

tb2!MatArt = Me.MatArt

tb2!Länge = Me.Länge

tb2!Breite = Me.Breite

tb2!Höhe = Me.Höhe

tb2!Stärke = Me.Stärke

tb2!Einzelpreis = Me.Einzelpreis

tb2!Gesamtpreis = Me.Gesamtpreis

tb2!Bearbeiter = Me.text200

tb2!Hilfsfeld = Me.Hilfsfeld

tb2!Umbuchrest = Me.Umbuchrest

tb2!Status = "verbraucht"

tb2!Lagerplatz = Me.Lagerplatz



tb2.Update



txt_position = ""

txt_menge = ""

Me.Umbuchrest = ""



txt_position.SetFocus



End Sub


Mit besten Grußen aus der Uckermark - Menzek.

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: