vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
SEPA-Dateien erstellen inkl. IBAN-, BLZ-/Kontonummernprüfung  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fortgeschrittene Programmierung
Re: Problem mit Index einer Datentabelle 
Autor: Cyrano
Datum: 13.03.02 12:36

Hi,

also hier ein der Code:
ich öffne die Datenbank einmal für die Suche und einmal mit Data1, damit die DBCombo gefüllt wird.
Vielleicht macht das ja Probleme.

Private Sub Form_Load()

'Druckereidatendank öffnen
dbFile_druckerei = App.Path + "druckerei.mdb"
Set db_druckerei = Workspaces(0).OpenDatabase(dbFile_druckerei, False, False)
Set Tabelle_druckerei = db_druckerei.OpenRecordset("tbl_Druckerei")

'Datensteuerelement initialisieren
datDruckerei.DatabaseName = App.Path + "druckerei.mdb"
datDruckerei.RecordSource = "tbl_Druckerei"
cboDruckerei.ListField = "Anzeige"
cboDruckerei.BoundColumn = "Name"
cboDruckerei.DataField = "Anzeige"
End Sub

Private Sub cboDruckerei_Change()
SuchText = cboDruckerei.BoundText

With Tabelle_druckerei

'aktiver Index
.Index = "Name"

'Suchroutine
.Seek "=", SuchText
If Not .NoMatch Then
lblDName.Caption = FeldInhalt(.Fields("Name"))
lblDzHD.Caption = FeldInhalt(.Fields("DzHd"))
lblDStrasse.Caption = FeldInhalt(.Fields("DStrasse"))
lblDPLZOrt.Caption = FeldInhalt(.Fields("PLZ_Ort"))
Else
MsgBox ("Fehler in der Adressauswahl!"), vbCritical
End If
End With
End Sub

Grüße, Cyrano
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Problem mit Index einer Datentabelle116Cyrano13.03.02 11:28
Re: Problem mit Index einer Datentabelle277ModeratorDieter13.03.02 11:39
Re: Problem mit Index einer Datentabelle91Cyrano13.03.02 11:42
Re: Problem mit Index einer Datentabelle291ModeratorDieter13.03.02 12:31
Re: Problem mit Index einer Datentabelle96Cyrano13.03.02 12:36
Hmm....353ModeratorDieter13.03.02 12:48
Re: Hmm....99Cyrano13.03.02 12:59
Und was sagt und das...280ModeratorDieter13.03.02 13:06
Re: Und was sagt und das...86Cyrano13.03.02 13:28
Hm.......92Cyrano13.03.02 13:35
Re: Hm.......282ModeratorDieter13.03.02 13:56
Fehler behoben93Cyrano13.03.02 14:17

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übersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel