title image


Smiley Re: Code funzt nicht
dann probier es mal so...







Dim tb1 As DAO.Recordset, tb2 As DAO.Recordset

  Set tb1 = CurrentDb.OpenRecordset(tab_Anlieferung, dbOpenSnapshot)

  Set tb2 = CurrentDb.OpenRecordset("tab_verbrauch", dbOpenDynaset)

  'wenn es sich um ein numerisches Feld handelt

  'tb1.FindFirst "Bestellnummer = " & Me!txt_position

  'wenn es sich um einen String handelt

  'tb1.FindFirst "Bestellnummer = '" & Me!txt_position & "'"

  If Not tb1.NoMatch Then

    With tb2

      .AddNew

      !Kostenstelle = tb1!Kostenstelle

      !Menge = Me!txt_menge * -1

      !Bestellnummer = tb1!txt_position

      !Lieferantenname = tb1!Lieferantenname

      !Bestelldatum = tb1!Bestelldatum

      !Lieferdatum = Date

      !Werkstoff = tb1!Werkstoff

      !MatArt = tb1!MatArt

      !Länge = tb1!Länge

      !Breite = tb1!Breite

      !Höhe = tb1!Höhe

      !Stärke = tb1!Stärke

      !Einzelpreis = tb1!Einzelpreis

      !Gesamtpreis = tb1!Gesamtpreis

      !Bearbeiter = tb1!text200

      !Hilfsfeld = tb1!Hilfsfeld

      !Umbuchrest = Me!Umbuchrest

      !Status = "verbraucht"

      !Lagerplatz = tb1!Lagerplatz

      .Update

      .Close

    End With

  Else

    MsgBox "Bestellnummer nicht gefunden.", vbCritical, "Fehler"

    Exit Sub

  End If

  Set tb2 = Nothing

  Set tb1 = Nothing

  Me!txt_position = ""

  Me!txt_menge = ""

  Me!Umbuchrest = ""

  Me!txt_position.SetFocus







Code eingefügt mit Syntaxhighlighter 4.0





ist aber eine extrem bescheidene Möglichkeit...



Gruß aus Wuppertal

Gruß aus Wuppertal
Stefan

-------------------------------------------------------------------------------
Soweit nicht anders angegeben, beziehen sich meine
Antworten auf WinXP SP2 und Access2003.
-------------------------------------------------------------------------------

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: