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.