ник: ddi
как это? как я понимаю команда DoCmd.GoToRecord и менает фокус
я всегда так делую и всегда работает
Private Sub save___print_KeyPress(KeyAscii As Integer)
On Error GoTo save___print_KeyPress_Err
If (IsNull(aah)) Then
DoCmd.RunMacro "eror.4", , ""
DoCmd.GoToControl "AAH"
Exit Sub
End If
If (IsNull(Hasce)) Then
DoCmd.RunMacro "eror.5", , ""
DoCmd.GoToControl "hasce"
Exit Sub
End If
If (IsNull(Sum) Or Sum = 0 Or Sum < 0) Then
DoCmd.RunMacro "eror.3", , ""
DoCmd.GoToControl "sum"
Exit Sub
End If
If (IsNull(npatak)) Then
DoCmd.RunMacro "eror.6", , ""
DoCmd.GoToControl "Npatak"
Exit Sub
End If
If (IsNull(order)) Then
Beep
Exit Sub
End If
On Error Resume Next
If (Form.Dirty) Then
DoCmd.RunCommand acCmdSaveRecord
End If
If (MacroError.Number <> 0) Then
Beep
MsgBox MacroError.Description, vbOKOnly, ""
Exit Sub
End If
On Error GoTo 0
DoCmd.OpenReport "tandor", acViewNormal, "", order, acNormal
DoCmd.GoToRecord acForm, "t", acNewRec
DoCmd.GoToControl "aah"
save___print_KeyPress_Exit:
Exit Sub
save___print_KeyPress_Err:
MsgBox Error$
Resume save___print_KeyPress_Exit
End Sub а это код работает вчём разница ? (взято ис другой формы)