Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
ник: час Итого выходит - так
Function Mesages(Soo As String) As String Dim frmCurrentForm As Form On Error Resume Next If Len(Mesages_String & Soo) > 255 Then Mesages_String = Left(Mesages_String, 255 - Len(Soo) - 10) Mesages_String = Soo & "..." & Mesages_String Mesages = Mesages_String Set frmCurrentForm = Screen.ActiveForm Forms(frmCurrentForm.Name).Controls("MSG").Value = Mesages_String End Function
Ваше имя:
Пароль:
Сообщение:
Прикрепить:
Для вставки смайлов в текст щелкните по значку.