[resolvido] Código não funciona

Moderador: Avelino Sampaio

Avatar do usuário
José Waldick
Mensagens: 269
Registrado em: 08 Mar 2016, 19:39

[resolvido] Código não funciona

Mensagempor José Waldick » 26 Jan 2018, 00:09

Código: Selecionar todos

Private Sub Comando253_Click()
  Dim filtro As String
  Dim sel As Variant
  Dim j As Boolean
 
  filtro = "in("
  For Each sel In Me!lista.ItemsSelected
    filtro = filtro & Me!lista.Column(0, sel) & ","
    j = True
  Next
    filtro = Mid(filtro, 1, InStrRev(filtro, ",") - 1) & ")"
    filtro = "id " & filtro
      If j = False Then Exit Sub
        CurrentDb.Execute "UPDATE tbl SET media =  '" & Me!lista.Column(2) & "' WHERE " & filtro & ";"
        MsgBox "Média calculada com sucesso!",
 
 
End Sub

Não está atualizando a tabela, quando set média= 2, ele funciona; porém quando coloco '" & Me!lista.Column(2) & "' , não atualiza a tabela corretamente.
Um detalhe interessante, ele vai atualizar o valor da média com o último valor que foi selecionado na listbox. não estou conseguindo encontrar a solução.
Onde estou errando?
Você deve estar registrado e autenticado para ter acesso ao arquivo anexo.
Deus é bom e fiel!

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Avatar do usuário
Avelino Sampaio
Mensagens: 1870
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: Código não funciona

Mensagempor Avelino Sampaio » 30 Jan 2018, 06:45

José

substitua seu código do botão, por este:

Código:
Private Sub Comando2_Click()
Dim sel As Variant
Dim j As Boolean
For Each sel In Me!lista.ItemsSelected
CurrentDb.Execute "UPDATE tbl SET tbl.media = '" & Me!lista.Column(2, sel) & "' WHERE id = " & Me!lista.Column(0, sel) & ";"
j = True
Next
If j Then MsgBox "média calculda com sucesso!"
End Sub


Aguardamos
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

Avatar do usuário
José Waldick
Mensagens: 269
Registrado em: 08 Mar 2016, 19:39

Re: Código não funciona

Mensagempor José Waldick » 30 Jan 2018, 16:19

Perfeito!
Deus é bom e fiel!

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.



Voltar para “Formulários”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 2 visitantes