Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Options mit Checkboxen
Autor: Caddy
Datum: 18.07.03 13:19
Das klappt so nicht. Ich mach das so: Private Sub Form_Load() n = 0 Set Db = Workspaces(0).OpenDatabase(Video.CommonDialog1.FileName, False, False) For Each TabDef In Db.TableDefs If UCase$(Left$(TabDef.Name, 4)) <> "MSYS" Then n = n + 1 Load Option1(n) Option1(n).Left = 1500 Option1(n).Top = n * 500 Option1(n).Visible = True Option1(n).Caption = TabDef.Name End If Next End Sub und dann klick ich auf einen dieser Option Button, um mir die Felder anzeigen zu lassen: Private Sub Option1_Click(Index As Integer) t = 1 For Each oField In Db.TableDefs(Option1(n).Caption).Fields Load Check1(t) Check1(t).Left = 1000 Check1(t).Top = t * 500 Check1(t).Visible = True Check1(t).Caption = oField.Name t = t + 1 Next End Sub Beim ersten klappt es ja auch, er zeigt sie mir direkt an, doch wenn ich auf einen anderne Option Button klicke, kommt die Fehlermeldung...(s.o)

Options mit Checkboxen	455	Caddy	18.07.03 05:06
Re: Options mit Checkboxen	309	dbayer	18.07.03 06:38
Re: Options mit Checkboxen	203	Dietmar	18.07.03 09:04
Re: Options mit Checkboxen	211	Caddy	18.07.03 13:19
Re: Options mit Checkboxen	220	dbayer	18.07.03 13:35
Re: Options mit Checkboxen	212	Dietmar	18.07.03 17:41

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