Office: (Office 2003) Formular per Hyperlink öffnen,aber wie?

oskar68 · 17. November 2009

Heu,

weiß schon, daß es den Befehl "DoCmd.OpenForm" gibt, nehme ich auch normalerweise her.

Aber es gibt auch die Möglichkeit eine Tabelle mit Hyperlinks (=Felddatentyp)anzulegen, und die könnte man als Datenherkunft für eine Combobox in einem Formular verwenden, um wiederum andere Formulare zu öffen.

Ich habe mehrere Einträge in diese Tabelle gemacht, und wollte sie nun bearbeiten (rechte Maustaste; Hyperlink bearbeiten).

Wie muß der Pfad aussehen, damit ein Formular in der gleichen Datenbank angesprochen wird?

Ich habe eine alte Tabelle, dort gibt es solche Hyperlinks, aber wenn ich auf bearbeiten gehe, um mir den Pfad anzusehen, steht da nichts drin. Und im Forum oder in Google finde ich nichts.

Hintergrund meiner Anfrage: Ich möchte gerne als Mauszeiger die Pfote, wenn ich auf einen Eintrag in der Combobox gehe.

Gruß
Oskar

:)

User · 19. November 2009

Hallo,
warum der Umweg über eine Tabelle?
Du könntest die Formulare direkt auslesen und in einer Listbox
darstellen und z.B. per doubleClick darauf öffnen

Code:

Option Compare Database
Option Explicit
Public Check As Integer

Private Sub FormulareAuslesen_Click()
Dim Form As Object
Dim test As String
For Each Form In Application.CurrentProject.AllForms
test = test & ";" & Form.Name
Next
Me!LstListenfeld.RowSourceType = "Value List"
Me!LstListenfeld.RowSource = Mid(test, 2)
Check = 1
End Sub

Private Sub TabellenAuslesen_Click()
Dim TabListe() As String, i As Integer
Dim AktTable As DAO.TableDef
Dim Liste As String
ReDim TabListe(0)
For Each AktTable In CurrentDb.TableDefs
If AktTable.Attributes = 0 Then
'Anzeigen nur bestimmter Tabellen, deren Namen mit "TAB" anfangen
'If Mid(AktTable.Name, 1, 3) = "TAB" Then
ReDim Preserve TabListe(UBound(TabListe) + 1)
TabListe(UBound(TabListe) - 1) = AktTable.Name
End If
'End If
Next AktTable
For i = 0 To UBound(TabListe) - 1
Liste = Liste & ";" & TabListe(i)
Next i
Me!LstListenfeld.RowSourceType = "Value List"
Me!LstListenfeld.RowSource = Mid(Liste, 2)
Check = 2
End Sub

Private Sub AbfragenAuslesen_Click()
Dim Suche As String
Dim QryListe() As String, i As Integer
Dim Aktquery As DAO.QueryDef
Dim Liste As String
ReDim QryListe(0)
For Each Aktquery In CurrentDb.QueryDefs
'Systemtabellen ausblenden
If Left(Aktquery.Name, 1) "~" Then
ReDim Preserve QryListe(UBound(QryListe) + 1)
QryListe(UBound(QryListe) - 1) = Aktquery.Name
End If
Next Aktquery
For i = 0 To UBound(QryListe) - 1
Liste = Liste & ";" & QryListe(i)
Next i
Me!LstListenfeld.RowSourceType = "Value List"
Me!LstListenfeld.RowSource = Mid(Liste, 2)
Check = 3
End Sub

Private Sub BerichteAuslesen_Click()
Dim report As Object
Dim test As String
For Each report In Application.CurrentProject.AllReports
test = test & ";" & report.Name
Next
Me!LstListenfeld.RowSourceType = "Value List"
Me!LstListenfeld.RowSource = Mid(test, 2)
Check = 4
End Sub

Private Sub LstListenfeld_DblClick(Cancel As Integer)
Dim i As Integer
Select Case Check
Case 1
For i = 0 To Me!LstListenfeld.ListCount - 1
If Me!LstListenfeld.Selected(i) = True Then
DoCmd.OpenForm Me!LstListenfeld
End If
Next i
Case 2
For i = 0 To Me!LstListenfeld.ListCount - 1
If Me!LstListenfeld.Selected(i) = True Then
DoCmd.OpenTable Me!LstListenfeld
End If
Next i
Case 3
For i = 0 To Me!LstListenfeld.ListCount - 1
If Me!LstListenfeld.Selected(i) = True Then
DoCmd.OpenQuery Me!LstListenfeld
End If
Next i
Case 4
For i = 0 To Me!LstListenfeld.ListCount - 1
If Me!LstListenfeld.Selected(i) = True Then
DoCmd.OpenReport Me!LstListenfeld, acViewPreview
End If
Next i
Case Else
MsgBox "nix"
End Select
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

mfg
derArb

oskar68 · 19. November 2009

Hallo Arb,

daß man Formulare nicht so öffnet, wie ich es beschrieben habe ist mir ja klar, und mache ich auch normalerweise nicht.

Es ist auch nicht besonders tragisch, mir ging es rein nur um "Optik".
Wollte einfach nur eine Startseite mit Kopfleiste, in der mehrere Aktionen ausgeführt werden können (Datei | Bearbeiten | Extras | usw.), und das der Mauszeiger zu einer Hand wird, wenn man auf die jeweilige Aktion geht.

Das geht, soviel weiß ich. Ich kenne nur die Pfadangabe nicht. Normalerweise gibt man eine URL ein. Und ein Beispiel, von dem ich abschauen könnten habe ich nicht.

Gruß
Oskar

Josef P. · 19. November 2009

Das mit dem Mauszeiger könntest du so realisieren:
API: Displaying a custom Mouse icon

Und als Reaktion auf das Ereignis "MouseMove":
Code:

Private Sub DeinSteuerelement_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
MouseCursor IDC_HAND
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

oskar68 · 19. November 2009

Heu Josef,

super, gleich ausprobiert und funzt. Schätze ich hätte das Ganze abkürzen, und gleich nach einem Mauszeiger fragen können ;-)

Danke und Gruß
Oskar

Office: (Office 2003) Formular per Hyperlink öffnen,aber wie?

Formular per Hyperlink öffnen,aber wie?

Formular per Hyperlink öffnen,aber wie?

Formular per Hyperlink öffnen,aber wie?

Formular per Hyperlink öffnen,aber wie? - Similar Threads - Formular Hyperlink öffnen

Suchfeld in Formular

Formularsteuerelement Textfeld: Selbe Formatierung wie verlinkte Zelle?

Word Steuerelemente/Formular erstellen

Aktuelles Datum und Uhrzeit in Formular

Kein Hyperlink bei gesichertem Formular?

Hyperlink bei geschützten Online-Formularen

Erhalten von Hyperlinks in Word-Formularen