Início
Assis 11/5/2012, 16:55Boa tarde
Neste exemplo que envio queria fazer multi seleção na caixa de listagem como explico .
Obrigado
Neste exemplo que envio queria fazer multi seleção na caixa de listagem como explico .
Obrigado
2 participantes
[Resolvido]Selecionar em caixa de listagem
Assis- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009
.................................................................................
*** Só sei que nada sei ***
JPaulo- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11026
Registrado : 04/11/2009
Propriedades da ListBox, guia Outros, Multi-Select = Simples
No botão a Debito:
Private Sub Comando42_Click()
On Error Resume Next
Dim varItem As Variant
Dim frm As Form, ctl As Control
Set frm = Forms!Debitos
Set ctl = frm!Lista
If MsgBox("Liquidar como Multibanco ? ", vbYesNo + vbQuestion, "Agenda") = vbYes Then
For Each varItem In ctl.ItemsSelected
CurrentDb.Execute "UPDATE Agenda SET Multibanco='" & Lista.Column(4) & "' WHERE IDConsulta = " & Lista.ItemData(varItem) & ";"
CurrentDb.Execute "UPDATE Agenda SET deve='" & 0 & "' WHERE IDConsulta = " & Lista.ItemData(varItem) & ";"
CurrentDb.Execute "UPDATE Agenda SET Paga='" & Me.Comando42.Caption & "' WHERE IDConsulta = " & Lista.ItemData(varItem) & ";"
CurrentDb.Execute "UPDATE Agenda SET DataRecebimento='" & Date & "' WHERE IDConsulta = " & Lista.ItemData(varItem) & ";"
CurrentDb.Execute "UPDATE Agenda SET QuemRecebeu='" & Me.Utilizador & "' WHERE IDConsulta = " & Lista.ItemData(varItem) & ";"
Next varItem
Else
Me.Lista.Selected(varItem) = False
Exit Sub
End If
Me.Lista.Requery
MsgBox "Consulta Liquidada com Sucesso!", vbOKOnly + vbInformation, "Agenda"
Call Form_Load
End Sub
No botão a Dinheiro:
Private Sub Comando43_Click()
'On Error Resume Next
Dim varItem As Variant
Dim frm As Form, ctl As Control
Set frm = Forms!Debitos
Set ctl = frm!Lista
If MsgBox("Liquidar como Dinheiro ? ", vbYesNo + vbQuestion, "Agenda") = vbYes Then
For Each varItem In ctl.ItemsSelected
CurrentDb.Execute "UPDATE Agenda SET Dinheiro='" & Lista.Column(4) & "' WHERE IDConsulta = " & Lista.ItemData(varItem) & ";"
CurrentDb.Execute "UPDATE Agenda SET deve='" & 0 & "' WHERE IDConsulta = " & Lista.ItemData(varItem) & ";"
CurrentDb.Execute "UPDATE Agenda SET Paga='" & Me.Comando43.Caption & "' WHERE IDConsulta = " & Lista.ItemData(varItem) & ";"
CurrentDb.Execute "UPDATE Agenda SET DataRecebimento='" & Date & "' WHERE IDConsulta = " & Lista.ItemData(varItem) & ";"
CurrentDb.Execute "UPDATE Agenda SET QuemRecebeu='" & Me.Utilizador & "' WHERE IDConsulta = " & Lista.ItemData(varItem) & ";"
Next varItem
Else
Me.Lista.Selected(varItem) = False
Exit Sub
End If
Me.Lista.Requery
MsgBox "Consulta Liquidada com Sucesso!", vbOKOnly + vbInformation, "Agenda"
Call Form_Load
End Sub
No botão a Debito:
Private Sub Comando42_Click()
On Error Resume Next
Dim varItem As Variant
Dim frm As Form, ctl As Control
Set frm = Forms!Debitos
Set ctl = frm!Lista
If MsgBox("Liquidar como Multibanco ? ", vbYesNo + vbQuestion, "Agenda") = vbYes Then
For Each varItem In ctl.ItemsSelected
CurrentDb.Execute "UPDATE Agenda SET Multibanco='" & Lista.Column(4) & "' WHERE IDConsulta = " & Lista.ItemData(varItem) & ";"
CurrentDb.Execute "UPDATE Agenda SET deve='" & 0 & "' WHERE IDConsulta = " & Lista.ItemData(varItem) & ";"
CurrentDb.Execute "UPDATE Agenda SET Paga='" & Me.Comando42.Caption & "' WHERE IDConsulta = " & Lista.ItemData(varItem) & ";"
CurrentDb.Execute "UPDATE Agenda SET DataRecebimento='" & Date & "' WHERE IDConsulta = " & Lista.ItemData(varItem) & ";"
CurrentDb.Execute "UPDATE Agenda SET QuemRecebeu='" & Me.Utilizador & "' WHERE IDConsulta = " & Lista.ItemData(varItem) & ";"
Next varItem
Else
Me.Lista.Selected(varItem) = False
Exit Sub
End If
Me.Lista.Requery
MsgBox "Consulta Liquidada com Sucesso!", vbOKOnly + vbInformation, "Agenda"
Call Form_Load
End Sub
No botão a Dinheiro:
Private Sub Comando43_Click()
'On Error Resume Next
Dim varItem As Variant
Dim frm As Form, ctl As Control
Set frm = Forms!Debitos
Set ctl = frm!Lista
If MsgBox("Liquidar como Dinheiro ? ", vbYesNo + vbQuestion, "Agenda") = vbYes Then
For Each varItem In ctl.ItemsSelected
CurrentDb.Execute "UPDATE Agenda SET Dinheiro='" & Lista.Column(4) & "' WHERE IDConsulta = " & Lista.ItemData(varItem) & ";"
CurrentDb.Execute "UPDATE Agenda SET deve='" & 0 & "' WHERE IDConsulta = " & Lista.ItemData(varItem) & ";"
CurrentDb.Execute "UPDATE Agenda SET Paga='" & Me.Comando43.Caption & "' WHERE IDConsulta = " & Lista.ItemData(varItem) & ";"
CurrentDb.Execute "UPDATE Agenda SET DataRecebimento='" & Date & "' WHERE IDConsulta = " & Lista.ItemData(varItem) & ";"
CurrentDb.Execute "UPDATE Agenda SET QuemRecebeu='" & Me.Utilizador & "' WHERE IDConsulta = " & Lista.ItemData(varItem) & ";"
Next varItem
Else
Me.Lista.Selected(varItem) = False
Exit Sub
End If
Me.Lista.Requery
MsgBox "Consulta Liquidada com Sucesso!", vbOKOnly + vbInformation, "Agenda"
Call Form_Load
End Sub
.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.
Pay-Pal R$ Aqui
Pay-Pal € Aqui
Ou ainda: Aqui (Novo)
Sucesso e Bons Estudos
Success and Good Studies
![[Resolvido]Selecionar em caixa de listagem Folder_announce_new](https://2img.net/i/fa/subsilver/folder_announce_new.gif)
Utilize o Sistema de Busca do Fórum... 102 Códigos VBA Gratuitos... Instruções SQL como utilizar...
Assis- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009
Obrigado JPaulo
Bom fim de semana
.................................................................................
*** Só sei que nada sei ***
JPaulo- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11026
Registrado : 04/11/2009
Valew pelo retorno.
.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.
Pay-Pal R$ Aqui
Pay-Pal € Aqui
Ou ainda: Aqui (Novo)
Sucesso e Bons Estudos
Success and Good Studies
Utilize o Sistema de Busca do Fórum... 102 Códigos VBA Gratuitos... Instruções SQL como utilizar...
Assis- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009
JPaulo
Ao fazer testes é que reparei que:
As consultas do exemplo, tem um valor individual de 25, 25, e 30
Mas ao liquidar as tres com a a função passa para a tabela todas as consultas com o valor de 30, na coluna Multibanco ou Dinheiro.
Mas se fizer uma a uma os valores passam corretos.
Obrigado
Ao fazer testes é que reparei que:
As consultas do exemplo, tem um valor individual de 25, 25, e 30
Mas ao liquidar as tres com a a função passa para a tabela todas as consultas com o valor de 30, na coluna Multibanco ou Dinheiro.
Mas se fizer uma a uma os valores passam corretos.
Obrigado
.................................................................................
*** Só sei que nada sei ***
JPaulo- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11026
Registrado : 04/11/2009
No botão Debito
Private Sub Comando42_Click()
On Error Resume Next
Dim varItem As Variant
Dim frm As Form, ctl As Control
Set frm = Forms!Debitos
Set ctl = frm!Lista
If MsgBox("Liquidar como Multibanco ? ", vbYesNo + vbQuestion, "Agenda") = vbYes Then
For Each varItem In ctl.ItemsSelected
CurrentDb.Execute "UPDATE Agenda SET Multibanco=" & Me.Lista.Column(4, varItem) & " WHERE IDConsulta = " & Me.Lista.Column(6, varItem) & ";"
CurrentDb.Execute "UPDATE Agenda SET deve='" & 0 & "' WHERE IDConsulta = " & Me.Lista.Column(6, varItem) & ";"
CurrentDb.Execute "UPDATE Agenda SET Paga='" & Me.Comando42.Caption & "' WHERE IDConsulta = " & Me.Lista.Column(6, varItem) & ";"
CurrentDb.Execute "UPDATE Agenda SET DataRecebimento='" & Date & "' WHERE IDConsulta = " & Me.Lista.Column(6, varItem) & ";"
CurrentDb.Execute "UPDATE Agenda SET QuemRecebeu='" & Me.Utilizador & "' WHERE IDConsulta = " & Me.Lista.Column(6, varItem) & ";"
Next varItem
Else
Me.Lista.Selected(varItem) = False
Exit Sub
End If
Me.Lista.Requery
MsgBox "Consulta Liquidada com Sucesso!", vbOKOnly + vbInformation, "Agenda"
Call Form_Load
End Sub
No botão Dinheiro
Private Sub Comando43_Click()
On Error Resume Next
Dim varItem As Variant
Dim frm As Form, ctl As Control
Set frm = Forms!Debitos
Set ctl = frm!Lista
If MsgBox("Liquidar como Dinheiro ? ", vbYesNo + vbQuestion, "Agenda") = vbYes Then
For Each varItem In ctl.ItemsSelected
CurrentDb.Execute "UPDATE Agenda SET Dinheiro=" & Me.Lista.Column(4, varItem) & " WHERE IDConsulta = " & Me.Lista.Column(6, varItem) & ";"
CurrentDb.Execute "UPDATE Agenda SET deve='" & 0 & "' WHERE IDConsulta = " & Me.Lista.Column(6, varItem) & ";"
CurrentDb.Execute "UPDATE Agenda SET Paga='" & Me.Comando43.Caption & "' WHERE IDConsulta = " & Me.Lista.Column(6, varItem) & ";"
CurrentDb.Execute "UPDATE Agenda SET DataRecebimento='" & Date & "' WHERE IDConsulta = " & Me.Lista.Column(6, varItem) & ";"
CurrentDb.Execute "UPDATE Agenda SET QuemRecebeu='" & Me.Utilizador & "' WHERE IDConsulta = " & Me.Lista.Column(6, varItem) & ";"
Next varItem
Else
Exit Sub
End If
Me.Lista.Requery
MsgBox "Consulta Liquidada com Sucesso!", vbOKOnly + vbInformation, "Agenda"
Call Form_Load
End Sub
Bom final de semana...
Private Sub Comando42_Click()
On Error Resume Next
Dim varItem As Variant
Dim frm As Form, ctl As Control
Set frm = Forms!Debitos
Set ctl = frm!Lista
If MsgBox("Liquidar como Multibanco ? ", vbYesNo + vbQuestion, "Agenda") = vbYes Then
For Each varItem In ctl.ItemsSelected
CurrentDb.Execute "UPDATE Agenda SET Multibanco=" & Me.Lista.Column(4, varItem) & " WHERE IDConsulta = " & Me.Lista.Column(6, varItem) & ";"
CurrentDb.Execute "UPDATE Agenda SET deve='" & 0 & "' WHERE IDConsulta = " & Me.Lista.Column(6, varItem) & ";"
CurrentDb.Execute "UPDATE Agenda SET Paga='" & Me.Comando42.Caption & "' WHERE IDConsulta = " & Me.Lista.Column(6, varItem) & ";"
CurrentDb.Execute "UPDATE Agenda SET DataRecebimento='" & Date & "' WHERE IDConsulta = " & Me.Lista.Column(6, varItem) & ";"
CurrentDb.Execute "UPDATE Agenda SET QuemRecebeu='" & Me.Utilizador & "' WHERE IDConsulta = " & Me.Lista.Column(6, varItem) & ";"
Next varItem
Else
Me.Lista.Selected(varItem) = False
Exit Sub
End If
Me.Lista.Requery
MsgBox "Consulta Liquidada com Sucesso!", vbOKOnly + vbInformation, "Agenda"
Call Form_Load
End Sub
No botão Dinheiro
Private Sub Comando43_Click()
On Error Resume Next
Dim varItem As Variant
Dim frm As Form, ctl As Control
Set frm = Forms!Debitos
Set ctl = frm!Lista
If MsgBox("Liquidar como Dinheiro ? ", vbYesNo + vbQuestion, "Agenda") = vbYes Then
For Each varItem In ctl.ItemsSelected
CurrentDb.Execute "UPDATE Agenda SET Dinheiro=" & Me.Lista.Column(4, varItem) & " WHERE IDConsulta = " & Me.Lista.Column(6, varItem) & ";"
CurrentDb.Execute "UPDATE Agenda SET deve='" & 0 & "' WHERE IDConsulta = " & Me.Lista.Column(6, varItem) & ";"
CurrentDb.Execute "UPDATE Agenda SET Paga='" & Me.Comando43.Caption & "' WHERE IDConsulta = " & Me.Lista.Column(6, varItem) & ";"
CurrentDb.Execute "UPDATE Agenda SET DataRecebimento='" & Date & "' WHERE IDConsulta = " & Me.Lista.Column(6, varItem) & ";"
CurrentDb.Execute "UPDATE Agenda SET QuemRecebeu='" & Me.Utilizador & "' WHERE IDConsulta = " & Me.Lista.Column(6, varItem) & ";"
Next varItem
Else
Exit Sub
End If
Me.Lista.Requery
MsgBox "Consulta Liquidada com Sucesso!", vbOKOnly + vbInformation, "Agenda"
Call Form_Load
End Sub
Bom final de semana...
.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.
Pay-Pal R$ Aqui
Pay-Pal € Aqui
Ou ainda: Aqui (Novo)
Sucesso e Bons Estudos
Success and Good Studies
Utilize o Sistema de Busca do Fórum... 102 Códigos VBA Gratuitos... Instruções SQL como utilizar...
Assis- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009
Mais um obrigado JPaulo
Perfeito
Perfeito
.................................................................................
*** Só sei que nada sei ***
Conteúdo patrocinado
Tópicos semelhantes
» [Resolvido]Selecionar varios Caixa de listagem
» [Resolvido]selecionar linha da caixa de listagem
» [Resolvido]Localizar codigo cliente na caixa de listagem e selecionar o mesmo cliente na caixa de combinação
» [Resolvido]Selecionar todos os itens de uma caixa de listagem
» [Resolvido]Filtrar e selecionar resultado em uma Caixa de Listagem
» [Resolvido]selecionar linha da caixa de listagem
» [Resolvido]Localizar codigo cliente na caixa de listagem e selecionar o mesmo cliente na caixa de combinação
» [Resolvido]Selecionar todos os itens de uma caixa de listagem
» [Resolvido]Filtrar e selecionar resultado em uma Caixa de Listagem