Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: nochmal zu comboboxen
Autor: Heiko
Datum: 24.06.03 13:52
Mir ist nicht ganz klar, was gemacht werden soll Private Sub cboRevier_Change() Dim dbFile As String Dim SQL As String Besser SQL global definieren Dim Rs2 As Recordset dbFile = App.Path + "\ZAV.MDB" Geht das? Nimm statt + lieber & Set Db = Workspaces(0).OpenDatabase(dbFile, False, False) SQL = "SELECT * FROM Orte" Okay,hier wird ein SQL-Befehl zusammengebaut, der alles aus Orte ausliest Set Rs2 = Db.OpenRecordset(SQL) Okay, hier wird der obige SQL-Befehl ausgeführt If cboRevier.Text = cboRevier.Text Then Warum? Ist doch immer True! Die If-Then-Anweisung kann weg SQL = "SELECT * FROM Orte WHERE Orte = '" & cboRevier.Text & "'" Warum hier? Diese Sql-Anweiseung wird doch nirgends ausgeführt. Wenn sie Sinn machen soll, dann for die Zeile Set Rs2=... End If lblReviernr.Caption = cboRevier.Text Das sollte geklappt haben. Oder? End Sub Sub cboRevierFüllen() Dim dbFile As String Dim SQL As String Dim Rs2 As Recordset dbFile = App.Path + "\ZAV.MDB" Set Db = Workspaces(0).OpenDatabase(dbFile, False, False) SQL = "SELECT * FROM Orte ORDER BY Orte" Hier hast du eine SQL-Anweisung, die halt alles aus Orte liest. Da kommt nichts spezielles. Definiere besser eine globale Variable strSQL, welche dann in der Funktion oben mit den Werten belegt wird. Dann entfällt die Zeile hier. Set Rs2 = Db.OpenRecordset(SQL) If Rs.RecordCount > 0 Then While Not Rs2.EOF With cboRevier .AddItem Rs2("Orte") End With Rs2.MoveNext Wend End If Db.Close End Sub Probiers jetzt mal damit. Sollte etwas besser funktionieren

nochmal zu comboboxen	469	hallmi	24.06.03 10:22
Re: nochmal zu comboboxen	321	Heiko	24.06.03 10:37
Re: nochmal zu comboboxen	357	hallmi	24.06.03 13:23
Re: nochmal zu comboboxen	349	Heiko	24.06.03 13:52
Re: nochmal zu comboboxen	322	hallmi	24.06.03 20:33
Re: nochmal zu comboboxen	350	Heiko	25.06.03 08:54

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