Thema Datum  Von Nutzer Rating
Antwort
03.09.2016 18:19:22 JoHo
NotSolved
03.09.2016 21:33:13 Gast75441
NotSolved
05.09.2016 08:57:47 SJ
NotSolved
06.09.2016 20:54:48 Gast46563
NotSolved
06.09.2016 21:10:54 Gast22863
NotSolved
Blau VBA Insertt into und dann Update
 07.09.2016 12:57:10 SJ
NotSolved
07.09.2016 14:51:58 Gast4402
NotSolved
07.09.2016 15:07:25 SJ
NotSolved
07.09.2016 16:28:25 Gast83559
Solved

Ansicht des Beitrags:
Von:
SJ		 Datum:
07.09.2016 12:57:10		 Views:
710		 Rating:
     
Antwort:
  Ja
Thema:
VBA Insertt into und dann Update

Hallo JoHo,

das wäre eine Möglichkeit:

Option Compare Database
Option Explicit

Public Sub update_t_Bestand()
    Dim db As DAO.Database
    Set db = CurrentDb
    Dim s As String
    Dim value_1 As String
    Dim value_2 As Long
    Dim value_3 As Long
    
    With Me
       value_1 = .Artikel
       value_2 = .Menge
       value_3 = .Artikelnummer
    End With
    
    s = "UPDATE t_Bestand SET Artikel = '" & value_1 & "', Menge = " & value_2 & ", Artikelnummer = " & value_3 & " WHERE Artikelnummer = 0;"
    Call db.Execute(s)
    
    MsgBox "Es wurden " & db.RecordsAffected & " Datensätze geändert.", vbInformation
    
    db.Close
    Set db = Nothing
End Sub

Gruß

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
03.09.2016 18:19:22 JoHo
NotSolved
03.09.2016 21:33:13 Gast75441
NotSolved
05.09.2016 08:57:47 SJ
NotSolved
06.09.2016 20:54:48 Gast46563
NotSolved
06.09.2016 21:10:54 Gast22863
NotSolved
Blau VBA Insertt into und dann Update
 07.09.2016 12:57:10 SJ
NotSolved
07.09.2016 14:51:58 Gast4402
NotSolved
07.09.2016 15:07:25 SJ
NotSolved
07.09.2016 16:28:25 Gast83559
Solved