'...
'...
'...

'Form1.MDIChild = True!!!
Private Sub Form_Load()
Call Form1_modul(Me)'Sprachmodul aufrufen und ausgeben
End Sub
 
Private Sub Cmd_Form1_Click()
Dim oForm As New Form2
Set oForm = New Form2
 
With oForm
    .Show
End With
 
End Sub

'Form2.MDIChild = True!!!
Private Sub Form_Load()
Call Form2_modul(Me)'Sprachmodul aufrufen und ausgeben
End Sub
 
Private Sub cmd_form2_Click()
'So möchte ich dem/der Anwender/in indirekt dazu zwingen,
'dass er/sie den momentanen Datensatz abarbeitet.
Form3.Show vbModal
End Sub

'Form3.MDIchild = False
Private Sub Form_Load()
Dim T As String
 
Call Form3_modul(Me)'Sprachmodul aufrufen und ausgeben
 
End Sub
 
Private Sub Cmd_Form3_Click()
Dim oForm As Form2
Set oForm = Form2
 
T = Text1_form3.Text
 
'Hier möchte ich einfach, dass der eingenbene Text aus der Textbox der Form3
'in die Textbox der Form2 'übergeben' werden soll.
'Es taucht auch keine Fehlermeldung auf, aber es wird
'eine neue Form mit dem 'übergebenen' Text erzeugt.
'Dies war aber nicht mein Plan. Es soll sich
'keine weitere Form öffnen, sondern, der Text
'soll einfach übergeben werden. Und das ist mein Problem.
oForm.Text1_form2.Text = T
 
Unload Me
 
End Sub

'Die Texte werden ordnungsgemäß an die jeweiligen Formen übergeben.
'Hier ist also kein Fehler.
Public Function Form1_modul(oForm As Form1)
Dim Cmd_Form1$
 
Cmd_Form1$ = "Klick hier"
oForm.Cmd_Form1.Caption = Cmd_Form1$
End Function
 
Public Function Form2_modul(oForm As Form2)
Dim cmd_form2$
Dim Label1_form2$
 
Label1_form2$ = "Hier könnte ihr Text stehen"
oForm.Label1_form2.Caption = Label1_form2$
 
cmd_form2$ = "Überprüfen"
oForm.cmd_form2.Caption = cmd_form2$
End Function
 
Public Function Form3_modul(oForm As Form3)
Dim cmd_form3$
 
cmd_form3$ = "Klicke nochmal hier"
oForm.cmd_form3.Caption = cmd_form3$
End Function