Office: Fehlende Hilfethemen aus dem Bereich VBA

Helfe beim Thema Fehlende Hilfethemen aus dem Bereich VBA in Microsoft Access Hilfe um das Problem gemeinsam zu lösen; Kann es daran liegen, dass ich zusätzlich noch die Dev-Tools und die MSDN-Library für Off2000 Dev. installiert hab? Dieses Thema im Forum "Microsoft Access Hilfe" wurde erstellt von Rainer Simon, 11. Mai 2003.

Seite 2 von 4

RACOON0506

racoon0506

Fehlende Hilfethemen aus dem Bereich VBA

Kann es daran liegen, dass ich zusätzlich noch die Dev-Tools und die MSDN-Library für Off2000 Dev. installiert hab?

racoon0506, 13. Mai 2003

#16
AQUARII

Aquarii

Kann es daran liegen, dass ich zusätzlich noch die Dev-Tools und die MSDN-Library für Off2000 Dev. installiert hab?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hallo Torsten,

hast du auch eines der von Jan beschriebenen Pakete installiert? Denn bei Dir funzt es ja auch mit der Hilfe!

Aquarii, 13. Mai 2003

#17
RAINER SIMON

Rainer Simon

Hallo,

hat schon jemand eine Lösung für das Problem mit den fehlenden Hilfethemen?

Ich komme nämlich mit dem Erstellen der Beziehungen auch nicht weiter, kann aber auch nicht in der Hilfe nachschauen, da alle Themen zum Anlegen von Beziehungen nicht erscheinen.

Code:

Private Sub TestBeziehungen()
Dim rel As Relation

'Ermitteln der Eigenschaften einer vorhandenen Beziehung
For Each rel In CurrentDb.Relations
MsgBox rel.ForeignTable '- n-Tabelle
MsgBox rel.Table '- 1-Tabelle
MsgBox rel.Name '- Name1-TabelleNamen-Tabelle
Next

'Versuch eine Beziehung herzustellen, in diesem Fall 1:1
Set rel = CurrentDb.CreateRelation
With rel
.Name = "tblWID00000tblWID1223"
.Table = "tblWID1223"
.ForeignTable = "tblWID00000"
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Im ersten Teil wollte ich die Merkmale der Beziehungen ermitteln, dieser wurde für den zweiten Teil kommentiert. Es funktioniert trotzdem nicht. Es fehlt einfach der Blick in die OH.

Gruß Rainer

Rainer Simon, 13. Mai 2003

#18
TOMMYK

TommyK

Fehlende Hilfethemen aus dem Bereich VBA

Hallo Rainer,

es fehlt meiner Meinung nach noch die Attributzuweisung für die Relation.
Bei einer 1:1 ist das Attribut "dbRelationUnique".
Vielleicht zeigt Deine OH die Attributes-Eigenschaft an.
Desweitern hast Du die beiden Felder nicht benannt die verknüpft werden sollen.

Ich habe mal folgende Prozedur hier gelistet, ist zwar für eine externe DB, kann aber umgeschrieben werden.
Sicherlich ist das nicht das NonPlusUltra aber es funktioniert.

Code:

