Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Hi Dieter, nochmal den gewünschten Quelltext von gestern
Autor: Mike
Datum: 23.08.02 14:48
Hi Dieter, nochmal den Quelltext von gestern hab im Allgemeinteil der Form Private Db As Database Private Rs As Recordset und im Form-load Teil Set Db =DBEngine.OpenDatabase("f: echnikumRohstoffe.mdb") Set Rs = Db.OpenRecordset("Select * From Rohstoff", dbOpenDynaset) und im change Teil des Textfeldes Private Sub Text3_Change() Dim SQL As String Dim sName As String Dim sPos As Long With Text3 If Trim$(.Text) = "" Or .Tag = "NoAction" Then Exit Sub ' aktuelle Eingabeposition merken sPos = .SelStart 'Komma vorhanden? sName = .Text: SQL = "Hersteller LIKE '" & sName & "*'" End If ' Abfrage! Rs.FindFirst SQL If Not Rs.NoMatch Then ' Eintrag gefunden! .Tag = "NoAction" ' Vollständigen Namen in die TextBox schreiben .Text = Rs("Hersteller") .SelStart = sPos .SelLength = Len(.Text) - sPos .Tag = "" End If End With

Hi Dieter, nochmal den gewünschten Quelltext von gestern

94

Mike

23.08.02 14:48

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen