ник: dimonicss
Все-таки не пойму почему у меня не работает.
Полный код функции такой
Function ТелефАдрес(x)
Dim MyCriteria As String
Dim MyRst As Recordset
MyCriteria = "[НомерТел] = '" & x & "'"
Set MyRst = CurrentDb.OpenRecordset("Телефоны", dbOpenDynaset)
With MyRst
.FindFirst MyCriteria
If Not MyRst.NoMatch Then
k = MyRst![Код]
DoCmd.OpenForm "Телефоны", acNormal
DoCmd.GoToRecord , , acGoTo, k
Else
DoCmd.OpenForm "Телефоны", acNormal
DoCmd.GoToRecord , , acNewRec
Me!НомерТел = x
End If
End With
MyRst.Close
End Function
Если вместо
Me!НомерТел = x
например пишу
MsgBox x
то при обработке функции сообщение с введенным текстом выскакивает.
а с Me пишет
Compile error:
Invalid use of Me keyword
Открытие существующей записи для редактирования прокатывает, а вот ввод новой что-то не идет. Прежде чем менять код хотелось бы понять в чем ошибка в существующем коде.