collapse

* Benutzer Info

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

* Wer ist Online

  • Punkt Gäste: 55
  • Punkt Versteckte: 0
  • Punkt Mitglieder: 0

Es sind keine Mitglieder online.

* Forenstatistik

  • stats Mitglieder insgesamt: 13808
  • stats Beiträge insgesamt: 64128
  • stats Themen insgesamt: 8676
  • stats Kategorien insgesamt: 5
  • stats Boards insgesamt: 16
  • stats Am meisten online: 415

Autor Thema: TreeView aus zwei Tabellen  (Gelesen 6660 mal)

Offline MaggieMay

  • Global Moderator
  • Access Guru
  • *****
  • Beiträge: 3107
Re: TreeView aus zwei Tabellen
« Antwort #15 am: März 29, 2015, 22:25:07 »
Hi,

das sollte sich dann wohl im Doppelklick-Ereignis des Nodes lösen lassen.
Die Informationen zum Öffnen bzw. Filtern des Formulars müssten dem Knoten entnommen werden können.
Freundliche Grüße
MaggieMay
 

Offline -Rockbiest-

  • Newbie
  • Beiträge: 43
Re: TreeView aus zwei Tabellen
« Antwort #16 am: März 30, 2015, 00:07:44 »
Das hab ich mir schon gedacht.
Ich bin halt leider ein Laie und suche mir alles zusammen.
Ich hab da mal folgenden Code zusammengesucht:

Private Sub tvwTreeView_DblClick()
 
  If Not tvwTreeView.SelectedItem Is Nothing Then
        DoCmd.OpenForm "frm_Bestellung", WhereCondition:="tbl_Bestellung_ID = " XXXX
  End If

End Sub

Die Bestellung im TreeView zeigt ja den Namen der Bestellung und wenn ich Doppelklick drauf mache, sollte er über den Key mir den Datensatz (heißt Bestellung im Formular "frm_Bestellung" anzeigen. Nur irgendwo muss ich ihm das ja sagen, dass er den Namen zu Berücksichtigen hat.

Die Frage ist in welcher Form und wo.... ich hab da den Ort mit "XXXX" vorgesehen"
 

Offline Wurliwurm

  • Access-Profi
  • **
  • Beiträge: 364
Re: TreeView aus zwei Tabellen
« Antwort #17 am: März 30, 2015, 09:30:11 »
Beim Doppelklick-Ereignis brauchst Du nicht mehr auf SelectedItem ungleich Nothing abfragen.

Ich hab Dir mal was reinkopiert:

Private Sub MenueBaum_DblClick()

  Dim strKey As String
  Dim strText As String
     
  Dim Node As Object
  Dim nodCurrent As MSComctlLib.Node
  Set nodCurrent = Node
 
  strKey = MenueBaum.SelectedItem.Key
  strText = MenueBaum.SelectedItem.text
 
  Set nodCurrent = Nothing

 msgbox strKey, vbInformation, strText
     
End Sub