Kelvin Lima

Existe uma programação criada por outro usuário que, pelo que ele me explicou, lê algo no Windows e dai libera o acesso ao formulário conforme uma tabela existente de login. Já realizei o cadastro de uma pessoa nessa tabela de login, porém o usuário não consegue acessar o arquivo, até mesmo a mensagem de erro que era pra aparecer caso não estivesse cadastrado, não aparece. Podem me ajudar pra identificar o que ele lê na máquina ou dar outra solução para o caso? O sistema trava no autoexec. Option Compare Database Function Exec_Login() Dim rs As DAO.Recordset, dummy As Boolean, func As String AllowBypassKey = True Set rs = CurrentDb.OpenRecordset("SELECT cID FROM tb_Login") rs.MoveFirst dummy = False Do If UCase(rs(0)) = UCase(Environ("UserName")) Then dummy = True Exit Do End If rs.MoveNext Loop Until rs.EOF = True If dummy = False Then MsgBox UCase("Você não tem acesso a este banco de dados!") & vbNewLine & _ "Em caso de dúvidas, entre em contato com a Mesa até R$ 100 Mil", _ vbCritical, "CONTROLE DE ACESSO" Access.Application.Quit Else: func = DLookup("[NOME]", "[tb_Login]", "[cID] = " & "'" & UCase(Environ("UserName") & "'")) MsgBox "Bem vindo, " & func & "!", vbInformation, "ACESSO AO SISTEMA." Form_frm_Prop.Visible = True End If End Function

Prezados, tenho que criar algumas tabelas dinâmicas, mas a fonte sempre é a mesma. O problema é que na virada de um mês para outro o número de linha pode aumentar, e acaba desconfigurando a programação. Preciso que o sistema utilize o número exato de linhas da planilha para fazer a Tabela dinâmica, como faço isso? ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ "Planilha1!R1C1:R1000C15", Version:=6).CreatePivotTable TableDestination:= _ "Planilha2!R3C1", TableName:="Tabela dinâmica1", DefaultVersion:=6 tentei localizar a ultima linha e depois criar a tabela dinâmica, mas não estou conseguindo colocar isso no código acima, ex: Range("A1").Select_ LinhaFinal2 = Cells(Rows.Count, 1).End(xlUp).Row

Isso mesmo, dia 24/05, achei que resolveria o problema porque traz as configurações ideias estabelecidas pelo fabricante, além de remover praticamente tudo no pc. Baixei as atualizações automáticas e o jogo, não resolveu o problema.

@Wal SJC Eu não tinha ideia da dor de cabeça no processo, realmente não fiz cópia da imagem. O maior problema é que já fiz tudo isso, porém até o momento sem solução. Formatei duas vezes, restaurei para as configurações de fábrica, desinstalei o jogo, placa de vídeo, drivers etc. Nada resolve! Não entendo bem de configurações avançadas, por isso não me arrisco mais do que já fiz. =(

Prezados, boa noite. Estou com um problema que há pouco me atormenta, porém me atormenta bastante. Minha placa de vídeo começou a dar problema depois que fiz a atualização para o W10. Fiz o down para o W7, restaurei as configurações de fábrica, porém nada certo. Até então ela trava quando vou iniciar Dota2 (da a tela azul da morte, antes dava aquele erro "kernel xx.xxx" e voltava o vídeo, mas o jogo não entra), o jogo é pesado, mas não sei o porquê de ter parado de funcionar sendo que antes eu jogava sem problema algum (já aconteceu de travar com outros jogos, vendo filme e um programa de recovery da Dell). Li que é a atualização de driver o problema, que pode ser clock, GPU, etc etc, já segui vários tutoriais e nada resolveu, preciso de algo específico para o meu caso. HEEELP