Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Aktualisierung bestehender Tabellendaten
zurück: Bedingte Formatierung bei Standardwert weiter: Code bei Auswahl einer Registerkart Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Schnuffelhase
Gast


Verfasst am:
09. Apr 2011, 10:50
Rufname:

Aktualisierung bestehender Tabellendaten - Aktualisierung bestehender Tabellendaten

Nach oben
       Version: Office 2003

Schnuffelhase am 09. Apr 2011 um 09:19 hat folgendes geschrieben:
Hallo Leute,
ich würde da mal eure Hilfe benötigen!
Ich habe ein gebundenes Formular mit dessen Hilfe ich ausgewählte Datensätze aktualisieren möchte. Es dreht sich dabei um eine DVD Liste in welcher vermerkt werden soll ob eine DVD beispielsweise einen neuen Preis hat, ob sie gekauft wurde und das Datum an welchem der Datensatz aktualisiert wurde. In der zugrundeliegenden Tabelle wird außerdem ein Hyperlink zu einem Onlinehändler abgespeichert der allerdings nicht aktualisiert werden muss. Die Auswahl des DVD Titels der aktualisiert werden soll, soll über ein Kombinationsfeld erfolgen. Die Änderung des bestehenden Tabelleninhaltes soll nach einem Klick auf eine Befehlsschaltfläche erfolgen. Leider bin ich in Sachen VBA Programmierung ein absoluter Neuling und habe keine Ahnung wie ich dieses Problem am besten lösen könnte. Deswegen bräuchte ich eure Hilfe!

Vielen dank schon mal im Voraus!

Grüße Schnuffelhase

Ich habe es inzwischen mit folgendem Code probiert:
Code:
Private Sub Befehl14_Click()
On Error GoTo Err_Befehl14_Click
    Dim strSQL      As String
   
    strSQL = "UPDATE DVDWunschliste" _
             & " SET Preis = " & Me!Preis _
                & ", Gekauft = " & Me!Gekauft _
                & ", Datum = " & Format$(Me!Datum, "\#yyyy-mm-dd\#") _
           & " WHERE Titel = '" & Me!Titel.Column(0) & "'"
    CurrentDb.Execute strSQL, 128 ' dbFailOnError
Exit_Befehl14_Click:
    Exit Sub
Err_Befehl14_Click:
    MsgBox Err.Description
    Resume Exit_Befehl14_Click
End Sub
Leider passiert gar nichts wenn ich den Code ausführe.
KlausMz
Moderator Access


Verfasst am:
09. Apr 2011, 10:58
Rufname:
Wohnort: Irgendwo in der Pfalz


AW: Aktualisierung bestehender Tabellendaten - AW: Aktualisierung bestehender Tabellendaten

Nach oben
       Version: Office 2003

Hallo,
wenn Du Dir eine 2.Tabelle machst für die Hystorie mit einer Beziehung zur DVD (über den primärschlüssel, nicht über den titel) und diese zus. Tabelle in einem Unterformular zur DVD darstellst, kannst Du die Felder direkt im Formular füllen. Diese werden dann auch direkt in die Tabelle geschrieben.
Ohne eine einzige Zeile VBA.

Das hat auch den Vorteil, dass Du problemlos die ganze Hystorie zur DVD hast.

_________________
Gruß
Klaus . . . . . Feedback wäre wünschenswert.
Ich möchte bitte keine unaufgeforderten PN. Fragen bitte im Forum.
Schnuffelhase
Gast


Verfasst am:
12. Apr 2011, 16:21
Rufname:

AW: Aktualisierung bestehender Tabellendaten - AW: Aktualisierung bestehender Tabellendaten

Nach oben
       Version: Office 2003

Sorry dass ich mich jetzt erst melde,
dein Vorschlag mit der zweiten Tabelle hört sich nicht schlecht an. Ich würde es aber trotzdem vorziehen die Aktualisierung über den oben beschrieben Update Befehl durchzuführen. Kann mir denn jemand sagen wo in meinem Befehl der Fehler liegt?

Vielen dank hierfür.

Grüße
Schnuffelhase
MissPh!
Office-VBA-Programmiererin


Verfasst am:
12. Apr 2011, 17:14
Rufname:
Wohnort: NRW

AW: Aktualisierung bestehender Tabellendaten - AW: Aktualisierung bestehender Tabellendaten

Nach oben
       Version: Office 2003

Hallo,

wenn tatsächlich gar nichts passiert, so könnte es am Kriterium liegen, dass der zu ändernde Datensatz nicht gefunden wird.
Andernfalls sollte der Parameter dbFailOnError (128) dafür sorgen, dass eine Fehlermeldung erzeugt wird.

Welche Datentypen sind denn da noch im Spiel und wie gibst du die Preise ein?

_________________
Gruß MissPh!
Schnuffelhase
Gast


Verfasst am:
12. Apr 2011, 17:21
Rufname:

