Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Bitte helft mir !!!!!!!!!!!!!!!!!!!!!!!!!
Autor: Ralf
Datum: 13.08.01 13:23
Hallo, probiere es mal mit DAO und nicht mit ADO, als Datenbank habe ich eine Access Datenbank zugrunde gelegt In Deine Form schreibst Du folgenden Code: Option Explicit Dim dbFile As String Dim DB As Database Dim Table As Recordset Private Sub Form_Load() ' Pfad zur Datenbank dbFile = App.Path + "DeineDatenbank.mdb" ' Datenbank und Tabelle öffnen Set DB = Workspaces(0).OpenDatabase(dbFile, False, False) Set Table = DB.OpenRecordset("Artikel") End Sub Dann Schreibst Du für Dein Textfeld: ' Textfeld-KeyDown Ereignis Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then SucheArtikel End Sub Damit sagst du dem Textfeld, wenn es den Fokus hat, das es zur Prozedur SucheArtikel gehen soll, (es sollte natürlich auch eine Entsprechende Artikelnr. vorhanden sein Nun zur Prozedur Public Sub SearchKunde() Table.Index = "Artikelnummer" Table.Seek "=", Text1.Text If Not Table.NoMatch Then Text2.Caption = FeldInhalt(Table("Artikelbezeichnung") ..... Else MsgBox "Artikel nicht vorhanden" End If Set Table=Nothing End Sub So müsste es funktionieren Gruss Ralf

Bitte helft mir !!!!!!!!!!!!!!!!!!!!!!!!!	63	m@c	13.08.01 10:07
Re: Bitte helft mir !!!!!!!!!!!!!!!!!!!!!!!!!	44	Ralf	13.08.01 13:23

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