O Que Tem De Errado Aqui?

[AlexMunhoz]

ESTOU FAZENDO A BUSCA POR (JUN) ELE DEVERIA ENCONTRA O REGISTRO JUNIOR E MARCAR O CAMPO NO GRIG, ELE SO ENCONTRA QUANDO COLOCO JUNIOR E MESMO ASSIM ELE MARCA O GRID NA LINHA 1 QUE NÃO CORRESPONDE AO REGISTRO ENCONTRADO.

Case "Localizar"

On Error GoTo Localizar_erro:

Dim busca As String

busca = Empty

busca = InputBox("Entre com a palavra chave", "Atenção")

busca = UCase(busca)

If Not busca = Empty Then

If (DataGrid1.SelBookmarks.Count <> 0) Then

DataGrid1.SelBookmarks.Remove 0

End If

oRS.CursorLocation = adUseClient

oRS.Open "SELECT * FROM CD_RAMAL WHERE ATENDENTE LIKE '*" & busca & "*'", oDB, adOpenDynamic, adLockOptimistic

If oRS.BOF = True Then

MsgBox "Nenhum registro encontrado", vbExclamation, "Atenção"

Else

Preenche 'Preeenche os campos

DataGrid1.SelBookmarks.Add oRS.Bookmark

End If

oRS.Close

Set oRS = Nothing

End If

Exit Sub

Localizar_erro:

MsgBox Err.Description, vbExclamation, "Atencção"

End Select

[Graymalkin]

Troque os * por % na instrução SQL e veja se dá certo.

Abraços,

Graymalkin

[AlexMunhoz]

Ok, a deu certo sim!!

mas quanto a seleção do registro no grid, o que to fazendo de errado?

[Graymalkin]

Ok, a deu certo sim!!

mas quanto a seleção do registro no grid, o que to fazendo de errado?

Não seria melhor você mostrar na DataGrid apenas o recordset filtrado? Ou seja:

set DataGrid1.DataSource = oRS

Não?

Graymalkin

[AlexMunhoz]

SEGUINTE, ISSO VEI FILTRAR O MEU GRID, EU SO QUERO MARCAR A LINHA ONDE ESTA O REGISTRO SO P EFEITO VISUAL

[Graymalkin]

SEGUINTE, ISSO VEI FILTRAR O MEU GRID, EU SO QUERO MARCAR A LINHA ONDE ESTA O REGISTRO SO P EFEITO VISUAL

Então utilize o método Find do recordset que está ligado à DataGrid. Ele vai posicionar sozinho.

Abraços,

Graymalkin

[AlexMunhoz]

Muito Obrigado meu brother...

ficou 10!

oRS.Open "SELECT * FROM CD_RAMAL", oDB, adOpenDynamic, adLockOptimistic

oRS.Find "ATENDENTE LIKE '%" & busca & "%'"

abraço...