Hi,Ganz hab ich Dich nicht verstanden,aber vielleicht hilft Dir das:'Deklarationsbereich'Klassenmodulvariablen:Dim pos As Byte'Damit man wieder ins aktuelle Feld zurückspringt:Dim actfld As String 'Ereignis bei Klick des Textfeldes:Private Sub Feld_Click()pos = Me!Feld.SelStart 'Position im Feld merkenEnd Sub'Schaltflächencode zum Einfügen:Private Sub Befehl_Click()'Aktuelles Feld merkenactfld = Screen.PreviousControl.NameMe!Feld.SetFocusMe!Feld.SelStart = posRunCommand acCmdPasteMe(actfld).SetFocusEnd SubHTHWalter Griesser
geschrieben von
Walter Griesser
,
13.09.1999, 22:29 Uhr
, 34 mal gelesen