title image


Smiley A97:Ufo-Wechsel mit Datensatzpositionierung
Guten Abend,

ich wechsle mittels Schalter im Hauptformular (dient nur als Träger des Ufos und einiger Schalter)

in einem Ufo-Steuerelement zwischen Listenansicht (sozusagen Datenkurzfassung)

und Einzelansicht (kompletter Datensatz).

Das funktioniert auch.

Wie stelle ich es aber an, das der in der Liste markierte Datensatz nach dem Wechsel

auch direkt in der Einzelansicht angezeigt wird und bei Rückkehr zur Liste dort wieder ausgewählt ist?

Ein eindeutiges Feld wäre z.b. TID



Der Wechsel-Code sieht so aus:



Private Sub btnWechsel_Click()



If Me!TContainer.SourceObject = "sfrmTListe" Then

Me!TContainer.SourceObject = "sfrmTEinzel"

Me!btnWechsel.Caption = "Listenanzeige"

Else

Me!TContainer.SourceObject = "sfrmTEinzel"

Me!TContainer.SourceObject = "sfrmTListe"

Me!btnWechsel.Caption = "Einzelanzeige"

End If



End Sub



Gruß Hans



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: