collapse

* Benutzer Info

 
 
Willkommen Gast. Bitte einloggen oder registrieren. Haben Sie Ihre Aktivierungs E-Mail übersehen?

* Wer ist Online

  • Punkt Gäste: 51
  • Punkt Versteckte: 1
  • Punkt Mitglieder: 2
  • Punkt Benutzer Online:

* Forenstatistik

  • stats Mitglieder insgesamt: 13953
  • stats Beiträge insgesamt: 66356
  • stats Themen insgesamt: 8942
  • stats Kategorien insgesamt: 5
  • stats Boards insgesamt: 17
  • stats Am meisten online: 415

Autor Thema: Alle Web-Links in Tabelle auf Gültigkeit überprüfen!  (Gelesen 6384 mal)

Offline Dorian-1965

  • Newbie
  • Beiträge: 9
Re: Alle Web-Links in Tabelle auf Gültigkeit überprüfen!
« Antwort #15 am: Mai 01, 2018, 16:10:31 »
Nochmal eine Frage dazu:

Ich habe jetzt für jeden Datensatz 4 zu prüfende Felder in einem Endlosformular.
Das entsprechende Feld zeigt mir jetzt ob der Link gültig ist oder nicht mit Hilfe dieser Formel:

=Wenn([UrlExistiert]=Wahr;"geht";"geht nicht")

mit der bedingten Formatierung ändert sich auch die Farbe auf grün oder rot.

1.
Wie kann ich jetzt erreichen, dass in einem neuen Datensatz (Endlosformular)
die Prüfung nicht stattfindet, also wenn das Feld "Link" leer ist?
2. Wie kann man die Prüfung veranlassen, erst nach 10 Sekunden zu beginnen bis ich den richtigen Datensatz angezeigt bekomme? Ich muss beim blättern sonst immer warten.

Dorian
« Letzte Änderung: Mai 01, 2018, 16:30:43 von Dorian-1965 »
 

Offline trebuh

  • Access-Profi
  • **
  • Beiträge: 175
Re: Alle Web-Links in Tabelle auf Gültigkeit überprüfen!
« Antwort #16 am: Mai 01, 2018, 19:19:25 »
Hallo Dorian,

ich würde wie MzKlMu beschrieben, die Links in eine extra Tabelle setzen.
Wird denn in dem besagten Datensatz noch was anderes außer den Links eingegeben?
Werden denn auch alle Links immer ausgefüllt?

Wenn das jede Woche einmal geprüft wird, würde ich ein extra Formular anlegen, welches mittels Startbutton alle Links prüft, und mir im Anschluß einen Bericht ausgeben lassen, welcher die ungültigen Links (jeder Link ein Datensatz) ausgibt.
Dann kannst Du auch nur diesen Datensatz löschen.

Andere Möglichkeit, in dieser extra Tabelle ein Ja/Nein Feld hinzufügen, welche die Gültigkeit hinterlegt.
Dann mittels Akualisierungsabfrage die ungültigen Datansätze löschen.

Gruß
Hubert
 

Offline Dorian-1965

  • Newbie
  • Beiträge: 9
Re: Alle Web-Links in Tabelle auf Gültigkeit überprüfen!
« Antwort #17 am: Mai 02, 2018, 18:03:04 »
Hallo!

Also die Links befinden sich nun in einer externen, verküpften Tabelle. Mir werden nun pro Datensatz 4 Links (Unterformular - Endlosformular) angezeigt.

Meine Frage war:
1.
Im Endlosformular wird ja automatisch nach dem letzten Datensatz schon ein neuer angezeigt.
Bei diesem neuen Datensatz wird aber im Moment "geht nicht" angezeigt weil natürlich in dem neuen Datensatz noch kein Link hinterlegt ist. Wie kann ich dies verhindern. (wenn Feld leer keine Prüfung oder so ähnlich...)
2.
Wie kann man die Prüfung veranlassen, erst nach 10 Sekunden zu beginnen bis ich den richtigen Datensatz angezeigt bekomme?

PS: Ein extra Formular um alle Links zu prüfen geht nun leider nicht mehr weil es mitlerweile ca. 7500 Links sind. Die alle zu prüfen dauert ca. 3 Stunden ... also nicht möglich...

