MS-Office-Forum
Google
   

Zurück   MS-Office-Forum > Microsoft Access & Datenbanken > Microsoft Access
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads Der Renner, 11 Entwicklertools für Access, Tipps & Trick und offene Datenbanken zum einzigartigen Preis.
Themen-Optionen Ansicht
Alt 19.06.2003, 14:48   #1
christianwank
MOF User
MOF User
Frage Recordset update?

Wie kann ich mir mit Hilfe von recordset eine bestimmten Datensatz aus einer Tabelle suchen, und einen anderen Wert in einer Spalte setzen?
christianwank ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.06.2003, 14:49   #2
strausto
MS-Office-Forum Team MS-Office-Forum Team
Standard

Schau Dir in der OH mal die Methode Edit (DAO) an.

__________________

Best regards

Torsten

Microsoft Certified Technology Specialist Microsoft® SQL Server® 2008 Business Intelligence Development and Maintenance
Microsoft Certified Technology Specialist Microsoft® SQL Server® 2008 Database Development
Member of PASS Professional Association for SQL Server http://www.sqlpass.de/
strausto ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.06.2003, 14:52   #3
christianwank
Threadstarter Threadstarter
MOF User
MOF User
Standard

woher weiß ich jetzt, wie bekomme ich, jetzt genau den richtigen Datensatz, den ich such?
christianwank ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.06.2003, 14:53   #4
strausto
MS-Office-Forum Team MS-Office-Forum Team
Standard

Ist eine Suche über den PrimaryKey möglich?
Dann verwende Seek ansonsten FindFirst.

__________________

Best regards

Torsten

Microsoft Certified Technology Specialist Microsoft® SQL Server® 2008 Business Intelligence Development and Maintenance
Microsoft Certified Technology Specialist Microsoft® SQL Server® 2008 Database Development
Member of PASS Professional Association for SQL Server http://www.sqlpass.de/
strausto ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.06.2003, 15:00   #5
christianwank
Threadstarter Threadstarter
MOF User
MOF User
Standard

ich möchte den gewünschten Datensatz über zwei Kriterien herausfinden, das erste K ist eine JA/NEIN - Spalte (der eingetragene Wert muss JA sein), das zweite K ist ein Text, den ich mit einer festen Textvariable im Modul vergleiche.

Habe ich dann den Datensatz gefunden, möchte ich in zwei weiteren Spalten die aktuelle Zeit und das aktuelle Datum eintragen, und der Wert im ersten K auf NEIN setzten.
christianwank ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.06.2003, 15:07   #6
strausto
MS-Office-Forum Team MS-Office-Forum Team
Standard

Dann mache das doch mit einer Aktualisierungsabfrage mit Parameterabfrage!

__________________

Best regards

Torsten

Microsoft Certified Technology Specialist Microsoft® SQL Server® 2008 Business Intelligence Development and Maintenance
Microsoft Certified Technology Specialist Microsoft® SQL Server® 2008 Database Development
Member of PASS Professional Association for SQL Server http://www.sqlpass.de/
strausto ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.06.2003, 22:01   #7
Szebin
MOF User
MOF User
Standard

Hi Christian,

Dieses Code-Beispiel setzt voraus, daß der zu suchende Datensatz immer vorhanden ist. Wenn es vorkommen kann, daß bei Deiner Suche kein Datensatz gefunden wird, solltest die eine If-Then-Anweisung mit einem DCount einbauen.

Code:

Dim db As Database
Dim rs As Recordset

TempVar = Me!DeineTextvariable

Set db = CurrentDb

Set rs = db.OpenRecordset("SELECT * FROM DeineTabelle WHERE FeldKriterium1 = -1 And FeldKriterium2 = " & "'" & TempVar & "'" &";")
    rs.Edit
    rs!FeldKriterium1 = 0
    rs!FeldZeit = Time()
    rs!FeldDatum = Date()
    rs.Update
rs.Close

db.Close

__________________

Win2007 – Access2003 und 2007 – Office2007

Wer viel fragt ist ein Plagegeist, wer nichts fragt ist ein unwissender Geist.
Lieber ein Plagegeist als gar keinen !!


Schöne Grüße von der dänischen Grenze
Szebin ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 02.10.2004, 19:12   #8
SPE
Neuer Benutzer
Neuer Benutzer
Standard

Hallo Szebin,

wenn ich den Code bei mir eingebe (Access2000) bekomme ich sofort den Fehler:
Dim db as Database (benutzerdefinierter Typ nicht definiert).

Woran kann das liegen?
SPE ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 02.10.2004, 20:27   #9
racoon0506
MOF Meister
MOF Meister
Standard

Fehlender Verweis!
du musst im Codefenster (welcher dazu geöffnet ist, ist egal!) auf Extras/Verweise gehen und dort den Verweis auf Microsoft DAO 3.x aktivieren (bzw.die höchste vorhandene Version davon!)
dann sollte die Meldung nicht mehr erscheinen....
Ausserdem sollte dann auch
Code:

Dim db As Database
Dim rs As Recordset
in
Code:

Dim db As DAO.Database
Dim rs As DAO.Recordset
geändert werden, weil es damit egal ist, an welcher Prioritätenstelle der Verweis ist
(sprich in der Liste vor oder hinter ADO...)

Auch, wenn es stilistisch korrekt ist, du kannst dir das
Dim db As Database und Set db = CurrentDb sparen, wenn du in der Zeile
Set rs = db.OpenRecordset("SELECT * FROM....
das db durch CurrentDb ersetzt, also so:
Code:

Set rs = CurrentDb.OpenRecordset("SELECT * FROM ....
beinahe vergessen: Wenn du den Code so verkürzen solltest, muss auch das
db.Close am Ende raus, da sonst hier wieder ein Fehler verursacht wird....

__________________

CU
Jan
-------------
Feedback ist wichtig!
Es gibt zwei Arten von Computernutzern: Jene, die einen Festplattenausfall erlitten haben, und Jene, denen dies noch bevorsteht!
Datensicherung schon gemacht?

Windows 7 /Eclipse Mars/MS Visual Studio 2010+2013/Office 2013 Professional Plus/MS-SQL-Server/MySQL/Microtools Access Whiz
racoon0506 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 02.10.2004, 22:39   #10
Arne Dieckmann
MS-Office-Forum Team MS-Office-Forum Team
Standard

"db.Close" ist bei CurrentDb sowieso überflüssig. S. dazu FAQ 7.5 oder gleich das Zitat daraus:

Zitat:

db.Close bezieht sich hier auf eine externe Datenbank, die mit OpenDatabase geöffnet wurde. Bei Currentdb macht Close keinen Sinn. Man öffnet es nicht selber und kann es auch nicht so schließen. Wenn man das übersieht, wird der resultierende Fehler aber von Access stillschweigend geschluckt.

__________________

Gruß, Arne

Links: FAQGrundlagenRelationale DatenbankenStephen LebansDBWiki
Tools: TabToWebSQL-FormatterCode ConverterRegEx testen
System: Win7 Pro 64bit, Office 20xx, div. MS-SQL Server 20xx, Firefox
Bitte keine Fragen per Mail/PN und als Neuling diese Anleitung (Code-Tags, Anhänge etc.) lesen.
Arne Dieckmann ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 03.10.2004, 01:23   #11
racoon0506
MOF Meister
MOF Meister
Standard

...da lernt man ewiglich, das man alle Objektvariablen schliessen soll, und siehe da....
Access meckert mal nicht über eine unsinnige Anweisung! Wieder was gelernt!

__________________

CU
Jan
-------------
Feedback ist wichtig!
Es gibt zwei Arten von Computernutzern: Jene, die einen Festplattenausfall erlitten haben, und Jene, denen dies noch bevorsteht!
Datensicherung schon gemacht?

Windows 7 /Eclipse Mars/MS Visual Studio 2010+2013/Office 2013 Professional Plus/MS-SQL-Server/MySQL/Microtools Access Whiz
racoon0506 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 04:10 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2010 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günther Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.
Beachten Sie bitte auch unsere Nutzungsbedingungen.