[Resolvido]Erro simples sobre duas verificações, mas não encontrado

Boa noite colega.

Um erro simples, mas não consigo encontrar.
Tenho duas verificações.

Uma tabela com campos
processador - versãoMarca

no formulário fica os campos
txtProcessador - txtVersaoMarca

Ele consegue ler e comparar o txtVersaoMarca, mas não compara o processador

Código:

Function abrirSistema()
Dim meuProcessador As String
Dim marcaDopc As String
meuProcessador = DLookup("processador", "tbl_Info", "txtProcessado='" & Me.txtProcessado & "'")
marcaDopc = DLookup("marcaVersao", "tbl_Info", "txtMarcaVersao='" & Me.txtMarcaVersao & "'")


If meuProcessador = Me.txtProcessado Then 'And marcaDopc = Me.txtMarcaVersaDLookup("marcaVersao", "tbl_Info", "txtMarcaVersao='" & Me.txtMarcaVersao, "") & "'"o Then
        MsgBox "***ABERTO***"
    Else
        MsgBox "***FECHADO***"
    End If
End Function

O processador que está na tabela é o mesmo que está no campo do formulário que puxa pela informações da placa, que é;
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz

Gilliard,
Na "tbl_info", o nome do campo "txtProcessado" é igual ao nome do campo do formulário? É isso mesmo?

Ou pode ser problema de espaço em branco no campo. Use a função Trim para limpar espaço em branco na expressão:
meuProcessador = DLookup("processador", "tbl_Info", "txtProcessado='" & Trim(Me.txtProcessado) & "'")

Att,

Alexandre Fim

Já fiz. Já usei replace para ver se o problema era caracteres
Agora ele esta me passando nulo.

Crysostomo?
A tabela tbl_Info está como vinculada, e a base de dados com a tabela de origem não veio com o sistema
Por gentileza, mande o banco de dados com referida tabela, ou manda uma versão dos sistema com a tbl_Info como "Local".

Valeu

Att,

Alexandre Fim

Iii rapaz, desculpa.
Irei manda para você amanhã de manhã.

Boa noite
altere de
meuProcessador = DLookup("processador", "tbl_Info", "txtProcessado='" & Trim(Me.txtProcessado) & "'")
para
meuProcessador = DLookup("processador", "tbl_Info", "Processador='" & Trim(Me.txtProcessador) & "'")

Boa tarde.
Neves, já fiz, colocando o Replace e trim tanto nos evento e no módulo para ver se o problema era a cateteres especiais já distribui os eventos para ver se era a demora  de me retornar os valores para ser verificado.
Ele não verifica se o processador é igual, somente a marcaVersao.

UP

Boa noite
Reveja se a MarcaVersao da txtMarcaVersao existe na tabela, dá erro de nulo caso não exista

Teste. Substitua
marcaDopc = DLookup("marcaVersao", "tbl_Info", "marcaVersao='" & Me.txtMarcaVersao & "'")
Por

Código:

If marcaDopc = DCount("marcaVersao", "tbl_Info", "marcaVersao='" & Me.txtMarcaVersao & "'") = 0 Then
    marcaDopc = ""
    meuProcessador = ""
Else
    marcaDopc = DLookup("marcaVersao", "tbl_Info", "marcaVersao='" & Me.txtMarcaVersao & "'")
    meuProcessador = DLookup("processador", "tbl_Info", "Processador='" & Trim(Me.txtProcessador) & "'")
End If

Boa tarde Marcel Neves.
Eu já fiz, pelo dcount e outros, como pode dar nulo sendo que ele coloca o processador no campo para comprar?

Boa tarde

acompanhe a execução do código passo-a-passo para ver onde não funciona, no meu caso, foi por não ter o modelo na tabela

Irei fazer outro aqui e repasso o anexo novo

Boa noite. Já refiz ela em vários outros, mas não deu.
Anexo

no meu ponto de vista o código esta correto. apenas o tratamento que não está

Crysostomo, boa noite

O problema era a propriedade "MaxClockSpeed" ,do objeto "objItem", que não era concatenada com os dados do processador, e ao comparar com os dados na tabela, o Access não encontrava trazendo Null na função "Dlookup":



Eu preservei o formulário antigo (que também está funcionando) e criei um novo, que ficou assim:



OBS:eu comentei o código da função "Nivel_Transparencia" para testar e verificar os dados na tela.
Retire os comentários para funcionar como desejado.

Segue versão.

Espero ter ajudado.

Att,

Alexandre Fim

Alexandre, bom dia. te retorno a noite.

Boa noite Alexandre. Essa comparação que estou fazendo é de licença do sistema à maquina, ou seja, Se o processador e marcaEVersao (tabela e formulário) não bater o sistema não pode rodar.
Tanto o modulo nomeCompletoProcessador e ObterInformacoesComputador não podemos alterar porque não vai ser todas as WMI que passará características iguais e isso vai dar como objeto oculto procurando GHz e outros, tudo tem que ficar dentro de uma String.
Na tabela só vai ter um registro.

Aqui você pode ver que as informações WMI estão chegando no formulário ( Marca e processador), mas ele não está indo verificar se é igual aos dados que estão na tabela, ele só verifica o campo marcaEVersao, mas não verifica o campo processador.

Crysostomo bom dia,

A validação mais comum utilizada para verificação de licenças é capturar o Serial Number do HD da máquina, pois é onde o sistema está instalado/localizado.
Os dados de processador e marca/modelo da máquina não são relevantes pois não tem relação direta com o sistema instalado.

Me dê mais detalhes sobre esta validação.
1 - o sistema é instalado nas máquinas do seu local de trabalho?
2 - se o sistema roda em rede, os dados de licença dos usuários devem estar TODOS na tabela "tbl_Info", para fazer a validação, pois se algum usuario copiar o sistema para outra máquina, não vai rodar porque o serial number da máquina não vai estar cadastrado na tabela.

É isso??

Att,

Alexandre Fim

Boa tarde Alexandre. Ele está sendo criado para outros fins
Não posso colocar para o número do HD, pois ao formatar a máquina o número do do HD é trocado, não quero deixar ele em rede quero deixar ele totalmente off e não posso criar uma chave simples como licença uma imagem por exemplo.
A única informação que não da problema é do WMI.
Mesmo eu deixando ele para verificar diretamente no código sem precisar verificar tabela, ou seja;
ex
meuProcessador "intel Celeron 240ghz"
meuPc =" Accer Es-15"

if txtcampoProcessador =meuProcessador and  txtCampoDoPc= meuPc  [...]

Mesmo ele verificando direto pelo código ou indo verificar a tabela ele não verifica o processador, somente o meuPc.
Quero que ele verifique essas duas informações porque o computador nessa marca e versão pode ter em outro lugar.

Bom dia, o que não entendo mesmo colocando como variant e string a minha variavél meu Processador passa como nulo e a marcaEVersao passa certa

Crysostomo,

O problema está mencionado na Mensagem nº15.
Verifique.

Att,
Alexandre Fim

Alexandre, conforme  na memsagem de nº17 não pode haver alteração.
Retornarei

Desculpe a demora.
Utilizo ele. Irei estudar a mais nesse código.
Obrigado.