DIM bDialogOpened as Boolean
 
' Form 1 <-- hat jetzt ein label und ein commandbutton
Private sub command1_click()
    bDialogOpened = true
    DoCmd.OpenForm "Form2", acNormal, , , acReadOnly
End sub
 
Private Sub Form_activate()
    bDialogOpened = false
    refresh2
End sub
 
Public sub refresh2() ' 2 weils ja schon refresh gibt
   label1.value = "blablabla"
End sub
 
 
'form 2 <-- hat nur nen cmd
private sub command2_click()
docmd.close
' hier is noch ne modul-funktion die über api und handle von form1, form1 
' wieder activiert
end sub