AW: Aktualisierung bestehender Tabellendaten - AW: Aktualisierung bestehender Tabellendaten

Nach oben
       Version: Office 2003

Hi,
danke für die schnelle Antwort!
Nachdem ich den Befehl wie unten dargestellt angepasst habe funktioniert er.
Code:
Private Sub Befehl14_Click()
On Error GoTo Err_Befehl14_Click
    Dim strSQL      As String
 
    strSQL = "UPDATE [DVDWunschliste]" _
             & " SET Preis = " & Me!Preis & "," _
                 & " Gekauft = " & Me!Gekauft & "," _
                 & " Datum = " & Format$(Me!Datum, "\#yyyy-mm-dd\#") _
           & " WHERE Titel = '" & Me!Titel.Column(1) & "'"
    CurrentDb.Execute strSQL, 128 ' dbFailOnError
    MsgBox "Der ausgewählte Datensatz wurde aktualisiert"
Exit_Befehl14_Click:
    Exit Sub
Err_Befehl14_Click:
    MsgBox Err.Description
    Resume Exit_Befehl14_Click
End Sub
Trotzdem nochmal vielen Dank für deine Hilfe!

Grüße
Schnuffelhase
MissPh!
Office-VBA-Programmiererin


Verfasst am:
12. Apr 2011, 17:24
Rufname:
Wohnort: NRW

AW: Aktualisierung bestehender Tabellendaten - AW: Aktualisierung bestehender Tabellendaten

Nach oben
       Version: Office 2003

Wieso "trotzdem"? Schließlich kam doch der Hinweis auf das Kriterium von mir! Very Happy
_________________
Gruß MissPh!
Schnuffelhase
Gast


Verfasst am:
12. Apr 2011, 17:27
Rufname:


AW: Aktualisierung bestehender Tabellendaten - AW: Aktualisierung bestehender Tabellendaten

Nach oben
       Version: Office 2003

Das trotzdem habe ich geschrieben weil ich die richtige Lösung unabhängig von deiner Hilfe gefunden hatte. Trotzdem bin ich wirklich dankbar dafür! Wink
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Aktualisierung von Excelberechnung in Access 1 *$Nadine$* 94 24. Okt 2013, 16:35
kyron9000 Aktualisierung von Excelberechnung in Access
Keine neuen Beiträge Access Tabellen & Abfragen: Aktualisierung einer Tabelle per VBA 4 suse123 91 07. Jan 2013, 12:15
suse123 Aktualisierung einer Tabelle per VBA
Keine neuen Beiträge Access Tabellen & Abfragen: Aktualisierung von Daten aus Excelfile 1 DiJohn 88 22. Aug 2012, 15:55
DiJohn Aktualisierung von Daten aus Excelfile
Keine neuen Beiträge Access Tabellen & Abfragen: Datum letzter Aktualisierung automatisch eintrage 8 uetzenknueff 300 18. Feb 2012, 16:41
Köbi Datum letzter Aktualisierung automatisch eintrage
Keine neuen Beiträge Access Tabellen & Abfragen: Aktualisierung Abfrage Zeichen löschen 8 gook 1257 23. Dez 2010, 01:57
Gast Aktualisierung Abfrage Zeichen löschen
Keine neuen Beiträge Access Tabellen & Abfragen: Feld Anlage in bestehender Datenbank erstellen 4 Ogni 294 09. Nov 2010, 10:40
Ogni Feld Anlage in bestehender Datenbank erstellen
Keine neuen Beiträge Access Tabellen & Abfragen: Aktualisierung Abfrage: Nur letztes Wort benutzen 4 buckoli 895 30. Aug 2010, 15:21
buckoli Aktualisierung Abfrage: Nur letztes Wort benutzen
Keine neuen Beiträge Access Tabellen & Abfragen: Bestehender Tabelle ein autowert-Feld hinzufügen 2 DBKlempner 513 13. Aug 2010, 09:46
DBKlempner Bestehender Tabelle ein autowert-Feld hinzufügen
Keine neuen Beiträge Access Tabellen & Abfragen: Spalte löschen aus bestehender Access-Datenbank 1 GForce84 486 01. Dez 2008, 16:43
lleopard Spalte löschen aus bestehender Access-Datenbank
Keine neuen Beiträge Access Tabellen & Abfragen: Aktualisierung Abfrage 1 Reaver01 498 19. Nov 2007, 08:04
jens05 Aktualisierung Abfrage
Keine neuen Beiträge Access Tabellen & Abfragen: Korrekte Währung nach Aktualisierung 2 andman 502 10. Aug 2007, 17:08
andman Korrekte Währung nach Aktualisierung
Keine neuen Beiträge Access Tabellen & Abfragen: regelmäßige aktualisierung von access tabellen 1 Salvir 812 21. Feb 2007, 12:22
Nouba regelmäßige aktualisierung von access tabellen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: HTML Editor Forum