Как записать в новую форму в текстовое поле значение из другой формы?

@litvinj · Регистрация: 13.08.2013

Author24 — интернет-сервис помощи студентам

Здравствуйте!
Есть форма, из которой я запускаю другую, на которой есть текстовое поле. В текстовое поле я хочу занести некий текст (результаты проверки).

Я пишу:

Visual Basic

1 2	DoCmd.OpenForm "Проверка ошибок" [Form_Проверка ошибок].txtProverka_Result.Value = Proverka_00_General(ProverkaResult)

Т.е. я хоу выполнить в функции Proverka_00_General некоторую проверку и занести результат в текстов в поле txtProverka_Result... но не работает....Форма открывается, но результатов проверки в поле нет.
Почему?

mobile · 20.03.2016, 00:15

Любая открытая форма член коллекции Forms и обращаться к любому свойству автономной формы, включая поля, можно только через Forms

Visual Basic

1	Forms![Проверка ошибок]!txtProverka_Result = Proverka_00_General(ProverkaResult)

И еще. Символ точка указывает на системное свойство, все остальные пользовательские свойства, опять-таки включая поля, отделяются символом восклицательного знака. Одно исключение это члены коллекции Me в котором как системные так и пользовательские свойства и методы могут адресоваться через точку

@litvinj · 20.03.2016, 11:44 **[ТС]**

Здравствуйте!
При написании Вашего кода:

Visual Basic

Private Sub cmdProverka_00_General_Click()
Dim ProverkaResult As String
    DoCmd.OpenForm "Проверка ошибок"
    Forms![Проверка ошибок]!txtProverka_Result = Proverka_00_General(ProverkaResult)
End Sub

Ошибок Access не выдает, но и результаты проверки в тектосвом поле не появляются! Хотя в переменной ProverkaResult содержатся результаты проверки Вижу по окну Watch).
Сама процедура Private Sub cmdProverka_00_General_Click вызывается в результате щелчка по кнопке, которая расположена на другой (главной) форме (может это важно???)

@texnik-san · 20.03.2016, 11:58

Сообщение от litvinj

Private Sub

Sub не возвращает значений. Если вы хотите возвращать результат, описывайте не Sub, а Function.

Добавлено через 2 минуты

Сообщение от litvinj

Хотя в переменной ProverkaResult содержатся

А если результат не возвращается процедурой, а содержится именно в переменной, то пишется так:

Visual Basic

Private Sub cmdProverka_00_General_Click()
Dim ProverkaResult As String
    DoCmd.OpenForm "Проверка ошибок"
    Proverka_00_General ProverkaResult ' или Call Proverka_00_General(ProverkaResult) 
    Forms![Проверка ошибок]!txtProverka_Result = ProverkaResult
End Sub

@litvinj · 20.03.2016, 12:07 **[ТС]**

По-моему вы не поняли.
Значение переменной ProverkaResult возвращается функцией Proverka_00_General(), описанной в одном из модулей:
Function Proverka_00_General(ProverkaResult As String)

Добавлено через 3 минуты
Ваш последний вариант:

Visual Basic

Private Sub cmdProverka_00_General_Click()
Dim ProverkaResult As String
    DoCmd.OpenForm "Проверка ошибок"
    Proverka_00_General ProverkaResult ' или Call Proverka_00_General(ProverkaResult) 
    Forms![Проверка ошибок]!txtProverka_Result = ProverkaResult
End Sub

Заработал, после переименования Proverka_00_General из функции в процедуру....Спасибо!
Аааааа! Я вспомнил почему функция не работала.....результат выполнения функции содержится в названии функции (как в переменной), а не в в ProverkaResult! Вот почему не работало!
Еще раз Спасибо!

@texnik-san · 20.03.2016, 12:11

Ну слава богу ))

mobile · 20.03.2016, 12:13

texnik-san, у него другая бяка: ТС не присвоил результат вычисления идентификатору функции. Вот и получает пустоту

@texnik-san шапоклякистка 8-го дня 3678 / 2238 / 391 Регистрация: 26.06.2015 Сообщений: 4,647 Записей в блоге: 1
	20.03.2016, 12:11	6
	Ну слава богу )) 0

mobile 26805 / 14484 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	20.03.2016, 12:13	7
	texnik-san, у него другая бяка: ТС не присвоил результат вычисления идентификатору функции. Вот и получает пустоту 0

Опции темы