| | ![](https://ww3.cad.de/php/image.php?resolution=width:20050) | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte | | | ![](https://ww3.cad.de/php/image.php?resolution=width:16196) | PNY WIRD VON NVIDIA ZUM HÄNDLER DES JAHRES GEWÄHLT, eine Pressemitteilung
|
Autor
|
Thema: Try-Catch in Verbindung mit If (Problem) (208 mal gelesen)
|
chense Mitglied Konstrukteur
![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für chense](/foren/ubb/pmimages/gbu.gif) Beiträge: 71 Registriert: 14.04.2020 Inventor 2019 auf Windows 10 Intel Xeon E5-1630, 3,7Ghz Nvidia Quadro P4000 32GB Ram
|
erstellt am: 30. Jun. 2023 08:58 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif)
Hallo zusammen, ein besserer Titel ist mir leider nicht eingefallen. Ich habe nachfolgenden Code der in einer Schleife über alle Bauteile einer Baugruppe abläuft Code:
Try If iProperties.Value(oFileInfo.Name, "Project", "Cost Center") = "" Or iProperties.Value(oFileInfo.Name, "Project", "Checked By") = "" Or iProperties.Value(oFileInfo.Name, "Project", "Date Checked") = checkdate0 ThisDoc.Launch(orefdocname) End If Catch MessageBox.Show("Dokument " & orefdocname & " konnte nicht geöffnet werden!" & vbCrLf & "Bitte manuell öffnen!", "Fehler beim Öffnen", MessageBoxButtons.OK, MessageBoxIcon.Error) End Try
Ziel ist es alle Dokumente zu öffnen, denen eine Freigabeinformation fehlt. Das funktioniert auch soweit so gut, allerdings soll die Fehlermeldung nur kommen, wenn eine Datei wirklich nicht geöffnet werden kann (gibt da so ein paar nervige Zukaufteile bei uns die das nicht wollen). Stattdessen habe ich folgendes Verhalten: - Wird in einer lokalen Datei ausgeführt: Funktioniert wie gewünscht - Wird in einer Baugruppe im Netzwerk ausgeführt: Die Fehlermeldung erscheint auch bei jedem Teil das ein Kriterium der IF-Schleife erfüllt und damit nicht geöffnet werden soll ------------------ Für jede Fehlermeldung gibt es eine Lösung Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
KraBBy Mitglied Maschinenbau-Ingenieur
![](/foren/ubb/star3.gif) ![](/foren/ubb/star3.gif) ![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für KraBBy](/foren/ubb/pmimages/gbu.gif) Beiträge: 718 Registriert: 19.09.2007 Inventor Professional 2020 WinX
|
erstellt am: 30. Jun. 2023 10:24 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für chense
So richtig kapiere ich das noch nicht. Trotzdem versuch ich es mal: Im Grunde bedeutet die Meldung ja auch nur, dass im Try-Block ein Fehler auftrat. Wo genau weiß man erst mal nicht. Also ist mein Vorschlag das Try zu zerstückeln oder auf die Zeile mit .Launch(...) zu beschränken. Dann bekommst Du zumindest eine Fehlermeldung, wenn beim Lesen der iProp was schief geht. etwa:
Code: Dim bToOpen as Boolean = False If iProperties.Value(oFileInfo.Name, "Project", "Cost Center") = "" Then bToOpen = True If iProperties.Value(oFileInfo.Name, "Project", "Checked By") = "" Then bToOpen = True If iProperties.Value(oFileInfo.Name, "Project", "Date Checked") = checkdate0 Then bToOpen = TrueTry If bToOpen then ThisDoc.Launch(orefdocname) Catch ' [...] End Try
------------------ Gruß KraBBy Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
rkauskh Moderator Dipl.-Ing. (FH) Versorgungstechnik
![](/foren/ubb/Admin1.gif) ![](/foren/ubb/Admin2.gif) ![](/foren/ubb/Admin3.gif) ![](/foren/ubb/Admin4.gif) ![](/foren/ubb/Admin5.gif) ![](/foren/ubb/Admin1.gif) ![](/foren/ubb/Admin2.gif)
![](/foren/avatars/rkauskh.gif)
![Schreiben Sie einen Gästebucheintrag für rkauskh](/foren/ubb/pmimages/gbu.gif) Beiträge: 2505 Registriert: 15.11.2006 Windows 10 x64, AIP 2023
|
erstellt am: 30. Jun. 2023 17:28 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für chense
Moin Was ist oFileInfo und was ist orefdocname? Deklaration und Inhalt der Variablen zur Laufzeit kontrollieren. Möglicherweise wird einmal ein UNC-Pfad benutzt und einmal ein gemapptes Laufwerk. Das kann Unterschiede in den Zugriffsrechten bedeuten. Wenn man die Catch Anweisung etwas erweitert bekommt man da auch mehr Infos heraus. Die Möglichkeiten der Exception Klasse findest du hier Code:
Try ..... Catch ex As Exception MessageBox(ex.Message) End Try
------------------ MfG Ralf RKW Solutions GmbH www.RKW-Solutions.com Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
![](https://ww4.cad.de/books/view.php?what=zone:12581&n=s12581BB) |