Tenho o seguinte codigo
Private Sub Cboproduto_LostFocus()
On Error GoTo LoadError
TBPRODUTOS.Index = "Prod"
TBPRODUTOS.Seek "=", Cboproduto.Text
If TBPRODUTOS.NoMatch = False Then
txtcodigo.Text = TBPRODUTOS("CÓD")
txtitem.Text = TBPRODUTOS("Item")
txtunidade.Text = TBPRODUTOS("Unid")
txtgrupamento.Text = TBPRODUTOS("Grupamento")
txtcota.Text = TBPRODUTOS("Cota")
txtmensal.Text = TBPRODUTOS("Mensal")
txtsaldo.Text = TBPRODUTOS("saldo")
txtunit.Text = TBPRODUTOS("Unit")
txtvmensal.Text = TBPRODUTOS("Mensal1")
txttotal.Text = TBPRODUTOS("Total")
tbpedido.Index = "INDICE"
tbpedido.Seek "=", txtnumero.Text, txtcodigo.Text
If tbpedido.NoMatch = False Then
MsgBox "Produto já cadastrado neste pedido.", vbInformation, "Atenção"
txtpedido.Text = 0
Cboproduto.SetFocus
Exit Sub
End If
TBVER.Index = "id"
TBVER.Seek "=", Month(txtdata.Text), txtcodigo.Text
If TBVER.NoMatch = False Then
TBVER.Edit
txtmes.Text = Month(txtdata.Text)
txtcodigo.Text = TBVER("idprod")
txtquant.Text = TBVER("quant")
Cmes.Text = TBVER("quant")
Else
TBVER.AddNew
txtmes.Text = Month(txtdata.Text)
txtquant.Text = 0
Cmes.Text = 0
End If
Else
Cboproduto.SetFocus
MsgBox "Produto não Cadastrado. Tente outro Produto"
Exit Sub
End If
LoadError:
If Err.Number > 0 Then
MsgBox "Erro número #" & Str$(Err.Number) & " na Linha " & Str$(Erl) & " - " & Err.Description & " - gerado por " & Err.Source & "." & " Tela Deletados Chame o reponsável pelo sistema, O Sistema será fechado.", vbCritical, "Tratamento de Erro."
End
End If
End Sub
EM TEMPO DE PROJETO FUNCIONA NORMALMENTE.
JÁ QUANDO USO O EXECUTAVEL DA A SEGUINTE MENSAGEM:
RUN-TIME ERROR '5'
INVALID PROCEDURE CALL OR ARGUMENT
