FILTRO EM DATGRID
Ola pessoal preciso de vcs novamente
Tenho um projeto de Ordem de serviço, 2 form
1 form: é onde cadastra todas as informações
2 form: eu coloquei um datagrid e deixei somente a coluna [Ô]Nome[Ô] Visivel,
Duvida: gostaria de ao clicar em um determinado Nome do form2, abrisse o form 1
com os dados desse cliente ( rs.nadaposição do cliente clicado em form2 )
Obrigado....espero suas ajudas
Tenho um projeto de Ordem de serviço, 2 form
1 form: é onde cadastra todas as informações
2 form: eu coloquei um datagrid e deixei somente a coluna [Ô]Nome[Ô] Visivel,
Duvida: gostaria de ao clicar em um determinado Nome do form2, abrisse o form 1
com os dados desse cliente ( rs.nadaposição do cliente clicado em form2 )
Obrigado....espero suas ajudas
ALGUEM SABE RESPONDER ? VALEW
ajuda ia galera
??????????????? pessoal ajuda ai por favor
e ai ?????
Private Sub DataGrid1_Click()
If rs.RecordCount <> 0 Then
Form2.Show
Form2.str_cliente = rs!nome_cliente
Else
MsgBox [Ô]Não existe registro selecionado![Ô]
End If
End Sub
[ô]Declaração de variaveis do form2
Dim rs_os As New ADODB.Recordset
Public str_cliente As String
Private Sub Form_Load()
rs_os.CursorLocation = adUseClient
rs_os.Open [Ô]Select * from tb_os[Ô], conexao_db
rs_os.Filter = [Ô]nome_cliente = [ô][Ô] & str_cliente & [Ô][ô][Ô]
rs_os.MoveLast
End Sub
Ou seja, passa um valor como parametro para o form2 e depois filtra a informação com o parametro passado.
Lógico que você vai ter que aperfeiçoar o código.
If rs.RecordCount <> 0 Then
Form2.Show
Form2.str_cliente = rs!nome_cliente
Else
MsgBox [Ô]Não existe registro selecionado![Ô]
End If
End Sub
[ô]Declaração de variaveis do form2
Dim rs_os As New ADODB.Recordset
Public str_cliente As String
Private Sub Form_Load()
rs_os.CursorLocation = adUseClient
rs_os.Open [Ô]Select * from tb_os[Ô], conexao_db
rs_os.Filter = [Ô]nome_cliente = [ô][Ô] & str_cliente & [Ô][ô][Ô]
rs_os.MoveLast
End Sub
Ou seja, passa um valor como parametro para o form2 e depois filtra a informação com o parametro passado.
Lógico que você vai ter que aperfeiçoar o código.
cara muito Obrigado pela ajuda, mas como eu to omeçando em ado agora, não consegui fazer as alterações no codigo,
vc poderia fazer pr mim por favor?
Obrigado fica com Deus
vou postar o zip AI
vc poderia fazer pr mim por favor?
Obrigado fica com Deus
vou postar o zip AI
Codigo alterado e comentado.
Esta funcionando assim: Ao clicar duas vezes no Grid, o sistema procura a última OS gerado para aquele cliente.
Esta funcionando assim: Ao clicar duas vezes no Grid, o sistema procura a última OS gerado para aquele cliente.
cara muito Obrigado, vc me ajudou muito vou estudar o q foi modificado....me passsa seu msn ?
Tópico encerrado , respostas não são mais permitidas