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

    Dim com problemas

    Compartilhe

    cjmano
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 17/03/2016

    Dim com problemas

    Mensagem  cjmano em Qui 17 Mar 2016, 02:36

    Boa noite, podem me ajudar, não sei, começou a apresentar o erro e antes não ocorria.


    Function OnOfLine()
    Dim db As Database
    Dim rs As Recordset

    Set db = CurrentDb()

    Set rs = db.OpenRecordset("select * from historicoDeAcesso where Usuario='" & UserLog & "' and OnLine='" & UsuarioOnline & "'", dbOpenDynaset)

    While Not rs.EOF
    rs.Edit
    rs![OnLine] = "OfLine"
    rs![DataHoraDaSaida] = Texto161
    rs.Update
    rs.MoveNext
    Wend

    rs.Close
    db.Close

    End Function
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9376
    Registrado : 04/11/2009

    Re: Dim com problemas

    Mensagem  JPaulo em Qui 17 Mar 2016, 10:55

    Ola seja bem vindo ao fórum;

    Fiz um teste assim e funfou;

    Teste e retorne;

    Código:
    Public Function OnOfLine()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim UserLog$
    Dim UsuarioOnline$

    UserLog = "jpaulo"
    UsuarioOnline = "Online"

    Set db = CurrentDb()

    Set rs = db.OpenRecordset("select * from historicoDeAcesso where Usuario='" & UserLog & "' and OnLine='" & UsuarioOnline & "'")

    'se não encontrar registro, morre aqui
    If rs.RecordCount = 0 Then
    'além de fechar, tem de limpar a memoria com o = Nothing
        rs.Close: Set rs = Nothing
        db.Close: Set db = Nothing
    'pára a função
        Exit Function
    End If

    While Not rs.EOF
        rs.Edit
            rs![OnLine] = "OfLine"
            rs![DataHoraDaSaida] = Now() 'Me!Texto161
        rs.Update
        rs.MoveNext
    Wend
    'além de fechar, tem de limpar a memoria com o = Nothing
    rs.Close: Set rs = Nothing
    db.Close: Set db = Nothing
    End Function


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Qua 16 Ago 2017, 16:24