Office: (Office 2013) Outlook Kontakte (.Categories)

Im letzten Beispiel ist im frmKontakteEinlesen kein Code vorhanden.
Um die DLookUp-Anweisung verwenden zu können, benötigst du hier die OutlookkategorieID (im frmKontakt war die vorhanden).
Wenn diese als Feld im frmKontakteEinlesen nicht vorhanden ist (wovon ich ausgehe) musst Du sie woanders herholen; z.B. aus dem aktuell geladenem RecordSet welches die Userdaten hält; dort sollte auch das Feld für die OutlookkategorieID vorhanden sein.
Das Kriterium für DLookUp sieht dann (in etwa) wie folgt aus:
"[OutlookkategorieID] = " & rs.Fields("OutlookkategorieID")

 

Guten Morgen,

habe ein komisches Phänomen festgestellt.

Wenn ich, wie ich es besser finde frmKontakteEinlesen dafür benutze um die Kontakte zu Outlook zu übertragen diesen Code(für die Kategorien) benutze
Code:

Dann sagt Access mir das das frmKontakt Formular nicht gefunden werden konnte. Öffne ich aber das frmKontakt und frmKontakteEinlesen dann findet die Übertragung ohne Probleme statt.

Kann mir jemand sagen wie ich das Problem behebe?

Um das Problem vorzustellen hänge ich die Datenbank mit an.

Mit freundlichen Grüßen

AccUser2013

 

Mit "ist nicht vorhanden" meint Access dass es nicht geladen ist; das Verhalten ist also völlig normal.
Meinen Post #31 hast du gelesen? Dort steht die Lösung für das Problem.
Das zweite Formular zu öffnen ist nicht die Lösung da hier ja nur genau ein Datensatz (der erste) angezeigt wird; ergo würde für alle Kontakte die dort verwendete Kategorie genutzt werden... das ist wohl kaum in Deinem Sinne...

 

Du meinst das hier?

Fehlt da nicht die "Verknüpfung" auf frmKontakt Formular? Du schreibst auch etwa in so, fehlt da noch etwas ? Habe ein paar Versionen versucht aber keine Funktioniert.

z.B. Code:

Richtig, das habe ich nicht vor.

Mit freundlichen Grüßen

AccUser2013

 

Dein Versuch zeigt (erneut) dass Du die Grundkenntnisse noch nicht verstanden hast... das ganze ist mehr Try&Error-"Programmierung", oder?

Einem RecordSet-Objekt musst Du auch ein Recordset zuweisen... DLookup liefert Dir kein RecordSet-Objekt sondern einen Wert vom Typ Variant zurück (s. OnlineHilfe).

Ich versuche Dir die Tage ein verwendbares Beispiel auf Basis der letzten BeispielDB zu erstellen...
Dennoch die Bitte, setz Dich mit den Grundlagen von Access und VBA auseinander wenn beides produktiv verwenden möchtest... sonst erleidest Du früher oder später Schiffbruch.

 

So, erstelle Dir bitte eine neue Abfrage mit folgendem SQL-Code: Code:

und speichere sie unter dem Namen qryKontakteExport ab.
Deinen Code änderst Du an den entsprechenden Stellen wie folgt:
Set rstKontakte = db.OpenRecordset("qryKontakteExport", dbOpenDynaset)
Die DLookUp-Anweisung fällt weg.
Der Zugriff auf die nun im RecordSet direkt aufgeführten Kategorie erfolgt analog allen anderen Feldern
.Categories = Nz(rstKontakte!Outlookkategorie)

 

Guten Abend CptChaos,

danke für dein Beispiel und vor allem für deine Geduld mit mir!

Ich habe dein Beispiel in die Datenbank eingebaut und es funktioniert perfekt *Smilie

Ich werde dein Rat befolgen und mir die OnlineHilfe zu Rate ziehen.

Dir und alle anderen Experten eine schöne Woche

Bis bald.

Mit freundlichen Grüßen

AccUser2013