| Предыдущая тема :: Следующая тема   | 
	 
	
	
		| Автор | 
		Сообщение | 
	 
	
		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 это реквизит списка имен и оно каждый раз меняется, необходимо чтоб записывалось то значение которую только что выбрали. | 
			 
		  | 
	 
	
		  | 
	 
	
		 | 
	 
 
  
	 
	    
	   | 
	
Вы не можете начинать темы Вы не можете отвечать на сообщения Вы не можете редактировать свои сообщения Вы не можете удалять свои сообщения Вы не можете голосовать в опросах
  | 
   
 
		 |