Public Sub AddRelations(strPfadDB As String, strRName As String, strtbl As String, strFremdtbl As String, _
strMasterfld As String, strFremdfld As String, intAtt As Integer, Optional strPasswort As String)
'*******************************************
'Name: AddRelations (Sub)
'Purpose:
'Author: Thomas Keßler
'Date: Dezember 28, 2002, 10:58:03
'Inputs: strPfadDB= kompletter Pfad der DB, strRName = eindeutige Bezeichung der Relation
' strtbl = Name der Tabelle, strFremdtbl Name der Fremdtabelle
' strMasterfld = Feldbezeichnung Tabelle, strFremdfld =Feldbezeichnung Fremdtabelle
' intAtt=0 mit referentielle Integrität (beide gleich)
' intAtt=1 1:1 Beziehung
' intAtt=2 ohne refenzielle Integrität
' intAtt=3 mit refenzielle Integrität und Aktualisierungsweitergabe
' intAtt=4 mit refenzielle Integrität und Löschweitergabe
' intAtt=5 mit refenzielle Integrität Aktualisierungsweitergabe und Löschweitergabe
' intAtt=6 mit referentielle Integrität (alle 1. Tabelle)
' intAtt=7 mit ohne referentielle Integrität (alle 1. Tabelle)
' intAtt=8 mit referentielle Integrität (alle 1. Tabelle) mit Aktualisierungsweitergabe
' intAtt=9 mit referentielle Integrität (alle 1. Tabelle) mit Löschweitergabe
' intAtt=10 mit referentielle Integrität (alle 1. Tabelle) mit Aktualisierungsweitergabe und Löschweitergabe
' intAtt=11 mit referentielle Integrität (alle 2. Tabelle)
' intAtt=12 ohne referentielle Integrität (alle 2. Tabelle)
' intAtt=13 mit referentielle Integrität (alle 2. Tabelle) mit Aktualisierungsweitergabe
' intAtt=14 mit referentielle Integrität (alle 2. Tabelle) mit Löschweitergabe
' intAtt=15 mit referentielle Integrität (alle 2. Tabelle) mit Aktualisierungsweitergabe und Löschweitergabe
' strPasswort= DB-Kennwort
'Output:
'*******************************************
On Error GoTo fehler

Const WITH_REF_ALL = 0
Const ONE_TO_ONE = 1
Const WITHOUT_REF_ALL = 2
Const WITH_REF_ALL_REFRESH = 256
Const WITH_REF_ALL_DELETE = 4096
Const WITH_REF_ALL_REFRESH_DELETE = 4352
Const WITH_REF_L_INNERJOIN = 16777216
Const WITHOUT_REF_L_INNERJOIN = 16777218
Const WITH_REF_L_INNERJOIN_REFRESH = 16777472
Const WITH_REF_L_INNERJOIN_DELETE = 16781312
Const WITH_REF_L_INNERJOIN_REFRESH_DELETE = 16781568
Const WITH_REF_R_INNERJOIN = 33554432
Const WITHOUT_REF_R_INNERJOIN = 33554434
Const WITH_REF_R_INNERJOIN_REFRESH = 33554688
Const WITH_REF_R_INNERJOIN_DELETE = 33558528
Const WITH_REF_R_INNERJOIN_REFRESH_DELETE = 33558784

Dim wsp As DAO.Workspace, dbs As DAO.DATABASE, REL As DAO.Relation, Fld As DAO.field
Dim strPWD As String

' Prüfung ob DB-Kennwort angegeben wurde
If IsNull(strPasswort) Then
strPWD = ";pwd="
Else
strPWD = ";pwd=" & strPasswort
End If

If Not DBExist(strPfadDB) Then MsgBox "Die unter " & strPfadDB & " angegebene Datei existiert nicht.@Vorgang wird abgebrochen.@", vbCritical, "Fehler": Exit Sub

Set wsp = DBEngine.Workspaces(0)
Set dbs = wsp.OpenDatabase(strPfadDB, False, False, strPWD)

'Löschen einer bereits bestehenden Beziehung
For Each REL In dbs.Relations
If REL.Table = strtbl And REL.ForeignTable = strFremdtbl Then dbs.Relations.Delete REL.Name
Next REL

Set REL = dbs.CreateRelation(strRName)
REL.Table = strtbl
REL.ForeignTable = strFremdtbl

