Mit Doppelklick im ufo auf Datensatz verzweigen
Andreas Lange
es geht mal wieder um meine DB.
Also:
Ich habe in meiner DB u.a. ein Hauptformular ?Kunden?,
weiterhin ein Unterformular ?Anleitungen?. Schlï¿œsselspalten sind ?
Masch_ID?
Der ï¿œbersicht halber, weil mehrere Anleitungen auf eine Maschine zutreffen
kï¿œnnen, habe ich das Unterformular einmal als Einzelformular (auf dem sind
Schaltflï¿œchen und andere grafische Dinge untergebracht) und dann noch
einmal als Datenblatt gleich darunter angeordnet. Hier sehe ich dann
gleich die anderen Anleitungen, welche fï¿œr diese Maschine noch zutreffen,
aufgereiht.
Jetzt mï¿œchte ich realisieren, dass bei einem Doppleklick auf dem
betreffenden Datensatz ( Feldname ist ?Thema?) im unteren Formular
(Datenblatt), dieser Datensatz auch im oberen Einzelformular angezeigt
wird.
Wie muss ich diese Anweisung schreiben
Schon mal vielen Dank im Vorfeld
Andreas
Karl Donaubauer
> Ich habe in meiner DB u.a. ein Hauptformular ?Kunden?,
> weiterhin ein Unterformular ?Anleitungen?. Schlï¿œsselspalten sind ?
> Masch_ID?
> Der ï¿œbersicht halber, weil mehrere Anleitungen auf eine Maschine zutreffen
> kï¿œnnen, habe ich das Unterformular einmal als Einzelformular (auf dem sind
> Schaltflï¿œchen und andere grafische Dinge untergebracht) und dann noch
> einmal als Datenblatt gleich darunter angeordnet. Hier sehe ich dann
> gleich die anderen Anleitungen, welche fï¿œr diese Maschine noch zutreffen,
> aufgereiht.
> Jetzt mï¿œchte ich realisieren, dass bei einem Doppleklick auf dem
> betreffenden Datensatz ( Feldname ist ?Thema?) im unteren Formular
> (Datenblatt), dieser Datensatz auch im oberen Einzelformular angezeigt
> wird.
>
> Wie muss ich diese Anweisung schreiben
Deine Erlï¿œuterung ist etwas verwirrend, nicht nur wegen der vielen
Fragezeichen. Falls ich richtig verstehe, willst du im Datenblatt-UFo
auf das Textfeld "Thema" doppelklicken, und dadurch im Einzel-UFo
(Anleitungen?) zum Datensatz mit der gleichen Masch_ID (oder dem
gleichen Thema?) wechseln.
Der VBA-Code in der Ereignisprozedur "Beim Doppelklick" des
Textfeldes kï¿œnnte ungefï¿œhr so aussehen wie in:
www.donkarl.com?FAQ4.4
Du musst nur die richtige Syntax fï¿œr UFos beachten. Die findest du in
www.donkarl.com?FAQ4.2
Das Ergebnis wï¿œre ca.
'*********
Dim rs As DAO.Recordset
Set rs = Me.Parent!Anleitungen.Form.RecordsetClone
rs.FindFirst "Masch_ID = " & Me!Masch_ID
If Not rs.NoMatch Then
Me.Parent!Anleitungen.Form.Bookmark = rs.Bookmark
End If
Set rs = Nothing
'*********
Wenn's das nicht ist, solltest du nochmal versuchen, die Situation
zu schildern und dabei alle relevanten Objektnamen (ohne
Fragezeichen) nennen.
--
HTH
Karl
********* Ich beantworte keine Access-Fragen per Email. *********
Access-FAQ: http://www.donkarl.com
3. SQL Server-Entwickler-Konferenz - Nï¿œrnberg im Mai
Andreas Lange
danke an dieser Stelle fï¿œr deine Antwort.
Also das mit den Fragezeichen sehe ich jetzt auch. War nicht gewollt,
sondern sind einfach nur Formatierungsmacken. Habe den Text auf Arbeit
geschrieben und hier nur eingefï¿œgt. Dabei muss das Ganze passiert sein.
Die Fragezeichen sind nichts anderes als Anfï¿œhrungszeichen, die aber
ignoriert werden kï¿œnnen, da sie nicht Bestandteil des Namens sind. SORRY.
ï¿œndert sich dadurch jetzt deine Anweisung?
Im ï¿œbrigen hast du meine Schilderung des Problems dennoch richtig gedeutet.
In jedem Fall werde ich ï¿œbers Wochenende ein wenig weiter an meiner DB
basteln. Mal sehen.
Andreas
Andreas Lange
> Deine Erlï¿œuterung ist etwas verwirrend, nicht nur wegen der vielen
> Fragezeichen. Falls ich richtig verstehe, willst du im Datenblatt-UFo
> auf das Textfeld "Thema" doppelklicken, und dadurch im Einzel-UFo
> (Anleitungen?) zum Datensatz mit der gleichen Masch_ID (oder dem
> gleichen Thema?) wechseln.
>
> Der VBA-Code in der Ereignisprozedur "Beim Doppelklick" des
> Textfeldes kï¿œnnte ungefï¿œhr so aussehen wie in:
> www.donkarl.com?FAQ4.4
>
> Du musst nur die richtige Syntax fï¿œr UFos beachten. Die findest du in
> www.donkarl.com?FAQ4.2
>
> Das Ergebnis wï¿œre ca.
> '*********
> Dim rs As DAO.Recordset
> Set rs = Me.Parent!Anleitungen.Form.RecordsetClone
>
> rs.FindFirst "Masch_ID = " & Me!Masch_ID
> If Not rs.NoMatch Then
> Me.Parent!Anleitungen.Form.Bookmark = rs.Bookmark
> End If
>
> Set rs = Nothing
> '*********
>
> Wenn's das nicht ist, solltest du nochmal versuchen, die Situation
> zu schildern und dabei alle relevanten Objektnamen (ohne
> Fragezeichen) nennen.
>
Hallo Karl
Irgendwie bin ich zu doof oder ich kann nicht deuten was du vorgeschlagen
hast bzw. nicht zuordnen was in donkarls access Seiten steht. Jedenfalls
bekomme ich es nicht hin. Vielleicht schildere ich das Ganze noch einmal
ganz konkret.
Mein Hauptformular heisst Anleitungen. Das erste Ufo heisst Anleitung
Unterformular. Dieses ufo ist ein Einzelformular. (Hier wird also jeweils
der erste Datensatz angezeigt, der sich auf eine Maschine im Hauptformular
bezieht. Es gibt aber mehrere Anleitungen, die sich auf eine Maschine
beziehen kï¿œnnen. Eine Liste dieser Anleitungen sehe ich, wenn ich z.Bsp.
aus dem Einzelformular eine Datenblattansicht machen wï¿œrde. Da mehrere
Felder vorhanden - nicht besonders ï¿œbersichtlich.)
Deshalb habe ich ein zweites ufo mit Namen Anleitungen Unterformular1
unter dem ersten ufo platziert. Das zweite ufo wird in der
Datenblattansicht gezeigt und zeigt alle Anleitungen im Bezug zur
betreffende Maschine im Hauptformular. Datensatzquelle beider ufo`s ist
jeweils die Tabelle Anleitung.
Beide ufo?s sind jeweils ï¿œber das Verknï¿œpfungsfeld Masch_ID zum
Hauptformular verbunden. Jetzt mï¿œchte ich erreichen, dass mit einem
Doppelklick auf auf das Feld Themabeschreibung des jeweiligen Datensatzes
im ufo Anleitungen Unterformular1, dieser Datensatz dann im ufo Anleitung
Unterformular angezeigt wird, also im oberen Einzelformular.
Dadurch hï¿œtte ich dann die Mï¿œglichkeit weitere Informationen zum
jeweiligen Datensatz ￜber Schaltflￜchen o.ￜ. im Einzelformular abzurufen.
Ist halt ï¿œbersichtlicher.
Geht das denn alles so zu machen? Wie kann ich das realisieren? Ich hoffe
dieses mal alles ï¿œbersichtlich geschildert zu haben.
Vielen Dank im voraus
Andreas
Karl Donaubauer
> ...
> Mein Hauptformular heisst Anleitungen. Das erste Ufo heisst Anleitung
> Unterformular. Dieses ufo ist ein Einzelformular. (Hier wird also jeweils
> der erste Datensatz angezeigt, der sich auf eine Maschine im Hauptformular
> bezieht. Es gibt aber mehrere Anleitungen, die sich auf eine Maschine
> beziehen kï¿œnnen. Eine Liste dieser Anleitungen sehe ich, wenn ich z.Bsp.
> aus dem Einzelformular eine Datenblattansicht machen wï¿œrde. Da mehrere
> Felder vorhanden - nicht besonders ï¿œbersichtlich.)
> Deshalb habe ich ein zweites ufo mit Namen Anleitungen Unterformular1
> unter dem ersten ufo platziert. Das zweite ufo wird in der
> Datenblattansicht gezeigt und zeigt alle Anleitungen im Bezug zur
> betreffende Maschine im Hauptformular. Datensatzquelle beider ufo`s ist
> jeweils die Tabelle Anleitung.
> Beide ufo?s sind jeweils ï¿œber das Verknï¿œpfungsfeld Masch_ID zum
> Hauptformular verbunden. Jetzt mï¿œchte ich erreichen, dass mit einem
> Doppelklick auf auf das Feld Themabeschreibung des jeweiligen Datensatzes
> im ufo Anleitungen Unterformular1, dieser Datensatz dann im ufo Anleitung
> Unterformular angezeigt wird, also im oberen Einzelformular.
Es fehlt noch der Hinweis, woran man einen bestimmten Datensatz
in den UFos erkennt. Du brauchst zum Navigieren ein eindeutiges
Feld (am besten ein Primï¿œrschlï¿œsselfeld) in der Tabelle "Anleitung".
Hast du so etwas und wie heiï¿œt es? Ist es "Themabeschreibung"?
Besser wï¿œre so etwas wie ein Autowertfeld.
Ich nenne es hier im Beispiel mal "AnleitungId".
Weiï¿œt du grundsï¿œtzlich, wie man VBA-Code benï¿œtzt?
Wenn ja, dann kopiere den folgenden Code mal in die Ereignisprozedur
"Beim Doppelklick" deines Steuerelementes "Themabeschreibung"
im Datenblatt-UFo, also dort, wo du die Aktion auslï¿œsen willst:
'*********
Dim rs As DAO.Recordset
Set rs = Me.Parent![Anleitung Unterformular].Form.RecordsetClone
rs.FindFirst "AnleitungId = " & Me!AnleitungId
If Not rs.NoMatch Then
Me.Parent!Anleitungen.Form.Bookmark = rs.Bookmark
End If
Set rs = Nothing
'********
Wenn das nicht klappt, dann schildere genau, wo und wie es nicht
funktioniert und nenne ggf. die Fehlermeldung, -nummer und -position.
BTW Deine UFo-Namen sind nicht optimal. Du solltest in allen
Objektnamen Sonder- und Leerzeichen vermeiden.
s.a. www.donkarl.com?FAQ1.5
Andreas Lange
Ich habe solch ein Feld in meiner Tabelle Anleitung und es heisst
Anleitung_ID
>
> Besser wï¿œre so etwas wie ein Autowertfeld.
> Ich nenne es hier im Beispiel mal "AnleitungId".
>
> Weiï¿œt du grundsï¿œtzlich, wie man VBA-Code benï¿œtzt?
> Wenn ja, dann kopiere den folgenden Code mal in die Ereignisprozedur
> "Beim Doppelklick" deines Steuerelementes "Themabeschreibung"
> im Datenblatt-UFo, also dort, wo du die Aktion auslï¿œsen willst:
Habe ich getan und zwar im 2. Ufo AnleitungUnterformular1
Im ï¿œbrigen habe ich deinen Hinweis beherzigt und das Freizeichen im
Unterformularnamen weggelassen. Ich habe also diese Namen geï¿œndert.
Danach habe ich den Code ein wenig geï¿œndert.
Private Sub Themabeschreibung_DblClick(Cancel As Integer)
Dim rs As DAO.Recordset
Set rs = Me.Parent![Anleitung Unterformular].Form.RecordsetClone
rs.FindFirst "Anleitung_Id = " & Me!Anleitung_ID
If Not rs.NoMatch Then
Me.Parent!Anleitung.Form.Bookmark = rs.Bookmark
End If
Set rs = Nothing
'********
End Sub
Wenn ich jetzt im Feld Themabeschreibung des Unterformulars
AnleitungenUnterformular1eines Datensatzes doppelklicke sollte der
entsprechende Datensatz im ufo AnleitungenUnterformular erscheinen, statt
dessenerscheint noch folgender Fehler:
Laufzeitfehler 2465
Microsoft Office Access kann das in ihrem Ausdruck angesprochene Feld
Anleitungnicht finden.
Was sollte denn da jetzt stehen?
Andreas
>
> '*********
> Dim rs As DAO.Recordset
> Set rs = Me.Parent![Anleitung Unterformular].Form.RecordsetClone
>
> rs.FindFirst "AnleitungId = " & Me!AnleitungId
> If Not rs.NoMatch Then
> Me.Parent!Anleitungen.Form.Bookmark = rs.Bookmark
> End If
>
> Set rs = Nothing
> '********
>
> Wenn das nicht klappt, dann schildere genau, wo und wie es nicht
> funktioniert und nenne ggf. die Fehlermeldung, -nummer und -position.
>
> BTW Deine UFo-Namen sind nicht optimal. Du solltest in allen
> Objektnamen Sonder- und Leerzeichen vermeiden.
> s.a. www.donkarl.com?FAQ1.5
>
--
Erstellt mit Operas revolutionï¿œrem E-Mail-Modul: http://www.opera.com/mail/
Karl Donaubauer
> ...
> Habe ich getan und zwar im 2. Ufo AnleitungUnterformular1
> Im ï¿œbrigen habe ich deinen Hinweis beherzigt und das Freizeichen im
> Unterformularnamen weggelassen. Ich habe also diese Namen geï¿œndert.
>
> Danach habe ich den Code ein wenig geï¿œndert.
>
> Private Sub Themabeschreibung_DblClick(Cancel As Integer)
> Dim rs As DAO.Recordset
> Set rs = Me.Parent![Anleitung Unterformular].Form.RecordsetClone
>
> rs.FindFirst "Anleitung_Id = " & Me!Anleitung_ID
> If Not rs.NoMatch Then
> Me.Parent!Anleitung.Form.Bookmark = rs.Bookmark
> End If
>
> Set rs = Nothing
> '********
>
> End Sub
>
> Wenn ich jetzt im Feld Themabeschreibung des Unterformulars
> AnleitungenUnterformular1eines Datensatzes doppelklicke sollte der
> entsprechende Datensatz im ufo AnleitungenUnterformular erscheinen, statt
> dessenerscheint noch folgender Fehler:
>
> Laufzeitfehler 2465
> Microsoft Office Access kann das in ihrem Ausdruck angesprochene Feld
> Anleitungnicht finden.
>
> Was sollte denn da jetzt stehen?
Dim rs As DAO.Recordset
Set rs = Me.Parent!AnleitungenUnterformular.Form.RecordsetClone
rs.FindFirst "Anleitung_Id = " & Me!Anleitung_ID
If Not rs.NoMatch Then
Me.Parent!AnleitungenUnterformular.Form.Bookmark = rs.Bookmark
End If
Set rs = Nothing
--
Andreas Lange
vielen Dank nochmals. Jetzt hat es funktioniert.
Ein kleines Manko gibt es da zwar noch, aber vielleicht bekomme ich das
noch hin. Es mï¿œsste wohl nur noch die Bedingung eingefï¿œgt werden, dass
dieser Code nur dann ausgefï¿œhrt wird, wenn es auch tatsï¿œchlich einen
Datensatz gibt.
Denn wenn ich auf einen leeren Datensatz klicke, bzw. auf die Zeile eines
neuen Datensatzes, erhalte ich die Fehlermeldung:
Laufzeitfehler 3077
Syntaxfehler (fehlender Operator) in Ausdruck
Andreas
>> dessenerscheint noch folgender Fehler:
>>
>> Laufzeitfehler 2465
>> Microsoft Office Access kann das in ihrem Ausdruck angesprochene Feld
>> Anleitungnicht finden.
>>
>> Was sollte denn da jetzt stehen?
>
> Dim rs As DAO.Recordset
> Set rs = Me.Parent!AnleitungenUnterformular.Form.RecordsetClone
>
> rs.FindFirst "Anleitung_Id = " & Me!Anleitung_ID
> If Not rs.NoMatch Then
> Me.Parent!AnleitungenUnterformular.Form.Bookmark = rs.Bookmark
> End If
>
> Set rs = Nothing
>
--
Karl Donaubauer
>> ...
>> Dim rs As DAO.Recordset
>> Set rs = Me.Parent!AnleitungenUnterformular.Form.RecordsetClone
>>
>> rs.FindFirst "Anleitung_Id = " & Me!Anleitung_ID
>> If Not rs.NoMatch Then
>> Me.Parent!AnleitungenUnterformular.Form.Bookmark = rs.Bookmark
>> End If
>>
>> Set rs = Nothing
> Es mï¿œsste wohl nur noch die Bedingung eingefï¿œgt werden, dass
> dieser Code nur dann ausgefï¿œhrt wird, wenn es auch tatsï¿œchlich einen
> Datensatz gibt.
> Denn wenn ich auf einen leeren Datensatz klicke, bzw. auf die Zeile eines
> neuen Datensatzes, erhalte ich die Fehlermeldung:
>
> Laufzeitfehler 3077
> Syntaxfehler (fehlender Operator) in Ausdruck
Als 1. Zeile im Code:
If IsNull(Me!Anleitung_Id) Then Exit Sub
Andreas Lange
Andreas
>>
>> Laufzeitfehler 3077
>> Syntaxfehler (fehlender Operator) in Ausdruck
>
> Als 1. Zeile im Code:
>
> If IsNull(Me!Anleitung_Id) Then Exit Sub
>
--