Jump to content


Photo

Rapidinho - Preciso De Ajuda Com Esta Função


  • Faça o login para participar
Nenhuma resposta neste tópico

#1 ecbert

ecbert

    Viver resume tudo!

  • Usuários
  • 88 posts
  • Sexo:Não informado
  • Interesses:Viver!<br>...resume tudo.

Posted 30/03/2004, 14:55

O que há de errado na implementação deste método? :blink:

Public Function ExibirItens(codigo As Long, itens As Collection) As Boolean

On Error GoTo trata_erro_exibiritens

Dim strSQL As String
Set rsItensPedidos = New ADODB.Recordset
strSQL = "SELECT * FROM ItensPedidos WHERE CodigoPedido = " & codigo

rsItensPedidos.Open strSQL, oConexao, adOpenKeyset, adLockPessimistic

If rsItensPedidos.BOF Then
ExibirItens = True
Else
Set itens = New Collection
Dim oitemPedido As itens 
Do While Not rsItensPedidos.EOF
Set oitemPedido = New Collection

With oitemPedido
.CodigoPedido = rsItensPedidos("CodigoPedido")
.CodigoProduto = rsItensPedidos("CodigoProduto")
.PrecoUnitario = rsItensPedidos("PrecoUnitario")
.Desconto = rsItensPedidos("Desconto")
End With
itens.Add oitemPedido
rsItensPedidos.movenext
Loop
End If

rsItensPedidos.Close
ExibirItens = True
Exit Sub

trata_erro_exibiritens:

MsgBox " Ocorreu um erro durante a tentativa de exibir o item de pedido para o codigo : " & codigo & vbCrLf & _
" Erro número : " & Err.Number & vbCrLf & _
" Detalhes : " & Err.Description

Excluir = False

End Function

Dá esse famoso erro:
Compiler error: User-defined type not defined
na linha do Dim oitemPedido As itens

o que acontece? :unsure:

Edição feita por: ecbert, 30/03/2004, 14:57.

Elaine
WebDesigner e Produtora Multimídia
ecbert@ig.com.br

Por que cometer erros antigos se há tantos erros novos a escolher?




1 user(s) are reading this topic

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq