MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    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


    .................................................................................
    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: Sex 09 Dez 2016, 07:40