Dorian

 

Offline trebuh

  • Access-Profi
  • **
  • Beiträge: 175
Re: Alle Web-Links in Tabelle auf Gültigkeit überprüfen!
« Antwort #18 am: Mai 02, 2018, 19:34:31 »
Hallo Dorian,

von den 4 Links kann man in einer manuellen Abfrage die anderen 3 Links in einen neuen Datensatz mit entsprechendem Fremdschlüssel einfügen.
Von daher würde sich der Aufwand pro Link ein Datensatz in Grenzen halten.
Und sollte mal ein oder mehrere Links später hinzu kommen, hast Du alle Möglichkeiten offen.
So musst Du ja wieder in den Tabellenaufbau eingreifen.

Deine andere Frage verstehe ich nicht ganz.
Du willst einen neuen Datensatz anlegen, aber der Rechner ist damit beschäftigt die anderen Links zu prüfen sowie die bedingte Formatierung abzuarbeiten?

Ich denke, die Prüfung soll nur einmal pro Woche erfolgen!?

Was heißt "bis ich den richtigen Datensatz angezeigt bekomme?"
Du suchst einen Datensatz und der Rechner ist (leider mit der Prüfung) beschäftigt?

Dann hinterlege doch einen Button pro Datensatz im Endlosformular, wo Du jeden Datensatz nach Bedarf einer Prüfung unterziehen kannst.

Ändern sich die Links den ständig, dass diese jede Woche aktualisiert sein müssen?
Sind das Firmenwebadressen, oder Artikel?

Gruß
Hubert
 

Offline Dorian-1965

  • Newbie
  • Beiträge: 9
Re: Alle Web-Links in Tabelle auf Gültigkeit überprüfen!
« Antwort #19 am: Mai 03, 2018, 16:20:56 »
Hallo!
In meinem Unterformular befindet sich ein Endlosformular mit im Moment 4 Datensätzen. (Können auch mehr werden) Mittels einer Abfrage und des Moduls wird die Gültigkeit dieser Links geprüft.
Das Endlosformular zeigt aber natürlich schon die Möglichkeit an, einen neuen Datensatz hinzuzufügen.
(Datensatzmakierer mit Stern) auch hier wird schon geprüft und da das Feld Link leer ist natürlich auch ungültig angezeigt. Dies möchte ich verhindern.

Alle Links einmal die Woche zu prüfen geht nicht mehr weil es zu viele geworden sind. Es handelt sich um Fundstellen zu dem jeweiligen Thema die manchmal aber leider gelöscht worden sind...
 

Offline DF6GL

  • Global Moderator
  • Access-Oberguru
  • *****
  • Beiträge: 23319
Re: Alle Web-Links in Tabelle auf Gültigkeit überprüfen!
« Antwort #20 am: Mai 03, 2018, 21:09:19 »
Hallo,

Möglichkeit:

Das UFO bei "Anfügen zulassen" auf nein stellen. Damit wir kein neuer DS permanent angezeigt.  Wenn ein neuer DS hinzu kommen soll, dann das UFO an dieser Eigenschaft per Button umstellen oder über ein separat aufgerufenes Form einen neuen Link eingeben.

Ansonsten könnte auch die Prüfroutine so erweitert werden, dass beim Erkennen einen neuen DS eben keine Gültigkeitsprüfung erfolgt.

Offline Dorian-1965

  • Newbie
  • Beiträge: 9
Re: Alle Web-Links in Tabelle auf Gültigkeit überprüfen!
« Antwort #21 am: Mai 04, 2018, 13:14:52 »
...
Ansonsten könnte auch die Prüfroutine so erweitert werden, dass beim Erkennen einen neuen DS eben keine Gültigkeitsprüfung erfolgt.

Hallo!
Wie stelle ich den die Routine um? In dem Modul?
Function ExistsURL(Url As String) As Boolean
Dim oXMLHTTP As Object
On Error GoTo Myerr
  ExistsURL = False
  Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
  oXMLHTTP.Open "GET", Url, False
  oXMLHTTP.Send
  If oXMLHTTP.Status = 200 Then ExistsURL = True

MyExit:
  Set oXMLHTTP = Nothing
  Exit Function
