MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]navegar em um recordset

    Compartilhe

    joão2017
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 72
    Registrado : 16/09/2017

    [Resolvido]navegar em um recordset

    Mensagem  joão2017 em 24/5/2018, 17:24

    Boa tarde!
    Encontrei aqui o exemplo de navegar em formulario desvinculado abaixo, do amigo JPaulo:
    Private cn As ADODB.Connection
    Private rs As ADODB.Recordset


    Private Sub Form_Load()
    On Error Resume Next
    Set cn = CurrentProject.Connection
    Set rs = New ADODB.Recordset

    With rs
    Set .ActiveConnection = cn
    .Source = "SELECT * FROM Clientes"
    .LockType = adLockOptimistic
    .CursorType = adOpenKeyset
    .Open
    End With

    Set Me.Recordset = rs

    Me.codCliente = rs!codCliente
    Me.nomeCliente = rs!nomeCliente
    Me.endCliente = rs!endCliente
    Me.Cidade = rs!Cidade
    Me.UF = rs!UF
    End Sub


    Private Sub btProximo_Click()
    Me.Recordset.MoveNext
    Me.codCliente = rs!codCliente
    Me.nomeCliente = rs!nomeCliente
    Me.endCliente = rs!endCliente
    Me.Cidade = rs!Cidade
    Me.UF = rs!UF
    End Sub


    Private Sub Form_Close()
    rs.Close
    cn.Close
    Set rs = Nothing
    End Sub


    a parte do código ao fechar da erro variavel não definida.
    rs.Close
    cn.Close
    Set rs = Nothing

    onde estou errando?

    Obrigado.

    joão2017
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 72
    Registrado : 16/09/2017

    Re: [Resolvido]navegar em um recordset

    Mensagem  joão2017 em 24/5/2018, 17:58

    Resolví pessoal, declarei as variaveis na sessão geral, esse era o erro

    Obrigado


      Data/hora atual: 21/7/2018, 14:32