[Resolvido]Selecionar linha - Trocar cor de fundo - Mover o mouse

Olá, gostaria de saber se alguém tem uma idéia para solução do seguinte problema:

Tenho um formulário. Dentro dele tem um subformulário. A origem de dados desse subformulário é uma consulta.O subformulário possui diversas caixas de texto dispostas em linha de forma que cada caixa representa uma coluna. Se a consulta encontra 50 registros, aparecem 50 linhas no subformulário, dispostos como se fossem uma lista.

Atualmente, quando passo o mouse por cima de cada linha, o ponteiro muda para o formato da mão (para selecionar a linha). Quando clico em cada linha abre um outro formulário com maiores detalhes desse registro. Mudei o formato do ponteiro com a seguinte código:

Private Sub Modelo_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
MouseCursor (32649)
End Sub

O formulário dos detalhes abre com:

Private Sub Modelo_Click()
Moldura50.SetFocus
DoCmd.OpenForm "DetalhesAlvoX"
End Sub

Modelo é o nome de uma caixa de texto, existem outras, todas alinhadas horizontalmente.
O mesmo código está repetido para cada caixa de texto e como as caixas estão lado a lado, o usuário não percebe diferença, dando a impressão que basta clicar em qualquer local da linha para abrir outro formulário com detalhes daquele registro específico.

Até aí tudo bem, mas gostaria de saber se é possível fazer que a linha na qual se encontra o mouse mudasse a cor de fundo.

Bastaria mudar a cor de fundo das caixas de texto, posso colocá-las lado a lado, com a borda transparente.
Tentei formatação condicional e uma instrução backcolor no VBA. Mas não dá certo, porque ele muda a cor de todas as linhas quando o mouse passa por cima e não da linha selecionada.

A função que muda o ponteiro do mouse é:

Option Compare Database
Option Explicit




'Constantes para identificar os diversos tipos de ponteiro do mouse
Public Const IDC_APPSTARTING = 32650&
Public Const IDC_HAND = 32649&
Public Const IDC_ARROW = 32512&
Public Const IDC_CROSS = 32515&
Public Const IDC_IBEAM = 32513&
Public Const IDC_ICON = 32641&
Public Const IDC_NO = 32648&
Public Const IDC_SIZE = 32640&
Public Const IDC_SIZEALL = 32646&
Public Const IDC_SIZENESW = 32643&
Public Const IDC_SIZENS = 32645&
Public Const IDC_SIZENWSE = 32642&
Public Const IDC_SIZEWE = 32644&
Public Const IDC_UPARROW = 32516&
Public Const IDC_WAIT = 32514&

Declare Function LoadCursorBynum Lib "user32" Alias "LoadCursorA" _
(ByVal hInstance As Long, ByVal lpCursorName As Long) As Long

Declare Function SetCursor Lib "user32" _
(ByVal hCursor As Long) As Long

Function MouseCursor(CursorType As Long)
Dim lngRet As Long
lngRet = LoadCursorBynum(0&, CursorType)
lngRet = SetCursor(lngRet)
End Function


Se alguém tiver uma idéia, agradeço!!!

Tente adaptar;

http://access.mvps.org/access/forms/frm0047.htm

Como não houve retorno, o tópico passa a resolvido. Qualquer coisa reabra, por favor.

Olá, sou novo aqui no fórum e mais novo em vba de access.
Eu usei o exemplo que vocês indicaram, porém, não acontece nada em meu formulário.
Eu uso o access 2010.
Desculpa minha burrice, mas conheço apenas outra linguagem.
Como sou funcionário da Prefeitura de SP não há outra ferramenta além do Office, então, estou tendo que me virar.
Eu copiei a função inteira mudando apenas o nome do campo. Veja abaixo:

'Function GetLineNumber()
'Dim RS As Recordset
'Dim CountLines
'Dim F As Form
'Dim KeyName As String
'Dim KeyValue
'
'Set F = Form
'KeyName = "ID" <---- eu mudei apenas este item
'KeyValue = [ID] <---- eu mudei apenas este item
'
' On Error GoTo Err_GetLineNumber
' Set RS = F.RecordsetClone
' ' Find the current record.
' Select Case RS.Fields(KeyName).Type
' ' Find using numeric data type key value.
' Case DB_INTEGER, DB_LONG, DB_CURRENCY, DB_SINGLE, _
' DB_DOUBLE, DB_BYTE
' RS.FindFirst "[" & KeyName & "] = " & KeyValue
' ' Find using date data type key value.
' Case DB_DATE
' RS.FindFirst "[" & KeyName & "] = #" & KeyValue & "#"
' ' Find using text data type key value.
' Case DB_TEXT
' RS.FindFirst "[" & KeyName & "] = '" & KeyValue & "'"
' Case Else
' MsgBox "ERROR: Invalid key field data type!"
' Exit Function
' End Select
' ' Loop backward, counting the lines.
' Do Until RS.BOF
' CountLines = CountLines + 1
' RS.MovePrevious
' Loop
'Bye_GetLineNumber: ' Return the result.
' GetLineNumber = CountLines
' Exit Function
'Err_GetLineNumber:
' CountLines = 0
' Resume Bye_GetLineNumber
'End Function
'Private Sub Form_Click()
''Me!ctlCurrentRecord = Me.SelTop
'End Sub
'Private Sub Form_Current()
''Me!ctlCurrentRecord = Me.SelTop
'End Sub

Eu não sei o que fazer para resolver isso, se alguém puder me ajudar agradeço muito

O exemplo a funcionar em Ms Access 2010;

http://dl.dropboxusercontent.com/u/771097/ConformBgrd_2010.zip

No seu projeto, verifique se tem as mesmas referencias VBA marcadas.
Entre no VBA do form ou num modulo, vá a Ferramentas, Referencias.