| 
 
	
		| Предыдущая тема :: Следующая тема |  
		| Автор | Сообщение |  
		| ict_2010 Участник со стажем
 
 
 Вступление в Клуб: 25.03.2015
 
 | 
			
				|  Пт Апр 24, 2015 14:04   Клиент-скрипт |   |  
				| Полезность: Нет оценки 
 |  
				| Здравствуйте! В операции в вкладке Клиент-скрипт реализую MsgBox("<текст сообщения>",vbYesNo) и по нажатию кнопки vbYes запись текстбокса(Text1.text ) записать в реквизит соответствующий этому тексбоксу, а если vbNo то не записывал.Подскажите как можно это реализовать?
 |  |  
		|  |  
		| prankster Профи
 
 
 Вступление в Клуб: 22.08.2014
 
 | 
			
				|  Пт Апр 24, 2015 15:32   Re: Клиент-скрипт |   |  
				| Полезность: Нет оценки 
 |  
				|  	  | ict_2010 пишет: |  	  | Здравствуйте! В операции в вкладке Клиент-скрипт реализую MsgBox("<текст сообщения>",vbYesNo) и по нажатию кнопки vbYes запись текстбокса(Text1.text ) записать в реквизит соответствующий этому тексбоксу, а если vbNo то не записывал.Подскажите как можно это реализовать?
 | 
 
 
  	  | Код: |  	  | Public Function Main(LastControl)
 if LastControl is OK then
 sText = "Какой-то текст"
 if msgBox(sText, vbYesNo + vbQuestion, "Внимание") <> vbNo then
 Text1.Text = sText
 end if
 end if
 Main = True
 End Function
 
 | 
 
 Как пример. Кнопка ОК должна валидироваться, операция - "Сервер-клиент", а в теле операции нужному реквизиту присваивать значение текстового параметра. Пляшите от того, что требуется сделать.
 |  |  
		|  |  
		| Random Эксперт
 
 
 Вступление в Клуб: 27.06.2011
 
 | 
			
				|  Пт Апр 24, 2015 16:06   Re: Клиент-скрипт |   |  
				| Полезность: Нет оценки 
 |  
				|  	  | prankster пишет: |  	  | 
  	  | Код: |  	  | Public Function Main(LastControl)
 if LastControl is OK then
 sText = "Какой-то текст"
 if msgBox(sText, vbYesNo + vbQuestion, "Внимание") <> vbNo then
 Text1.Text = sText
 end if
 end if
 Main = True
 End Function
 
 | 
 
 Как пример. Кнопка ОК должна валидироваться, операция - "Сервер-клиент", а в теле операции нужному реквизиту присваивать значение текстового параметра. Пляшите от того, что требуется сделать.
 | 
 
 Вот объясните недалёкому?
 Нафига вы все пишете всё в одной несчастной функции Main ?
 Почему бы не написать
 
  	  | Код: |  	  | sub OK_OnClick
 MsgBox("Так же удобнее!")
 end sub
 
 | 
 
 Тогда и кнопка может даже не валидироваться!
 |  |  
		|  |  
		| ict_2010 Участник со стажем
 
 
 Вступление в Клуб: 25.03.2015
 
 | 
			
				|  Вс Апр 26, 2015 14:26    |   |  
				| Полезность: Нет оценки 
 |  
				| спасибо, но мне надо чтоб в текстовое поле каждый раз записывалось то значение которую меняют, а не то которое в коде указывается. В моем случае поле text1.text это реквизит списка имен и оно каждый раз меняется, необходимо чтоб записывалось то значение которую только что выбрали. |  |  
		|  |  
		|  |  
  
	| 
 
 | Вы не можете начинать темы Вы не можете отвечать на сообщения
 Вы не можете редактировать свои сообщения
 Вы не можете удалять свои сообщения
 Вы не можете голосовать в опросах
 
 |  |