Select Case intAtt
Case 0
REL.Attributes = WITH_REF_ALL
Case 1
REL.Attributes = ONE_TO_ONE
Case 2
REL.Attributes = WITHOUT_REF_ALL
Case 3
REL.Attributes = WITH_REF_ALL_REFRESH
Case 4
REL.Attributes = WITH_REF_ALL_DELETE
Case 5
REL.Attributes = WITH_REF_ALL_REFRESH_DELETE
Case 6
REL.Attributes = WITH_REF_L_INNERJOIN
Case 7
REL.Attributes = WITHOUT_REF_L_INNERJOIN
Case 8
REL.Attributes = WITH_REF_L_INNERJOIN_REFRESH
Case 9
REL.Attributes = WITH_REF_L_INNERJOIN_DELETE
Case 10
REL.Attributes = WITH_REF_L_INNERJOIN_REFRESH_DELETE
Case 11
REL.Attributes = WITH_REF_R_INNERJOIN
Case 12
REL.Attributes = WITHOUT_REF_R_INNERJOIN
Case 13
REL.Attributes = WITH_REF_R_INNERJOIN_REFRESH
Case 14
REL.Attributes = WITH_REF_R_INNERJOIN_DELETE
Case 15
REL.Attributes = WITH_REF_R_INNERJOIN_REFRESH_DELETE
End Select

Set Fld = REL.CreateField(strMasterfld)
Fld.ForeignName = strFremdfld

REL.Fields.Append Fld
dbs.Relations.Append REL
dbs.Relations.Refresh

Set dbs = Nothing

fehler:
If Err = 3022 Then
MsgBox "Sie können für angegebenen Tabellen keine 1:1 Beziehung erstellen.@Vorgang wird abgebrochen.@", vbCritical, "Fehler": Exit Sub
ElseIf Err = 3009 Or Err = 3045 Or Err = 3051 Or Err = 3008 Or Err = 3262 Then
MsgBox "Die angegebene Datei bzw. Tabelle wird bereits verwendet.@Vorgang wird abgebrochen.@", vbCritical, "Fehler": Exit Sub
ElseIf Err = 3368 Then
MsgBox "Verknüpfte Felder müssen vom gleichen Datentyp sein.@Vorgang wird abgebrochen.@", vbCritical, "Fehler": Exit Sub
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

TommyK, 13. Mai 2003

#19
RAINER SIMON

Rainer Simon

Hallo Tommy,

vielen Dank für den Codeschnipsel, werde mich da wohl durchwühlen müssen, da es mit der Hilfe nicht funktoniert.

Hat noch jemand eine Idee wegen der Hilfethemen.

Gruß und Dank Rainer

Rainer Simon, 13. Mai 2003

#20
TOMMYK

TommyK

Hallo Rainer,

ich habe die Prozedur für Dich nochmal überarbeitet, da im Orginal noch eine andere Prozedur aufgrufen wird, dia aber nicht mitgeschickt habe.
Also die folgenden Sub greift auch nicht auf eine externe DB zu sondern auf die aktuelle.

Code:

Public Sub AddRelations(strtbl As String, strFremdtbl As String, _
strMasterfld As String, strFremdfld As String, intAtt As Integer)
'*******************************************
'Name: AddRelations (Sub)
'Purpose:
'Author: Thomas Keßler
'Date: Dezember 28, 2002, 10:58:03
'Inputs: strtbl = Name der Tabelle, strFremdtbl Name der Fremdtabelle
' strMasterfld = Feldbezeichnung Tabelle, strFremdfld =Feldbezeichnung Fremdtabelle
' intAtt=0 mit referentielle Integrität (beide gleich)
' intAtt=1 1:1 Beziehung
' intAtt=2 ohne refenzielle Integrität
' intAtt=3 mit refenzielle Integrität und Aktualisierungsweitergabe
' intAtt=4 mit refenzielle Integrität und Löschweitergabe
' intAtt=5 mit refenzielle Integrität Aktualisierungsweitergabe und Löschweitergabe
' intAtt=6 mit referentielle Integrität (alle 1. Tabelle)
' intAtt=7 mit ohne referentielle Integrität (alle 1. Tabelle)
' intAtt=8 mit referentielle Integrität (alle 1. Tabelle) mit Aktualisierungsweitergabe
' intAtt=9 mit referentielle Integrität (alle 1. Tabelle) mit Löschweitergabe
' intAtt=10 mit referentielle Integrität (alle 1. Tabelle) mit Aktualisierungsweitergabe und Löschweitergabe
' intAtt=11 mit referentielle Integrität (alle 2. Tabelle)
' intAtt=12 ohne referentielle Integrität (alle 2. Tabelle)
' intAtt=13 mit referentielle Integrität (alle 2. Tabelle) mit Aktualisierungsweitergabe
' intAtt=14 mit referentielle Integrität (alle 2. Tabelle) mit Löschweitergabe
' intAtt=15 mit referentielle Integrität (alle 2. Tabelle) mit Aktualisierungsweitergabe und Löschweitergabe
'Output:
'*******************************************
On Error GoTo fehler

