| |
|
|
| | У меня есть ленточная форма со столбцами:
Студент | Оценка
Иванов 5
Сидор 4
И так далее.....
Я хочу, чтобы когда оператор проставляет оценку, было так: поставил оценку, нажал кнопку вниз и перешел к следующему студенту на пол оценка.... | |
| |
| |
| |
|
|
| | на событие получение фокуса поля студент повешать проверку заполненности поля студент (т.е. если поле пустое то ничего не делать) если заполнено то передать фокус полю оценка.
что-то где-то так...
If Me!Студент="" Or IsNull(Me!Студент) Then
Else
Me!Оценка.SetFocus
End If | |
| |
| |
| |
|
|
| | а Tabом не проще ? и кода не надо... | |
| |
| |
| |
|
|
| | вот, так работает
Private Sub Поле29_KeyDown(KeyCode As Integer, Shift As Integer)
Dim intDown As Integer
On Error Resume Next
intDown = KeyCode
If intDown = 40 Then Me.тел.SetFocus
End Sub
|
| |
| |
| |
| |
 8 Кб. |
|
| | Не знаю чего-то не пашет. Можно как-нить на примерчике показать.... | |
| |
| |
| |
|
|
| |
Private Sub Оценка_KeyDown(KeyCode As Integer, Shift As Integer)
On Error GoTo Err_Оценка_KeyDown
Select Case KeyCode
Case Is = 40
KeyCode = 0
DoCmd.GoToRecord acDataForm, Me.Name, acNext
Case Is = 38
KeyCode = 0
DoCmd.GoToRecord acDataForm, Me.Name, acPrevious
End Select
Exit_Sub:
Exit Sub
Err_Оценка_KeyDown:
Select Case Err.Number
Case 2105
Resume Exit_Sub
Case Else
MsgBox "Error " & Err.Number & " (" & Err.Description & ")", vbInformation, "Оценка_KeyDown"
End Select
End Sub
|
| |
| |
| |
| |
14 Кб. |
|
| | или .....
а как удалить свое сообщение ? | |
| |
| |
|
|
