Tabulator in Textfeld einfügen mit ACCESS97

[Rainer Merklein]

Hallo Leute,

ist es möchglich in einem lägeren Textfeld einen Text--> Tabulator--> Text
einzufügen??

--
mfg
Rainer
rainer....@de.bosch.com

[Dietmar Echterling]

In einem Textfeld meines Erachtens nicht, aber versuch´s mal mit einem
Memo-Feld.....

Dietmar

Rainer Merklein <rainer....@de.bosch.com> schrieb in im Newsbeitrag:
01bef06c$978a73c0$4e6e4284@ba110078...

[Helmut Riedel]

Hallo Rainer,

wenn folgende Prozeduren verwendet "Ja"

1. Unter 'Module' folgende Funktion eintragen:
==========================================
Option Compare Database
Option Explicit

' Die Funktion Tabsprung ermöglicht die Verwendung von Tabulatoren in Text
und Memofeldern
' Der Tabulatorsprung wird bei Tastenkombination Shift+Tab ausgeführt !
' Tab wird nomalerweise verwendet um zum nächsten Eingabefeld zu springen.

' Aufruf:
' Tabsprung Textfeldname, Tabulatorabstand, Tastencode, Shiftstatus

Public Function Tabsprung(vtext As Variant, TabWide As Integer, KeyCode As
Integer, Shift As Integer)

Dim i As Integer, n As Integer

If KeyCode = 9 And Shift = 1 Then ' wird wirksam bei Shift+Tab
If IsNull(vtext.Text) Or IsEmpty(vtext.Text) Then
n = 0
Else
' letzte Zeilenschaltung suchen und Länge der letzten eingegebenen Zeile
' bestimmen !
n = InStr(1, vtext.Text, Chr(13) + Chr(10), vbBinaryCompare)
i = n + 1
While n <> 0
i = n + 1
n = InStr(n + 1, vtext.Text, Chr(13) + Chr(10), vbBinaryCompare)
Wend
n = (Len(vtext.Text) - i)
End If
' Anzahl der einzufügenden Leerzeichen bis zum nächsten Tab bestimmen
i = TabWide - (n Mod TabWide) ' TabWide - Tabulatorschrittweite
KeyCode = 32 ' Leerzeichen
' Leerzeichen senden
For n = 1 To (i - 1)
SendKeys " ", False
Next n
Tabsprung = KeyCode
End If

End Function

Im Formular unter Feldeigenschaft "bei Taste ab" Ereignisprozedur auswählen
und
folgenden Quelltext (Aufruf der Funktion Tabsprung) einfügen bzw. anpassen:

Private Sub text1_KeyDown(KeyCode As Integer, Shift As Integer)
Tabsprung text1, 8, KeyCode, Shift
End Sub

mfg
Helmut

P.S. Beispieldatenbank TABinSTOP kommt per E-Mail.