ник: час
Lukas......
Ну не из модуля формы........
-вызываем откуа придётся из подпрограмм из д\функций модуей из .....
При открытии формы - это однозначно, но в процессе работы........
Хотя конечно тебе видее - мне мож чё не догнать ....
Function Mesages(Soo As String) As String
On Error Resume Next
Mesages_String = Soo & "..." & Mesages_String
Mesages = Mesages_String
Dim frmCurrentForm As Form
Set frmCurrentForm = Screen.ActiveForm
Forms(frmCurrentForm.Name).Controls("MSG").Value = Mesages_String
End Function
|