---

laufzeitfehler.jpg

Hi !
Ich hab da nochma so ein Problem :
Ich will per Code eine Datei reservieren (ausleihen).
Da gibts ja eine Methode (Auszug aus der "Hilfe") :
"Method that reverts the file checked out by the caller.
Syntax
RevertReservedForWriteByMe()"
Die schlägt bei mir einfach fehl.
Habe das probiert :
Call ThisApplication.ActiveDocument.RevertReservedForWriteByMe
Kommt Laufzeitfehler raus (siehe Bild)

Weiß jemand, wie das wirklich funzt ?

Noch 5 Tage bis zum Wochenende !

------------------
Thomas Sch

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Leider die gleiche troubles 

Ich werde mich mal schlau machen.

------------------
Grüße daywa1k3r

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi daywlker !
habe ein "Workaround" probiert, was zu funzen scheint (?????)
Un zwar so :

Public Function AktivesDocReserviertVonMir() As Boolean
Dim oDoc As Inventor.Document
Set oDoc = ThisApplication.ActiveDocument
Dim Antwort As VbMsgBoxResult
If oDoc.ReservedForWrite = False Then
  Antwort = MsgBox("Datei ist zur Zeit nicht ausgeliehen " _
  & vbNewLine & "Ausleihe erstellen ?", vbYesNo)
End If
If oDoc.ReservedForWriteByMe = True Then
Antwort = vbNo
AktivesDocReserviertVonMir = True
End If

If Antwort = vbYes Then
oDoc.ReservedForWriteByMe = True
AktivesDocReserviertVonMir = True
oDoc.Save
oDoc.Update
End If

Ende:
Set oDoc = Nothing

End Function

Was hältst Du davon ?
Net schön, aber reserviert (bis ich auf den zu erwartenden Fehler stoße)
Probiere jetzt mal, ewas passiert, wenn Datei von einem Kollegen reserviert wurde...

------------------
Thomas Sch

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Net schön,...

---

Pffff... Ist doch Einwandfrei 
Aber war nicht die "RevertReservedForWriteByMe" die nicht gefunzt hat ?

------------------
Grüße daywa1k3r

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi !
Klar hast Du recht, aber lieber gerade einen workaround als
versuchen, die "revert...." Kiste zum rennen zu bringen.
Würde mich aber immer noch interessieren, was man damit anstellen kann
(außer laufzeitfehlöer produzieren)
Gruß

------------------
Thomas Sch

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi !
Leider hat sich mein Problem wieder ergeben :
Das mit dem Workaround funzt nur für MultiUser=gemeinsam
Ansonsten (bei semi-isolated) rennt der code
oDoc.ReservedForWriteByMe = True
voll an die wand.
Bin also wieder am Anfang
Sch......!!!!!
Hilfäääääähhhh!
Gruß

------------------
Thomas Sch

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP