| |
 26 Кб. |
|
| | Доброго всем. А кто мне может подсказать, как можно перевести курсор с одного поля в другой. Вот форма, кликаем [Новый] - в поле подставляется новый номер, НО курсор остается в этом же поле, а хочется, что бы он перешел в следующее.
ЗЫ: не "принцыпияльно", но для красоты и удобства... | |
| |
| |
| |
|
|
| | Me.имя_поля.SetFocus
твой случай
Private Sub Найти_Click()
Set rst = CurrentDb.OpenRecordset("Zakaz", dbOpenDynaset)
NewIdZak = "1"
Do While (rst.EOF = False)
If Val(NewIdZak) < Val(rst!IdZak) Then NewIdZak = rst!IdZak
rst.MoveNext
Loop
NewIdZak = Str(Val(NewIdZak) + 1)
Me.FIOZak.SetFocus
End Sub | |
| |
| |
| |
|
|
| | Set rst = Nothing а не rst = Nothing | |
| |
| |
