ERRO CHECK

Private Sub CmdBuscar_Click()
    If TxtMovimentacao(1) = Empty Then Exit Sub
    Call MostraDados
    TxtMovimentacao(6).SetFocus
End Sub

Private Sub CmdConfirmar_Click()
If TxtMovimentacao(0) = Empty Then
    MsgBox "Digite o Nº da nota!", vbCritical, "Operação invalida"
    TxtMovimentacao(0).SetFocus
    Exit Sub
End If

If TxtMovimentacao(7) = Empty Then
    MsgBox "Digite a origem!", vbCritical, "Operação invalida"
    TxtMovimentacao(7).SetFocus
    Exit Sub
End If

If TxtMovimentacao(11) = Empty Then
    MsgBox "Digite a data da nota!", vbCritical, "Operação invalida"
    TxtMovimentacao(11).SetFocus
    Exit Sub
End If

If TxtMovimentacao(6) = 0 Then
    MsgBox "Digite a quantidade a registrar!", vbCritical, "Operação invalida"
    TxtMovimentacao(6).SetFocus
    Exit Sub
End If

If TxtMovimentacao(1) = Empty Then
    MsgBox "Digite o código do produto!", vbCritical, "Operação invalida"
    TxtMovimentacao(1).SetFocus
    Exit Sub
End If


Select Case StrTipo

'case seja para registrar a saida de um produto...
Case "Saida"
'caso a qtd solicitada seja maior que a do estoque...
    If Val(TxtMovimentacao(6)) > Val(TxtMovimentacao(5)) Then
        MsgBox "Não é possivel remover a quantidade especificada.", vbCritical, "Quantidade insufuciente no estoque"
        Exit Sub
    End If

'dando baixa no estoque
    Rsprodutos(4) = Val(TxtMovimentacao(5)) - Val(TxtMovimentacao(6))
    Rsprodutos.Update
'registrando a movimentacao
    RsMovimentacao.AddNew
    
    RsMovimentacao(0) = TxtMovimentacao(0)
    RsMovimentacao(7) = TxtMovimentacao(7)
    RsMovimentacao(11) = TxtMovimentacao(11)
    RsMovimentacao(1) = TxtMovimentacao(1)
    RsMovimentacao(2) = TxtMovimentacao(4)
    RsMovimentacao(3) = TxtMovimentacao(6)
    RsMovimentacao(9) = TxtMovimentacao(2)
    RsMovimentacao(10) = TxtMovimentacao(8)
    RsMovimentacao(4) = TxtMovimentacao(6) * Rsprodutos(3)
    RsMovimentacao(5) = StrTipo
    RsMovimentacao(6) = Date
    
    
    RsMovimentacao.Update
    
    MsgBox "Movimentação registrada!", vbInformation, "Confirmação"
    
    TxtMovimentacao(0).SetFocus
    TxtMovimentacao(7).SetFocus
    TxtMovimentacao(11).SetFocus
    TxtMovimentacao(6) = 0
    
    Call MostraDados
    
    If Val(TxtMovimentacao(5)) = 0 Then
        MsgBox "Produtos esgotado!", vbCritical, "Atenção"
        Exit Sub
    End If
    
    
Case "Entrada"
'caso seja para registrar a entrada do produto
    Rsprodutos(4) = Val(TxtMovimentacao(5)) + Val(TxtMovimentacao(6))
    Rsprodutos.Update
    
    RsMovimentacao.AddNew
    
    RsMovimentacao(0) = TxtMovimentacao(0)
    RsMovimentacao(7) = TxtMovimentacao(7)
    RsMovimentacao(11) = TxtMovimentacao(11)
    RsMovimentacao(1) = TxtMovimentacao(1)
    RsMovimentacao(2) = TxtMovimentacao(4)
    RsMovimentacao(3) = TxtMovimentacao(6)
    RsMovimentacao(9) = TxtMovimentacao(2)
    RsMovimentacao(10) = TxtMovimentacao(8)
    RsMovimentacao(4) = (TxtMovimentacao(6)) * (Rsprodutos(3))
    RsMovimentacao(5) = StrTipo
    RsMovimentacao(6) = Date
    
    RsMovimentacao.Update
    
    MsgBox "Movimentação registrada!", vbInformation, "Confirmação"
    
    TxtMovimentacao(0).SetFocus
    TxtMovimentacao(7).SetFocus
    TxtMovimentacao(11).SetFocus
    TxtMovimentacao(6) = 0
    
    Call MostraDados

End Select
End Sub

Private Sub CmdFechar_Click()
Unload Me
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 27 Then Unload Me

End Sub

Private Sub Form_Load()
Centraliza Me
'Abrindo as tbs produtos e movimentacao
Set Rsprodutos = New ADODB.Recordset

Rsprodutos.Open "Select * From Produtos Order By Codigo", Conexao, adOpenKeyset, adLockOptimistic

Set RsMovimentacao = New ADODB.Recordset
RsMovimentacao.Open "Select * From Movimentacao", Conexao, adOpenKeyset, adLockPessimistic

End Sub

Private Sub Form_Unload(Cancel As Integer)
Select Case StrTipo
'desabilitando os menus de acordo com as operações "Saida" e "Entrada"
    Case "Entrada"
        MDIMenu.ItmSaida.Enabled = True
        StrTipo = Empty
    Case "Saida"
        MDIMenu.itmEntrada.Enabled = True
        StrTipo = Empty
End Select

'Fechando as tbs e limpando as var's da memoria
RsMovimentacao.Close
Set RsMovimentacao = Nothing

Rsprodutos.Close
Set Rsprodutos = Nothing
End Sub

Private Sub Label12_Click()

End Sub

Private Sub TxtMovimentacao_Change(Index As Integer)
Select Case Index
    Case 1
    'simulando o clique do botao buscar caso a qtd de caracteres do text for = 4
        If Len(TxtMovimentacao(1)) = 4 Then CmdBuscar_Click
    
    Case 6
        If Val(TxtMovimentacao(6)) > 0 Then
            CmdConfirmar.Default = True
        Else
            CmdConfirmar.Default = False
        End If
    End Select
End Sub

Private Sub TxtMovimentacao_GotFocus(Index As Integer)
For i = 0 To 6
'selecionando o conteudo dos texts ao receber o foco
    TxtMovimentacao(i).SelStart = 0
    TxtMovimentacao(i).SelLength = Len(TxtMovimentacao(i))
Next
End Sub

Private Sub TxtMovimentacao_KeyPress(Index As Integer, KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))   'Tudo que vc Escreve Fica Maiusculo
End Sub