Hallo
Ich möchte gerne in einem neuen Fenster per OptionsButton Daten erfassen und
diese wiederum im ersten Fenster weiter auswerten. Problem: Ich bekomme immer nur die Voreinstellungen übermittelt, aber leider nicht die per Click gewählten Einstellungen.
Gehe ich mit F8 durchs Programm, dann gehts los bei der ersten Sub bis Form2.Show, dann dort durch die Sub Form_Load von Form2 dann aber bei 'end Sub' springt es wieder zurück in die erste Form und erst am dort am Ende wird die Form2 dann tatsächlich gezeigt. Das aber anders gedacht gewesen von mir.
Ich dachte der Aufruf Form2.Show wäre sowas wie ein Sprung in eine Subroutine wo dann das aufrufende Programm wartet wird bis die Routine zuende ist und dann kommt der Sprung zurück und das aufrufende Programm geht weiter.
Vielleicht ist jemand so nett und erlöst mich von diesem Problem.
Vielen Dank im voraus
Hier ist mein Problem als Code:
Dim TerminTag, TerminMonat, TerminStunde, TerminMinute as Integer
Dim TerminString as String
Private Sub Command1_Click()
Form2.Show
DataVar1 = TerminString
End Sub
'Der Code von Form2:
Private Sub Command1_Click()
TerminString = TerminTag & TerminMonat & TerminStunde & TerminMinute
Unload Me
End Sub
Private Sub Form_Load()
TerminMinute = 0
TerminStunde = 0
TerminMonat = 0
TerminTag = 0
End Sub
Private Sub Option1_Click()
TerminStunde = 1
TerminTag = 1
TerminMonat = 1
TerminMinute = 1
End Sub
Ich möchte gerne in einem neuen Fenster per OptionsButton Daten erfassen und
diese wiederum im ersten Fenster weiter auswerten. Problem: Ich bekomme immer nur die Voreinstellungen übermittelt, aber leider nicht die per Click gewählten Einstellungen.
Gehe ich mit F8 durchs Programm, dann gehts los bei der ersten Sub bis Form2.Show, dann dort durch die Sub Form_Load von Form2 dann aber bei 'end Sub' springt es wieder zurück in die erste Form und erst am dort am Ende wird die Form2 dann tatsächlich gezeigt. Das aber anders gedacht gewesen von mir.
Ich dachte der Aufruf Form2.Show wäre sowas wie ein Sprung in eine Subroutine wo dann das aufrufende Programm wartet wird bis die Routine zuende ist und dann kommt der Sprung zurück und das aufrufende Programm geht weiter.
Vielleicht ist jemand so nett und erlöst mich von diesem Problem.
Vielen Dank im voraus
Hier ist mein Problem als Code:
Dim TerminTag, TerminMonat, TerminStunde, TerminMinute as Integer
Dim TerminString as String
Private Sub Command1_Click()
Form2.Show
DataVar1 = TerminString
End Sub
'Der Code von Form2:
Private Sub Command1_Click()
TerminString = TerminTag & TerminMonat & TerminStunde & TerminMinute
Unload Me
End Sub
Private Sub Form_Load()
TerminMinute = 0
TerminStunde = 0
TerminMonat = 0
TerminTag = 0
End Sub
Private Sub Option1_Click()
TerminStunde = 1
TerminTag = 1
TerminMonat = 1
TerminMinute = 1
End Sub