{quote}{login=Tolstyi}{date=12.02.2008 02:11}{thema=MsgBox}{post}Sub TextboxMsg()  
If Me.TextBox1 = Me.TextBox3 Then  
MsgBox "ОШИБКА-введены несовместимые значения. ", vbCritical, ""  
End If  
End Sub  
 
Как сделать, чтобы если ввели в любой из textbox-ов одинаковые значения выскакивало сообщение об ошибке?    
У меня почему-то не работает.{/post}{/quote}  
---  
' Аналогично написать и для другого сопряженного TextBox  
Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)  
TextboxMsg  
Cancel = True  
End Sub  
 
' Это было в оригинале  
Sub TextboxMsg()  
If Me.TextBox1 = Me.TextBox3 Then  
MsgBox "ОШИБКА-введены несовместимые значения. ", vbCritical, ""  
End If  
End Sub  
---  
ZVI