OPTION BUTTON

GUTO 28/03/2005 15:24:03
#75367
ola pessoal eu d novo Como fazer que meu option Button quando se fizer uma consulta ele retornar o valor para o form e quando se fazer a segunda consulta naun apagar a consulta anterior , fazer uma consulta sobre consulta ir limitando a busca? valew muito obrigado

With rspermuta
If Option1.Value = True Then .Filter = "Codigo Like " & TxtPesquisar
If Option3.Value = True Then .Filter = "Descricao Like '" & TxtPesquisar & "*'"
If Option5.Value = True Then .Filter = "Rua Like '" & TxtPesquisar & "*'"
If Option2.Value = True Then .Filter = "Bairro like '" & TxtPesquisar & "*'"
If Option4.Value = True Then .Filter = " Cidade like '" & TxtPesquisar & "*'"
If Option6.Value = True Then .Filter = PegaValor(TxtPesquisar)
MsgBox .RecordCount & " registro(s) encontrado(s)!", vbInformation
End With
FORMIGINHA 28/03/2005 16:20:43
#75379
bom!
grave em uma variavel o opition q foi clicado.
GUTO 28/03/2005 17:04:02
#75396
da pra ser mais especifico eu ainda naun mexi com isso obrigado
USUARIO.EXCLUIDOS 28/03/2005 17:24:35
#75401 Resposta escolhida
Em primeiro lugar GUTO, se você utilizar muitos critério na pesquisa, a mesma pode ser tornar muito lenta!!!, cuidado pois dependendo do tamanho da base de dados... pode ficar muito... mas muito lento...
USUARIO.EXCLUIDOS 28/03/2005 17:31:16
#75403
Eu faria assim

With rspermuta 
If Option1.Value = True Then .Filter = "Codigo Like " & TxtPesquisar 
If Option3.Value = True Then .Filter = "Descricao Like '" & TxtPesquisar & "*'" 
If Option5.Value = True Then .Filter = "Rua Like '" & TxtPesquisar & "*'" 
If Option2.Value = True Then .Filter = "Bairro like '" & TxtPesquisar & "*'" 
If Option4.Value = True Then .Filter = " Cidade like '" & TxtPesquisar & "*'" 
If Option6.Value = True Then .Filter = PegaValor(TxtPesquisar) 
MsgBox .RecordCount & " registro(s) encontrado(s)!", vbInformation 
End With
If rspermuta > 0 then
For = 1 to rspermuta.RecordCount - 1
List1.Additem rspermuta![codigo] & " / " & rspermuta![Cidade] & " / " & rspermuta![Descrição] & ".... e etc"
List1.Additem "============================"
rspermuta.MoveNext
Next
else
Msgbox "Nenhum registro encontrado"
End if

Mas dependendo do caso você pode usar um FLEXGRID, para FICAR mais flexível..... o exemplo usando LISTBOX é só pra te dar uma lógica...
GUTO 28/03/2005 17:53:30
#75419
Eu vou testar iramo iso q vc me passou , alias eu nunca usei esse FLEXGRID, nem sei como ele é , ate
GUTO 28/03/2005 18:28:10
#75425
Caro Germanir essa linha esta toda vermelha no codigo
For = 1 to rspermuta.RecordCount - 1
eo resto naun funcionou cara
eu puis assim
With rspermuta
If Option1.Value = True Then .Filter = "Codigo Like " & TxtPesquisar
If Option3.Value = True Then .Filter = "Descricao Like '" & TxtPesquisar & "*'"
If Option5.Value = True Then .Filter = "Rua Like '" & TxtPesquisar & "*'"
If Option2.Value = True Then .Filter = "Bairro like '" & TxtPesquisar & "*'"
If Option4.Value = True Then .Filter = " Cidade like '" & TxtPesquisar & "*'"
If Option6.Value = True Then .Filter = PegaValor(TxtPesquisar)
MsgBox .RecordCount & " registro(s) encontrado(s)!", vbInformation
End With
If rspermuta > 0 Then
For = 1 to rspermuta.RecordCount - 1
List1.AddItem rspermuta![codigo] & " / " & rspermuta![Cidade] & " / " & rspermuta![Descrição] & " / " & rspermuta![Rua] & " / " & rspermuta![Bairro] & " / " & rspermuta![PegaValor] & ""
List1.AddItem "============================"
rspermuta.MoveNext
Next
Else
MsgBox "Nenhum registro encontrado"

e da erro de type mysmatch rspermuta
If rspermuta > 0 Then
USUARIO.EXCLUIDOS 28/03/2005 18:55:34
#75434
Correção
[u]
With rspermuta
If Option1.Value = True Then .Filter = "Codigo Like " & TxtPesquisar
If Option3.Value = True Then .Filter = "Descricao Like '" & TxtPesquisar & "*'"
If Option5.Value = True Then .Filter = "Rua Like '" & TxtPesquisar & "*'"
If Option2.Value = True Then .Filter = "Bairro like '" & TxtPesquisar & "*'"
If Option4.Value = True Then .Filter = " Cidade like '" & TxtPesquisar & "*'"
If Option6.Value = True Then .Filter = PegaValor(TxtPesquisar)
MsgBox .RecordCount & " registro(s) encontrado(s)!", vbInformation
End With
If rspermuta > 0 then
For [txt-color=#ff0000]i[/txt-color] = 1 to rspermuta.RecordCount - 1
List1.Additem rspermuta![codigo] & " / " & rspermuta![Cidade] & " / " & rspermuta![Descrição] & ".... e etc"
List1.Additem "============================"
rspermuta.MoveNext
Next
else
Msgbox "Nenhum registro encontrado"
End if
[c]
Vê agora
GUTO 28/03/2005 19:09:21
#75438
Tamo quase type mysmatch If rspermuta > 0 Then
no "rspermuta"
TONARE25 28/03/2005 19:28:50
#75446
rspermuta ta em string e 0 é integer... poe o zero entre aspas!!!

Pq ao inves de usar Option Button vc não utlliza CheckBox ?? Ai vc pode serlecionar varios e depois pegar os selecionados e montar a query de consulta!
GUTO 28/03/2005 19:34:58
#75447
continua dano erro aki rspermuta o mesmo erro , essa ideia parece sr boa eu pegaria tudo que eu quero q selecione , boa ideia naun tinha pensado nisso mas como fazer essa consulta? obrigado por postar
Página 1 de 2 [17 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar