ник: час
На всех формах (почти) имеется поле - MSG
Все сообщения (Soo As String) коои выдаёт программа вначале попадают в функцию
Function Mesages(Soo As String) As String
Mesages_String = Soo & "..." & Mesages_String
Mesages = Mesages_String
Dim frmCurrentForm As Form
Set frmCurrentForm = Screen.ActiveForm
frmCurrentForm.Name
'!MSG = Mesages_String
End Function
|
как это сообщение передать в этой функции в активную форму и в её поле MSG
поле скорее всего не активно...
Ды точно не активно, с чего ж ему активным быть.