Const WITH_REF_ALL = 0
Const ONE_TO_ONE = 1
Const WITHOUT_REF_ALL = 2
Const WITH_REF_ALL_REFRESH = 256
Const WITH_REF_ALL_DELETE = 4096
Const WITH_REF_ALL_REFRESH_DELETE = 4352
Const WITH_REF_L_INNERJOIN = 16777216
Const WITHOUT_REF_L_INNERJOIN = 16777218
Const WITH_REF_L_INNERJOIN_REFRESH = 16777472
Const WITH_REF_L_INNERJOIN_DELETE = 16781312
Const WITH_REF_L_INNERJOIN_REFRESH_DELETE = 16781568
Const WITH_REF_R_INNERJOIN = 33554432
Const WITHOUT_REF_R_INNERJOIN = 33554434
Const WITH_REF_R_INNERJOIN_REFRESH = 33554688
Const WITH_REF_R_INNERJOIN_DELETE = 33558528
Const WITH_REF_R_INNERJOIN_REFRESH_DELETE = 33558784

Dim dbs As DAO.DATABASE, REL As DAO.Relation, Fld As DAO.field

Set dbs = CurrentDb

'Löschen einer bereits bestehenden Beziehung
For Each REL In dbs.Relations
If REL.Table = strtbl And REL.ForeignTable = strFremdtbl Then dbs.Relations.Delete REL.Name
Next REL

' der Name der Relation wird aus Namen der Master- und Fremdtabelle gebildet
Set REL = dbs.CreateRelation(strtbl & strFremdtbl)
REL.Table = strtbl
REL.ForeignTable = strFremdtbl

Select Case intAtt
Case 0
REL.Attributes = WITH_REF_ALL
Case 1
REL.Attributes = ONE_TO_ONE
Case 2
REL.Attributes = WITHOUT_REF_ALL
Case 3
REL.Attributes = WITH_REF_ALL_REFRESH
Case 4
REL.Attributes = WITH_REF_ALL_DELETE
Case 5
REL.Attributes = WITH_REF_ALL_REFRESH_DELETE
Case 6
REL.Attributes = WITH_REF_L_INNERJOIN
Case 7
REL.Attributes = WITHOUT_REF_L_INNERJOIN
Case 8
REL.Attributes = WITH_REF_L_INNERJOIN_REFRESH
Case 9
REL.Attributes = WITH_REF_L_INNERJOIN_DELETE
Case 10
REL.Attributes = WITH_REF_L_INNERJOIN_REFRESH_DELETE
Case 11
REL.Attributes = WITH_REF_R_INNERJOIN
Case 12
REL.Attributes = WITHOUT_REF_R_INNERJOIN
Case 13
REL.Attributes = WITH_REF_R_INNERJOIN_REFRESH
Case 14
REL.Attributes = WITH_REF_R_INNERJOIN_DELETE
Case 15
REL.Attributes = WITH_REF_R_INNERJOIN_REFRESH_DELETE
End Select

Set Fld = REL.CreateField(strMasterfld)
Fld.ForeignName = strFremdfld

