title image


Smiley In etwa so:
Im Deklarationsbereich deines Formular-Klassenmoduls:

Dim AktSelStart As Integer, AktSelLength As Integer



Dann:





Private Sub DeinFeld_Enter()

If AktSelStart > 0 Then

Me!DeinFeld.SelStart = AktSelStart

Me!DeinFeld.SelLength = AktSelLength

End If

End Sub



Private Sub DeinFeld_Exit(Cancel As Integer)

On Error Resume Next

AktSelStart = Me!DeinFeld.SelStart

AktSelLength = Me!DeinFeld.SelLength

End Sub



Private Sub ButtonXY_Click()

On Error Resume Next

'Test:

If Mid(Me!DeinFeld, AktSelStart + 1, AktSelLength) <> "" Then _

MsgBox Mid(Me!DeinFeld, AktSelStart + 1, AktSelLength)

'bzw:

'VariableXY = Mid(Me!DeinFeld, AktSelStart + 1, AktSelLength)

Me!DeinFeld.SetFocus

End Sub





Code eingefügt mit Syntaxhighlighter 2.1




Gruss aus dem (wilden) Süden ;-) Karl-Heinz

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: