Office Forum www.Office-Loesung.de Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: ---> Neu: Office 2010 Forum <- Forum-Regeln :: FAQ :: Forum-Suche :: Mitgliederliste :: Benutzergruppen :: Favoriten ::  Registrieren :: Profil :: Briefkasten :: Login

DAO/ADO: Fehler bei Recordset / Database ab A00 (Verweise)

Office Forum -> Access Forum -> Access Tipps & Tricks
zurück: Dateien mit der passenden Anwendung öffnen, drucken usw. weiter: Alle Werte einer Tabelle in einstellbarem Listenfeld zeigen			Unbeantwortete Beiträge anzeigen
	Status: Tutorial		Diese Seite Freunden empfehlen Zu Browser-Favoriten hinzufügen

Autor	Nachricht
lothi c#, .Net Verfasst am: 12. Mai 2004, 13:48 Rufname: Wohnort: Birgisch	- DAO/ADO: Fehler bei Recordset / Database ab A00 (Verweise) Nach oben         Hallo zusammen Bei den früherern Access Versionen war die Objektbibliothek zum verarbeiten von Daten standartmässig DAO. Ab Access 2000 ist aber nicht DAO nicht mehr Standart sondern ADO. Um trotzdem mit DAO arbeiten zu können muss der Verweis auf DAO von Hand eingestellt werden wie es geht zeigt hier Willi: Willi Wipp hat folgendes geschrieben: Schau Dir mal die Verweise an (in einem Modul Menue: Extras -> Verweise) Da muss ein Verweis auf Microsoft DAO 3.xx Object Library aktiv sein. Ab A00 wird standardmaessig ADO aktiviert. Der DAO-Verweis muss vor dem ADO-Verweis sein! Im Modul muss nun bei der Deklaration des Objektes auf DAO explizit angegeben werden weil es ein ADO Recordset und ein DAO Recordset gibt. Also: Code:     Dim db AS DAO.Database     Dim rs As DAO.Recordset Soviel ich gehört habe ist ab der Version 2003 der Verweis auf DAO wieder vorhanden. Nachtrag: lothi am 12. Mai 2004 um 20:43 hat folgendes geschrieben: Hallo zusammen Noch ein kleiner Tip um zu kontrollieren ob der Verweis auch stimmt: Schreibe beim Deklarieren DAO klein wenn dann der VBA Assistent die 3 Buchstaben gross schreibt stimmt der Verweis wenn sie klein bleiben dann siehe oben. Aber nicht weiter sagen ist nur für uns hier! _________________ Gruss Lothi, der Bastler Feedback ist die beste Möglichkeit mir zu sagen ob die Antwort geholfen hat! AC2002, WinXP, Office XP DAO.PNG  Beschreibung:  Dateigröße:  10.41 KB  Angeschaut:  6717 mal
Willi Wipp Moderator Verfasst am: 02. Jul 2004, 22:04 Rufname: Wohnort: Raum Wiesbaden	- Re: Kontrolle ob Verweis stimmt Nach oben         Hi Folks, da es immer wieder Probleme mit den Verweisen gibt, habe ich eine kleine Funktion erstellt die die Verweise der aktuellen DB im Direktfenster (Direktbereich) des VBA-Editors ausgibt. Vielleicht kommen wir so den Problemen schneller auf die Spur. Code: Option Compare Database Option Explicit '** Auslesen der Verweise die in der aktuellen DB gesetzt sind *************** Public Function FnsGet_References(Optional bAll As Boolean = False) As String     Dim s   As String     Dim ref As Reference         s$ = ""     ' Die References-Auflistung in einer Schleife durchlaufen.     For Each ref In References         If s$ <> "" Then                                           'Trennlinie             s$ = s$ & vbCrLf & "------------------------" & vbCrLf         End If         s$ = s$ & "- Name:     " & ref.Name & vbCrLf         s$ = s$ & "- Defekt:   " & ref.IsBroken & vbCrLf         If bAll Then             s$ = s$ & "- Standard: " & ref.BuiltIn & vbCrLf             s$ = s$ & "- Version:  " & ref.Major & "." & ref.Minor & vbCrLf         End If         s$ = s$ & "- Pfad:     '" & ref.FullPath & "'"     Next ref     FnsGet_References = s$ End Function 'Zur Anzeige im Direktfenster '?FnsGet_References Was der Funktion noch fehlt waere ein Zugriff auf die 'Beschreibung' der Datei, d.h. den Text der auch in der Liste (Menue: Extras -> Verweise) angezeigt wird. Vielleicht hat ja einer von Euch einen Hinweis wie wir da unter VBA dran kommen? (API?) _________________ Eine kurze Rueckmeldung waere nett SL Willi Wipp (Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
Willi Wipp Moderator Verfasst am: 15. Jul 2004, 12:17 Rufname: Wohnort: Raum Wiesbaden	- DAO/ADO: Fehler ab A00 (Verweise) Nachgefragt Nach oben         Nachfragen zum Thema bitte hier DAO/ADO: Fehler ab A00 (Verweise) Nachgefragt stellen. _________________ Eine kurze Rueckmeldung waere nett SL Willi Wipp (Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
Sascha Trowitzsch Im Profil kannst Du frei den Rang ändern Verfasst am: 11. Okt 2007, 12:05 Rufname:	- AW: DAO/ADO: Fehler bei Recordset / Database ab A00 (Verweis Nach oben         @Willi: Zitat: Was der Funktion noch fehlt waere ein Zugriff auf die 'Beschreibung' der Datei, d.h. den Text der auch in der Liste (Menue: Extras -> Verweise) angezeigt wird. Vielleicht hat ja einer von Euch einen Hinweis wie wir da unter VBA dran kommen? Wenn du statt der Access-Reference die VBE-Reference nimmst, dann kommst du auch an die Description, die dieses References-Objekt als Eigenschaft unterstützt: Code: ? Application.VBE.ActiveVBProject.References(1).Description Ciao, Sascha
Willi Wipp Moderator Verfasst am: 11. Okt 2007, 12:59 Rufname: Wohnort: Raum Wiesbaden	- Re: Kontrolle ob Verweis stimmt Nach oben         Hi Sascha Trowitzsch, danke fuer den sehr hilfreichen Hinweis. Habe das gleich mal umgesetzt Code: Option Compare Database Option Explicit '** Auslesen der Verweise die in der aktuellen DB gesetzt sind *************** Public Function FnstrGet_References(Optional blnAll As Boolean = False) _                                    As String     Dim strText As String     Dim objRef  As Object         ' Die References-Auflistung in einer Schleife durchlaufen.     For Each objRef In Application.VBE.ActiveVBProject.References         If strText <> "" Then                                      'Trennlinie             strText = strText & vbCrLf & "------------------------" & vbCrLf         End If         strText = strText & _                   "- Name:        '" & objRef.Name & "'" & vbCrLf & _                   "- Bezeichnung: '" & objRef.Description & "'" & vbCrLf & _                   "- Defekt:      " & objRef.IsBroken         If blnAll Then             strText = strText & vbCrLf & _                   "- Standard:    " & objRef.BuiltIn & vbCrLf & _                   "- Version:     " & objRef.Major & "." & objRef.Minor         End If         strText = strText & vbCrLf & _                   "- Pfad:        '" & objRef.FullPath & "'"     Next objRef     FnstrGet_References = strText End Function ' Zur Anzeige im Direktfenster '?FnstrGet_References ' bzw. '?FnstrGet_References(True) _________________ Eine kurze Rueckmeldung waere nett SL Willi Wipp (Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)

Nach oben

Alle Zeiten sind GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1 Gehe zu: Forum auswählen Office Forum Allgemein----------------Office Forum BekanntmachungenFragen & Anregungen zum Office ForumOffice Dienstleistungen && Schulungen || Jobs ~~ SoftwareOffice 2007 ForumOffice 2010 ForumAnwendungsübergreifende FragenForum für OpenOffice und Staroffice  Word Forum----------------Word Tipps & TricksWord FormateWord GestaltungselementeWord SerienbriefeWord VBA Programmierung (Makros)Word Hilfe Excel Forum----------------Excel Tipps & TricksExcel FormateExcel FormelnExcel AuswertungenExcel VBA (Makros)Excel Hilfe Powerpoint Forum----------------PowerPoint Tipps & TricksPowerpoint PräsentationenPowerPoint VBA (Makros) Outlook Forum----------------Outlook Tipps & TricksOutlook MailOutlook KontakteOutlook KalenderOutlook HilfeOutlook VBA und FormulareOutlook Express Access Forum----------------Access Tipps & TricksAccess Tabellen & AbfragenAccess FormulareAccess BerichteAccess Programmierung / VBAAccess Hilfe MS Access und Datenbank-Server----------------Microsoft Access und MS SQL ServerMicrosoft Access und MySQLMicrosoft Access und andere Datenbank-Server Office Software----------------MS Project ForumPublisher ForumMS MapPoint ForumMS Visio ForumMS OneNote ForumMS InfoPath ForumMS Groove ForumMS SharePoint Services Forum HTML Editor Forum----------------Frontpage ForumMS Expression Web ForumMacromedia Dreamweaver ForumHTML Editoren ForumHTML & CSS ForumPHP & JavaScript Forum Computer Forum----------------SicherheitHardware & Betriebssystem ForumWindows Vista & Windows 7 ForumSoftware Forum (Sonstige Software) Workshops----------------WorkshopsWorkshop: RegressionsanalyseWorkshop: Webdesign für EinsteigerWorkshop: Excel Projekte Banken Forum----------------WISO Mein Geld ForumStarmoney ForumGirokonto & Tagesgeld ForumOnline Broker ForumBanking Software Chillout Forum----------------Office Treffen RegionalFußball ForumSmalltalkSchach ForumForum-Spiele

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
	Access Tabellen & Abfragen: Verweise in Tabellen variabel erstellen	6	Yak	242	26. Okt 2009, 18:31 Yak
	Access Programmierung / VBA: Fehler in SQL String mit ExcelVBA	2	ExcelTüftler	333	27. Aug 2009, 13:05 ExcelTüftler
	Access Programmierung / VBA: DAO.Recordset als rückgabe funktioniert nicht	3	accessuser	584	18. Mai 2009, 12:55 lleopard
	Access Programmierung / VBA: Fehler bei Find-First-Methode	3	Twix22	867	26. Aug 2008, 10:24 steffen0815
	Access Programmierung / VBA: Fehler beim Login?	4	HellsPit	531	16. März 2008, 15:51 HellsPit
	Access Tabellen & Abfragen: Eliminierung #Fehler	1	SteDo	212	23. Jan 2007, 18:53 Nouba
	Access Programmierung / VBA: Fehler 3218 - Aktualisierung nicht möglich,momentan gesperrt	2	Marja	2764	11. Okt 2006, 12:05 Marja
	Access Formulare: Fehler 2448	1	Arkain	310	29. Sep 2006, 11:21 Gast
	Access Formulare: Umgang mit Listenfeld, angezeigte Werte, Fehler umgehen	2	gott50000	2063	02. Jun 2006, 06:35 gott50000
	Access Programmierung / VBA: Fehlende Verweise bei Start der DB herstellen möglich?	16	SlamJam	6331	04. Mai 2006, 17:53 Nouba
	Access Programmierung / VBA: Hilfe DB nach einem Fehler auf einmal 50 MB	6	Henrik_	825	05. März 2006, 20:36 Gast
	Access Programmierung / VBA: Fehler beim Komplimieren	1	Küsl	417	01. März 2006, 11:03 Willi Wipp

----> Diese Seite Freunden empfehlen <------	Impressum - Besuchen Sie auch: Warum