| |
|
|
| | по кнопке выполняется поиск по полю NN
Private Sub Кнопка17_Click()
Dim nN_poisk As String
nN_poisk = InputBox("Введите номер", , 1, XPos:=2000, YPos:=500)
Me!NN.SetFocus
DoCmd.FindRecord nN_poisk
If Me!NN <> nN_poisk Then
MsgBox ("не найден")
End If
Me!kolvo.SetFocus
End Sub
Если запись найдена, указатель устанавливается на нее.
Как выдилить найденную строку в форме цветом? | |
| |
| |
| |
|
|
| | Вот совет, но не мой - может поможет
Вопрос: А как сделать что при получении фокуса на запись выделялась запись по всем полям.
Совет:
Например когда щелкаешь мышкой на форме по записи выделяется вся запись по всем полям.
Вот.
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
или
DoCmd.RunCommand acCmdSelectRecord
Цвет выделения зависит от цвета фонта. Если установлен черный цвет фонта - выделение тоже будет черным. Если любой другой - соответственно цвет выделения будет тот, что установлен для фонта поля. Можно прописать процедуру на GotFocus/LostFocus которая бы меняла ForeColor для поля (туда, и затем обратно) соответсвтвенно будет меняться цвет выделения. А можно на эти события (Got/Lost) повесить изменение BackColor.
Можно просто прописать пропертиес для ForeColor если не нужен системный - "умолчательный" цвет и не переключать его. | |
| |
| |
| |
|
|
| | Вот совет: мой
http://hiprog.com/index.php?option=com_content&task=view&id=251661600&Itemid=35 | |
| |
| |
| |
|
|
| | вот совет,но не мой
Вопрос: Выделение записи в подчиненной форме
Совет:
Выделение записи в подчиненной форме
Dim rst As Recordset, strCriteria As String
strCriteria = "[MyFieldName] =" & MyValue'для числовых значений
'или strCriteria = "[MyFieldName] = '" & MyValue & "'"
' - для Текстовых значений
Set rst = Forms![MyFormName]![MySubFormName].Form.RecordsetClone
rst.FindFirst strCriteria
If rst.NoMatch Then
MsgBox "Записи не найдены"
Else
Forms![MyFormName]![MySubFormName].Form.Bookmark = rst.Bookmark
End If
rst.Close | |
| |
| |
| |
|
|
| | вот совет, но не мой:
Вопрос: Выделение цветом текущей записи
Совет:
Выделение цветом текущей записи
Option Compare Database
Option Explicit
Public Function currec(idform) As Long
On Error Resume Next
If Me.NewRecord = 0 Then
If Me.Recordset("id") = idform Then currec = 1 Else currec = 0
Else
currec = 0
End If
Me.Repaint
End Function
Private Sub Form_Current()
Me.Refresh
End Sub | |
| |
| |
