Vb6 ADODB.Recordset

[Verônica Pacheco]

Oii Galera, estou com um problema no sistema de uma empresa que damos suporte, bom quando eu entro com um codigo ele te que trazer uns seguinte campo preenchidos so que assim que eu coloco numero do plano 2 (pois é um sistema hospitalar) ele me traz a seguinte tela e com o seguinte erro , " Run time error '3265' O item não pode ser encontrado na coleção correspondente ao nome ou ao ordinal solicitado"

e eu andei pesquisando vi que esse erro pode acontecer atraves do ADODB, so que já olhei a função varias vezes e não consigo achar o erro, por favor podem me ajudar!

Function Fl_Verifica_Permissao(cSistema As String, nSq_Grupo As Integer) As Boolean

Dim rs_modulo As New ADODB.Recordset

Dim nMdi, nInd, nInd2 As Integer

nMdi = Trim(Mdi.Controls.Count - 1)

'Desabilta todos os ítens da MDI com exceção dos separadores

For nInd = 0 To nMdi

'Desabilita o menu

If TypeOf Mdi.Controls(nInd) Is Menu Then

If UCase(Trim(Mdi.Controls(nInd).Tag)) <> "" Then

Mdi.Controls(nInd).Enabled = False

End If

End If

'Desabilita a barra de ferramentas

If TypeOf Mdi.Controls(nInd) Is Toolbar Then

For nInd2 = 1 To Mdi.barraferramentas.Buttons.Count

If UCase(Trim(Mdi.barraferramentas.Buttons.Item(nInd2).Tag)) <> "" Then

Mdi.barraferramentas.Buttons.Item(nInd2).Enabled = False

End If

Next nInd2

End If

Next nInd

'Acha o nome dos módulos para efetuar as habiltações

csel = "SELECT M.nm_modulo "

csel = csel + "FROM tb_modulo M, tb_acesso A "

csel = csel + " where M.sq_modulo = A.sq_modulo AND "

csel = csel + " M.id_sistema = A.id_sistema AND "

csel = csel + " A.id_sistema = '" + UCase(Trim(cId_Sistema)) + "' AND "

csel = csel + " A.sq_grupo = " + Trim(nSq_Grupo) + ""

Set rs_modulo = BaseDados_db.Execute(csel)

If rs_modulo.RecordCount = 0 Then

Beep

MsgBox "", vbOKOnly + vbExclamation, "Atenção"

Fl_Verifica_Permissao = False

Exit Function

Else

Do While Not rs_modulo.EOF

For nInd = 0 To nMdi

'Habilita o menu

If TypeOf Mdi.Controls(nInd) Is Menu Then

If UCase(Trim(Mdi.Controls(nInd).Tag)) = UCase(Trim(rs_modulo!nm_modulo)) Then

Mdi.Controls(nInd).Enabled = True

End If

End If

'Habilita a barra de ferramentas

If TypeOf Mdi.Controls(nInd) Is Toolbar Then

For nInd2 = 1 To Mdi.barraferramentas.Buttons.Count

If UCase(Trim(Mdi.barraferramentas.Buttons.Item(nInd2).Tag)) = UCase(Trim(rs_modulo!nm_modulo)) Then

Mdi.barraferramentas.Buttons.Item(nInd2).Enabled = True

End If

Next nInd2

End If

Next

rs_modulo.MoveNext

Loop

End If

Fl_Verifica_Permissao = True

Exit Function

End Function

[Flechaus]

Só faltou dizer exatamente em qual linha ocorre o erro.

Este erro pode estar ligado a:

>Uso de Alias.

>Referência a um campo que não existe na tabela.

>Tabela sem chave-primária definida.

Boa sorte.