Caixa de Listagem (Seleção)

[Thiago M Silva]

Bom dia!

Pessoal estou com o seguinte problema:

Tenho duas listagens de materiais sendo que uma é de materiais pendentes para contar e outra de materiais que estão sendo contados. Quando o material é enviado de uma lista para outra o status é alterado de Pendente para Contando.

O meu problema é o seguinte, quando envio o material da lista de Pendente para a lista de Contando não consigo "travar dando um erro" ou seja, posso ficar enviando um material para a lista que já está sendo contado varias vezem, quero que ele não adicione pois ele já se encontra na lista!

O código que estou usando é esse:

Private Sub btn_contar_Click()
On Error GoTo erro
1:  'variaveis
    Dim bd As DAO.Database
    Dim wm As DAO.Recordset
    Dim pen As DAO.Recordset
    Dim i As Variant
    Dim SQL As String
    Dim edit As Boolean

    Set bd = CurrentDb
    SQL = "SELECT bd_contagem.Indice, bd_contagem.Material, bd_contagem.Linha, bd_contagem.Status, bd_contagem.Controlador, bd_contagem.Tipo FROM bd_contagem;"
    Set wm = bd.OpenRecordset(SQL, dbOpenDynaset)
    Set pen = bd.OpenRecordset("bd_contagem", dbOpenDynaset)

    edit = False

2:  '&&&&&&&&&&& Verifica se foram selecionado lotes em sequencia &&&&&&&&&
    For Each i In lista_contar.ItemsSelected

        If Len(lista_contar.Column(5, i)) = "Contando" Then
          [b]  MsgBox "Este material já está sendo contado!", vbInformation, "Ação Cancelada!"[/b]
            GoTo sair
        End If

        With pen
            .FindFirst "[indice] = " & lista_contar.Column(0, i)
            If .NoMatch Then
                MsgBox "Erro ao selecionar o item! Talvez o item já tenha sido contado!" & vbCrLf & "Atualize a tela!", vbExclamation, "Atenção"
                GoTo sair
            Else
                edit = True
                .edit
                .Fields("status") = "Contando"
                .Fields("Fechado_Por") = Me.box_logado
                .update
            End If

        End With

    Next

3:  'finaliza
    If edit = True Then
        MsgBox "Iten(s) adicionado(s) a lista de contagem com êxito!", vbInformation, "Aviso"
    Else
        MsgBox "Não foi possível adicionar o(s) iten(s) a lista", vbInformation, "Aviso"
    End If
    bd.Close
    Me.lista_contando.Requery
    Me.lista_contar.Requery
sair:
    Exit Sub

erro:
    GeraLog "CONTAR", "btn_contar_Click()", Erl
End Sub

imagem do sistema: http://social.msdn.microsoft.com/Forums/getfile/139637

Editado Julho 18, 2012 por Thiago M Silva