|
|
Postada em 07/01/2005 08:32 hs
Ola bom dia galera, eu gostaria de saber como é que eu faço para abrir uma tabela a partir de um list com checkbox. tipo assim: eu seleciono no list que contem varios nomes somente LUCIANO, MARCOS, MARIA ai eu vou em um botão onde esta o código para abrir a tabela, só que eu quero que ele abra somente com os nomes selecionados essa é minha duvida. tem como ? Fico muito grato
"A complexidade do programa cresce até exceder a competência do programador. " Luciano de Paula Desenvolvedor - Analista lufra2@bol.com.br | |
|
|
|
|
|
|
|
|
Postada em 07/01/2005 09:59 hs
Bom dia.. Faça um loop no list e pegue os registro selecionados For i = List1.ListCount - 1 To 0 Step -1
If List1.Selected(i) Then
'Registro Selecionado Trabalhe ele da forma que precisar End If
Next i
|
|
|
|
|
|
Postada em 07/01/2005 10:08 hs
ai no caso como eu colocaria na seleção no select tipo; "Select * From tabela where nome = '" & list1.text & "'" seria isso ?
"A complexidade do programa cresce até exceder a competência do programador. " Luciano de Paula Desenvolvedor - Analista lufra2@bol.com.br | |
|
|
|
|
|
|
Postada em 07/01/2005 11:13 hs
Luciano, bom dia. A ideia é que voce possa trabalhar os itens selecionados como desejar. digamos que seja mais de uma seleção For i = List1.ListCount - 1 To 0 Step -1
If List1.Selected(i) Then
'Registro Selecionado Trabalhe ele da forma que precisar If len(StrSql) > 0 then StrSql = StrSql & " And " End if StrSql = StrSql & "NOME = '" & List1.List(i) & "'" End if |
|
|
|
|
|
Postada em 07/01/2005 14:44 hs
desculpe Gelson mas eu estou tentar usar assim e não estou conseguindo esta dando um erro: " wrong number of arguments or invalid property assignment " For i = List1.ListCount - 1 To 0 Step -1
If List1.Selected(i) Then
'Registro Selecionado Trabalhe ele da forma que precisar
End If
Next i
Set TFUNCIONARIOS = BANCO.OpenRecordset("select * From FUNCIONARIO where NOME = '" & List1(i) & "'")
"A complexidade do programa cresce até exceder a competência do programador. " Luciano de Paula Desenvolvedor - Analista lufra2@bol.com.br | |
|
|
|
|
|
|
Postada em 07/01/2005 15:57 hs
For i = List1.ListCount - 1 To 0 Step -1
If List1.Selected(i) Then
strVAr = List1(i) End If
Next i Set TFUNCIONARIOS = BANCO.OpenRecordset("select * From FUNCIONARIO where NOME = '" & strVar & "'")
|
|
|
|