Myerr:
  ExistsURL = False
  Resume MyExit
End Function

... oder in dem Unterformular / Endlosformular?

Danke und Gruß

Dorian
 

Offline DF6GL

  • Global Moderator
  • Access-Oberguru
  • *****
  • Beiträge: 23319
Re: Alle Web-Links in Tabelle auf Gültigkeit überprüfen!
« Antwort #22 am: Mai 05, 2018, 07:55:42 »
Hallo,

im einfachsten Fall:


Zitat
Function ExistsURL(Url As Variant) As Boolean
Dim oXMLHTTP As Object
On Error GoTo Myerr

If IsNull(Url) Then Exit Function
.
.

Offline Dorian-1965

  • Newbie
  • Beiträge: 9
Re: Alle Web-Links in Tabelle auf Gültigkeit überprüfen!
« Antwort #23 am: Mai 05, 2018, 17:11:37 »
Hallo!

In der Abfrage bleibt das Feld UrlExistiert jetzt leer.
Wie kann ich dem Formular den sagen wenn AbfrageFeld leer soll das Formularfeld auch leer bleiben?
Im Moment habe ich im Formularfeld disen Code:

=Wenn([UrlExistiert]=Wahr;"geht";"geht nicht")
 

Offline DF6GL

  • Global Moderator
  • Access-Oberguru
  • *****
  • Beiträge: 23319
Re: Alle Web-Links in Tabelle auf Gültigkeit überprüfen!
« Antwort #24 am: Mai 05, 2018, 19:04:57 »
Hallo,

z. B.:

= Choose([UrlExistiert];""; "geht";"geht nicht";"Fehler")  <edit>

und


Function ExistsURL(Url ) As Long
Dim oXMLHTTP As Object
On Error GoTo Myerr


If IsNull (Url) then
   ExistsURL=1
Else

    Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
  oXMLHTTP.Open "GET", Url, False
  oXMLHTTP.Send
  If oXMLHTTP.Status = 200 Then
     ExistsURL = 2
  Else
      ExistsURL = 3
  End If
End If


MyExit:
  Set oXMLHTTP = Nothing
  Exit Function
Myerr:
  ExistsURL = 4   'evtl.  gesondert behandeln
  Resume MyExit
End Function


Offline Dorian-1965

  • Newbie
  • Beiträge: 9
Re: Alle Web-Links in Tabelle auf Gültigkeit überprüfen!
« Antwort #25 am: Mai 07, 2018, 11:53:38 »
Hallo!

Die Abfrage (mit dem neuen Code im Modul) zeigt jetzt 2 oder 3. Der leere DS ist leer (gut)
Aber das Formularfeld mit dem Code = Chose([UrlExistiert];""; "geht";"geht nicht";"Fehler")
zeigt nur Fehler an ...
 

Offline DF6GL

  • Global Moderator
  • Access-Oberguru
  • *****
  • Beiträge: 23319
Re: Alle Web-Links in Tabelle auf Gültigkeit überprüfen!
« Antwort #26 am: Mai 07, 2018, 13:23:20 »
Hallo,

da ist ein Tippfehler..

Die Funktion heißt Choose()

Offline Dorian-1965

  • Newbie
  • Beiträge: 9
Re: Alle Web-Links in Tabelle auf Gültigkeit überprüfen!
« Antwort #27 am: Mai 07, 2018, 13:28:39 »
Ahhhh jetzt geht es ... außer bei einem neuen Datensatz, da sagt er jetzt #Typ!...

Dorian
 

Offline DF6GL

  • Global Moderator
  • Access-Oberguru
  • *****
  • Beiträge: 23319
Re: Alle Web-Links in Tabelle auf Gültigkeit überprüfen!
« Antwort #28 am: Mai 07, 2018, 13:31:14 »
Hallo,

was zeigt denn die Abfrage bei einem neuen DS in Spalte "UrlExistiert" an?

Offline Dorian-1965

  • Newbie
  • Beiträge: 9
Re: Alle Web-Links in Tabelle auf Gültigkeit überprüfen!
« Antwort #29 am: Mai 07, 2018, 13:42:58 »
In der Abfrage ist das Feld leer ...