Boa tarde amigos, Estou fazendo um VBA para atualizar valores da tabela através de dos valores selecionados em uma combobox, mas ele nao está reconhecendo o valor dos IDs e não consigo identificar o problema.
O combobox está ilustrado no anexo 1.
E aqui o VBA:
Ao rodar o VBA recebo uma mensagem que nenhuma linha será afetada. Testei o codigo digitando os ID direto no VBA e dessa forma ele encontra linhas para atualizar.
Agradeço a ajuda!
O combobox está ilustrado no anexo 1.
E aqui o VBA:
- Código:
Option Compare Database
Private Sub btnSalvarEntrega_Click()
Dim ctlSource As control
Dim strItem As Integer
Dim strItems As String
Dim intCurrentRow As Integer
Dim valorCheques As Currency
Dim strSql As String
Dim strParm As String
Set ctlSource = Me.lstCheques
If MsgBox("Tem certeza que deseja incluir os cheques selecionados na relação de entrega?", vbYesNo, "Confirmar Entrega") = vbYes Then
strSql = "UPDATE tbl_cadCheques SET tbl_cadCheques.StatusCheque = 2 WHERE (tbl_cadCheques.ID_CadCheques) =" & strItem
For intCurrentRow = 0 To ctlSource.ListCount - 1
If ctlSource.Selected(intCurrentRow) Then
strItem = CInt(ctlSource.Column(0, intCurrentRow))
strItems = strItems & ctlSource.Column(0, _
intCurrentRow) & ";"
valorCheques = valorCheques + ctlSource.Column(2, intCurrentRow)
DoCmd.RunSQL strSql
End If
Next intCurrentRow
Me.txtValor = valorCheques
End If
MsgBox "Os cheques " & strItems & " no valor total de " & Format(valorCheques, "Currency") & " foram processados.", vbInformation, "Processo concluído com sucesso!"
Set ctlSource = Nothing
End Sub
Ao rodar o VBA recebo uma mensagem que nenhuma linha será afetada. Testei o codigo digitando os ID direto no VBA e dessa forma ele encontra linhas para atualizar.
Agradeço a ajuda!