ник: ЛМВ
Писал базу на 2003. Потом организация перешла на 2010. При запуске процедуры стала возникать эта ошибка ("переполнение стека"). Что ему надо, этому 2010-му? Почему в 2003м все работало 5 лет, а здесь - какая-то хрень происходит? Они что, эти MS-овцы, специально гадости подкидывают?
Люди добрые-бодрые, м.б. кто уже с этой пакостью сталкивался? Помогите, пож-та.
Код такой:
Private Sub Факс_Change()
If Right(Факс.Text, 1) <> " " Then
Факс.Text = funВставитьТелефКодГорода(Факс.Text)
End If
End Sub
Function funВставитьТелефКодГорода(strTextTEMP As String) As String
Dim lngТекст As Long
Dim strText As String
strText = strTextTEMP
On Error Resume Next
If strТелефКодГорода <> "() " And strТелефКодГорода & "" <> "" Then
lngТекст = InStr(strText, strТелефКодГорода)
If lngТекст = 0 Then
Select Case strText
Case ""
Case "("
funВставитьТелефКодГорода = strТелефКодГорода
Case Else
funВставитьТелефКодГорода = strТелефКодГорода & strText End Select
Else
funВставитьТелефКодГорода = strText
End If
Else
funВставитьТелефКодГорода = strText
End If
End Function
Спасибо