Nenhuma resposta neste tópico

[ecbert]

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

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?

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