Textfeld aktualisieren ?

[asiat]

Hallo

Mein Problem:

ich habe zwei Textfelder Name: Text1  und Text2. Wenn ich im Feld Text1 was eintippe dann soll gleichzeitig dasselbe auch im Text2 stehen.

Ich habe schon eine Lösung die aber nicht so toll funktioniert.

Private Sub Text1_Change()
Form.Recalc
Me.Text1.SelStart = Len(Me.Text1)
Me.Text2 = Me.Text1
End Sub

Ich kann z.B. kein Lerrzeichen setzen.

Kennt vielleicht jemand eine bessere Lösung ?

[MzKlMu]

Hallo,
merkwürdiges Vorhaben, zu den gleichen Text in 2 Feldern, zu was soll das gut sein?

Code [Auswählen] Erweitern

Private Sub Text1_Change()
  Me.Recalc
  Me!Text1.SelStart = Len(Me!Text1.Text)
  Me!Text2 = Me!Text1.Text
End Sub

Ergänze mit der Eigenschaft .Text.
Das Recalc dürfte überflüssig sein, bin aber nicht sicher.

PS:
Es ist übrigens unerwünscht die gleichen Fragen in mehreren Foren gleichzeit zu stellen. Das kannst Du in den Regeln nachlesen.

[asiat]

fürs zwei mal posten sorry werde ich mir merken.

wie sinnlos das auch ist, ich habe später was damit vor.

Dein Forschlag liefert genau das was ich haben will, ohen  Me.Recalc !!!

vielen dank fürs schnelle antworten

[MzKlMu]

Hallo,

ich habe später was damit vor.

Egal was Du vorhast, Du brauchst es nicht, ich würde darauf wetten.  

[asiat]

 
Weil du so neugierig bist

Private Sub Nachname_Change()

    Form_frm_eingabe_unterformular.RecordSource = "SELECT * FROM tbl_Kontakt WHERE Nachname LIKE '" & Me.Nachname.Text & "*'"

End Sub

Die Eigenschaft .Text hat mir gefehlt bei dieser abfrage.
Damit wollte ich erreichen, gleich während der eingabe unten die tabelle zu filtern.

[database]

Hallo,

dir ist aber schon klar, dass die Prozedur bei JEDEM Tastendruck ausgeführt wird?
Meinst du nicht, dass das ein bissl ressourcenintensiv sein wird?

[asiat]

das habe ich mir schon gedacht aber der "Kunde" für den ich die db erstelle möchte das unbeding so.

er hat über 20000 Datensätze, meinst du es läuft dann nicht so gut ?

kennst du vielleicht einen generator prog Das mir beispieldaten generieren kann ?.

[accessundich]

Vielleicht hilft Dir das ja weiter:
http://www.access-im-unternehmen.de/index1.php?id=300&BeitragID=745

Viel Erfolg
Andi

P.S.: Ansonsten eine kleine Funktion schreiben und die relevanten Felder mit Nonsens füllen.

[database]

Hallo,

meinst du es läuft dann nicht so gut

ich bin mir da sogar ziemlich sicher - bei jedem Tastendruck 20000 DS auf Relevanz prüfen ist schon ein Hammer.

bezgl Generator siehe Antwort von Andi - mehr habe ich da auch nicht zu bieten.

[asiat]

Andi
vielen Dank für deinen Link, hat mir sehr geholfen

database
erstaunlicherweise funktionier die db mit 50000 Datensätzen sehr gut.
der unterformular wird sehr gut filtriert

[database]

Hallo,

naja, wenn du mit der Geschwindigkeit zufrieden bist ....

Threads bitte Immer im ERSTEN Beitrag auf gelöst setzen - damit erscheint das 'gelöst'-Icon auch in der Übersichtsliste - DDANKE