REL.Fields.Append Fld
dbs.Relations.Append REL
dbs.Relations.Refresh

Set dbs = Nothing

fehler:
If Err = 3022 Then
MsgBox "Sie können für angegebenen Tabellen keine 1:1 Beziehung erstellen.@Vorgang wird abgebrochen.@", vbCritical, "Fehler": Exit Sub
ElseIf Err = 3009 Or Err = 3045 Or Err = 3051 Or Err = 3008 Or Err = 3262 Then
MsgBox "Die angegebene Datei bzw. Tabelle wird bereits verwendet.@Vorgang wird abgebrochen.@", vbCritical, "Fehler": Exit Sub
ElseIf Err = 3368 Then
MsgBox "Verknüpfte Felder müssen vom gleichen Datentyp sein.@Vorgang wird abgebrochen.@", vbCritical, "Fehler": Exit Sub
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Der Aufruf erfolgt dann so:

Code:

Call AddRelations("DeineMasterTabelle", "DeineFremdTabelle", "DeinID_FeldMasterTabelle", "DeinFremdFeldFremdTabelle", 1)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

hier würde ein 1:1 Beziehung erstellt werden, wenn möglich.

TommyK, 14. Mai 2003

#21
RACOON0506

racoon0506

\@Aquarii

hast du auch eines der von Jan beschriebenen Pakete installiert?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Daran kann es scheinbar nicht liegen. Die Hilfedateien sind zwar vorhanden, jedoch nur als "Übersicht". Bei Auswahl eines Themas wird sofort nach einer CD verlangt. Demnach sollte das schon in der VB-Hilfe enthalten sein........ grübel ..... verzweifel ..... ratlos ......

racoon0506, 14. Mai 2003

#22
AQUARII

Aquarii

Fehlende Hilfethemen aus dem Bereich VBA

\@Jan

Ich habe jetzt verschiedene Rechner getestet, auf denen Office 2000 Pro und Office 2000 Premium installiert sind, aber bei beiden Versionen sind nicht alle Hilfstexte vorhanden. Es ist zum Haareraufen...

Vielleicht klinkt sich ja noch einmal Torsten ein und beschreibt, welche Version er installiert hat.

Aquarii, 14. Mai 2003

#23
STRAUSTO

strausto

Kann es daran liegen, dass ich zusätzlich noch die Dev-Tools und die MSDN-Library für Off2000 Dev. installiert hab?

Hallo Torsten,

hast du auch eines der von Jan beschriebenen Pakete installiert? Denn bei Dir funzt es ja auch mit der Hilfe!
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

@Heiko!

Ne, meiner Meinung nach habe ich weder die Dev Tool noch die MSDN-Libary installiert.

strausto, 14. Mai 2003

#24
STRAUSTO

strausto

\@Heiko!

Sag mal ist es denn nun möglich die Help Datei weiterzugeben. Ich würde sie ja gerne als Download anbieten.

strausto, 14. Mai 2003

#25
ARNE DIECKMANN

Arne Dieckmann

\@Torsten: Wäre natürlich prima (wenn es erlaubt wäre). IMHO gibt es aber nicht nur eine Help-Datei, sondern mehrere CHM-Dateien. Dort müsste man erst einmal die richtige(n) ausfindig machen. Bei mir liegen die Teile in C:\Programme\Microsoft Office\Office\1031

Arne Dieckmann, 14. Mai 2003

#26
RAINER SIMON

Rainer Simon

Hallo,

die Hilfedateien scheinen nach Themen geteilt zu sein. Ich habe mal einen aktuellen Auszug von 1031 beigelegt, hier ist ja auch der Stand zu erkennen. Vielleicht hilft uns das bei der Bewältigung des Themas weiter.

Anscheinend habe ich da wohl ein Wespennest erwischt. *bawling

Gruß Rainer

Rainer Simon, 14. Mai 2003

#27
STRAUSTO

strausto

Fehlende Hilfethemen aus dem Bereich VBA

Die Hilfe zu CreateRelation habe ich in der HelpDatei DA0360 gefunden.

strausto, 14. Mai 2003

#28
RAINER SIMON

Rainer Simon

Hallo Torsten,

nach Speichern der Datei im Office 1031 Verzeichnis und anschließender Installation sehe ich nun auch die Hilfe zur Relations-Auflistung.

Ich hatte diese Datei nicht gehabt, nur eine DAO360.AW.

Gruß und Dank Rainer

Rainer Simon, 14. Mai 2003

#29
STRAUSTO

strausto

Prima! *Smilie

Vielleicht willst Du oder wer auch immer noch andere Helpdateien!?

Ich kann Euch auch alle zum Download einstellen! *biggrin.gif*

strausto, 14. Mai 2003

#30

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 2 von 4

Thema:

Fehlende Hilfethemen aus dem Bereich VBA

Die Seite wird geladen...

Fehlende Hilfethemen aus dem Bereich VBA - Similar Threads - Fehlende Hilfethemen Bereich
Fehlende Zeichen einfügen
in Microsoft Excel Hilfe
Fehlende Zeichen einfügen: Hallo VBA Kollegen! Ich habe wieder einmal ein kleines Problem. Ich muss im String1 mit einem anderen String2 vergleichen und die Buchstaben die im String2 aber nicht im String1 vorhanden sind...
(Excel) Dynamische Tabelle, VBA, fehlende Formatierung?
in Microsoft Excel Hilfe
(Excel) Dynamische Tabelle, VBA, fehlende Formatierung?: Liebe Experten, Gefilterte Daten sollen in ein Listobject übertragen werden. Für das Listobject habe ich ein Template angelegt, dass alle Formatierungen (u.a. bedingte Formatierung etc.) enthält....
Fehlende fortlaufende Nummer feststellen
in Microsoft Excel Hilfe
Fehlende fortlaufende Nummer feststellen: Hallo zusammen, ich möchte gerne in Excel angezeigt bekommen, wenn eine fortlaufende Nummer fehlt. Leider hat die bedingte Formatierung mir nicht geholfen. Vorher noch zwei kurze Fragen: Kann...
Pivot Tabelle aus 2 Tabellen, fehlende Optionen
in Microsoft Excel Hilfe
Pivot Tabelle aus 2 Tabellen, fehlende Optionen: Hallo, ich benutze Microsoft 365 auf dem Macbook und versuche oft Videotutorials über Excel zu folgen, finde dann aber die gezeigten Optionen bei mir nicht. Zu Beispiel versuche gerade eine...
Strom und Gasverbrauch: Fehlende Tage automatisch in Tabelle hinzufügen
in Microsoft Excel Hilfe
Strom und Gasverbrauch: Fehlende Tage automatisch in Tabelle hinzufügen: Hallo! ich habe seit 5 Jahren in meiner Wohnung immer mal wieder meinen Strom und Gas Zähler notiert. Allerdings habe ich dies sehr unregelmäßig gemacht, sodass die Auswertung in Excel nicht...
Import von XML-Dateien in Access
in Microsoft Access Hilfe
Import von XML-Dateien in Access: Hallo zusammen, ich möchte eine Menge von XML-Dateien in Access 2016 importieren und verwende dazu die Importfunktion für XML-Dateien unter Externe Daten im Menü. Die Dateien enthalten einige 100...
PQ-Auswertung von Übereinstimmungen und Fehlende Daten
in Microsoft Excel Hilfe
PQ-Auswertung von Übereinstimmungen und Fehlende Daten: Hallo miteinander, so nun habe ich mein nächstes PQ-Projekt am Start. Jetzt bin ich halt leider wieder an meine Grenzen gestoßen. Ich habe eine Mustertabelle mit Wunsch-Ergebnis aufbereitet. Nun...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden