Jump to content
Fórum Script Brasil
  • 0

Caixa de Listagem (Seleção)


Thiago M Silva
 Share

Question

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

Edited by Thiago M Silva
Link to comment
Share on other sites

0 answers to this question

Recommended Posts

There have been no answers to this question yet

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share



  • Forum Statistics

    • Total Topics
      150.8k
    • Total Posts
      648.7k
×
×
  • Create New...