Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
ник: aleksandra
Private Sub Выключатель46_Click() If Me.Выключатель46 = -1 Then Me.Поле44.Value = "" Me.Поле44.Visible = True Me.Поле44.SetFocus Else Me.Поле44.Visible = False DoCmd.ShowAllRecords Me.OrderByOn = True End If End Sub Private Sub Поле44_GotFocus() Me.Поле44.SelStart = Len(Me.Поле44.Text) End Sub Private Sub Поле44_KeyUp(KeyCode As Integer, Shift As Integer) DoCmd.ApplyFilter , "Фамилия like '" & Me.Поле44.Text & "*'" End Sub
Ваше имя:
Пароль:
Сообщение:
Прикрепить:
Для вставки смайлов в текст щелкните по значку.