General Hunter
Mitglied
Also ich habe ein Problem bei einem Programm. Ersteinmal die Funktion:
Eine option-box soll aktiviert werden, damit der weiter-button "enabled" wird.
Sobald man auf den Weiter-button klickt. Gelangt man zum nächsten Formular. Wenn ich in diesem Formular nun aber auf den zurück-button klicke und somit wieder zum 1. Formular gehe, soll der weiter-button immer noch "enabled" sein und die option-box aktiviert sein. Um das zu realisieren, habe ich eine öffentliche variable deklariert (zur).
Der Wert von zur wird verändert, sobald ich auf den zurück-button des 2. Formulars klicke. Und dieser veränderte Wert löst beim laden der 1. Form per If-Funktion aus, dass die eben genannten dinge "enabled" bzw. aktiviert sind.
MEin Problem ist jetzt nur, dass eigentlich alles funktioniert, aber erst beim 2. mal, wenn ich auf zurück klicke. Beim ersten mal, steht alles wieder auf den standart-Einstellungen...
Ich hoffe die erklärung hat geholfen. Hier noch der relevante Code:
Würde mich über Hilfe freuen.
Eine option-box soll aktiviert werden, damit der weiter-button "enabled" wird.
Sobald man auf den Weiter-button klickt. Gelangt man zum nächsten Formular. Wenn ich in diesem Formular nun aber auf den zurück-button klicke und somit wieder zum 1. Formular gehe, soll der weiter-button immer noch "enabled" sein und die option-box aktiviert sein. Um das zu realisieren, habe ich eine öffentliche variable deklariert (zur).
Der Wert von zur wird verändert, sobald ich auf den zurück-button des 2. Formulars klicke. Und dieser veränderte Wert löst beim laden der 1. Form per If-Funktion aus, dass die eben genannten dinge "enabled" bzw. aktiviert sind.
MEin Problem ist jetzt nur, dass eigentlich alles funktioniert, aber erst beim 2. mal, wenn ich auf zurück klicke. Beim ersten mal, steht alles wieder auf den standart-Einstellungen...
Ich hoffe die erklärung hat geholfen. Hier noch der relevante Code:
Code:
Private Sub Form_Load()
If frmindx1.zur = "OK" Then
optzu.Value = true
cmdweit.Enabled = true
End If
End Sub
Private Sub cmdzur_Click()
frmindx1.Show
frmindx1.zur = "OK"
Unload Me
End Sub
Würde mich über Hilfe freuen.