1. Variante: Anzeige einer fest verdrahteten Seite in einem Einzelformular per Webbrowsersteuerelement

Das Webbrowsersteuerelement heißt hier: ActiveXStr0



Nachfolgend Muster-Prozeduren des Formulars:

Private Sub Form_Open(Cancel As Integer)

DoCmd.Maximize

On Error Resume Next



Dim Hierher

Hierher = “D:\Access\KnowHow\"



‘Alternativ: Der Variable Hierher den Pfad (Verzeichnis) der Datenbank zuweisen

‘Hierher = Left(CurrentDb.Name, Len(CurrentDb.Name) - Len(Dir(CurrentDb.Name)))



If Len(Me!txtAdresse) > 0 Then

Me!ActiveXStr0.Navigate Hierher

End If



'With ActiveXStr0

' .Width = 400 ‘ Höhe einstellen – WennÂ’s funktioniert Â…

' .Height = 300 ‘ Breite einstellen – Wenn’s funktioniert …

'End With



End Sub





Private Sub Form_Load()

On Error Resume Next



With Me!ActiveXStr0

.Navigate “D:\Access\KnowHow\"

.StatusBar True

End With



End Sub





Private Sub Form_Close()

DoCmd.Restore

End Sub

2. Variante: Anzeige einer Seite in einem Einzelformular per Webbrowsersteuerelement, wobei

- die Web-Seite aus einer Tabelle entnommen wird, die dem Formular zu Grunde liegt

- man beim Datensatzwechsel die Webseite des nächsten Datensatzes angezeigt bekommt.



Die Seite steht im Tabellenfeld „Webseite“. In der Tabelle hat das Feld den Datentyp Text.

Auch im Formular gibt es ein Feld „WebSeite“, um anzuzeigen, welche Seite im Webbrowsersteuerelement angezeigt wird (auch im Textformat).



Nun die Formularprozeduren:Private Sub Form_Open(Cancel As Integer)

DoCmd.Maximize

End Sub





Private Sub Form_Current()

On Error GoTo Err_X

Dim X as String

X = Me!WebSeite



If X "" Then

ActiveXStr35.Navigate2 X

Else

‘Anzeige einer Fehlerseite

ActiveXStr35.Navigate2 "http://www.XYZ.de/Fehlerseite.html"

End If



Exit_X:

Exit Sub



Err_X:

If Err.Number = 5 Then GoTo Exit_X

MsgBox Err.Number & ", " & Err.Description

Resume Next

End Sub
Gruß Highnoon

Feedback ist die beste Möglichkeit zu sagen, ob die Antwort geholfen hat!

So lange man zum "Beenden" von Windows erst auf den Start-Button drücken muß,
braucht man sich über Bug's nicht zu wundern.

Aber: "Geht nicht" ist weder eine Fehlermeldung, noch ein Bug der MS-Software!

Access2003- (noch) mit DAO

geschrieben von Highnoon , 23.05.2006, 09:50 Uhr , 50 mal gelesen