[Resolvido]Dúvida no uso da função DLookup

Bom dia amigos do forum.

O código abaixo, usando DLookup, funciona certinho para campos numéricos. Como faço para adapta-lo para um campo Geral, que recebe letras e números?
(por exemplo: R-203, ou R-101, ou R-301 etc.) . A função do código é não permitir que sejam salvos "Prontuários" repetidos na tabela.

If (Not IsNull(DLookup([Prontuário], "Tbl_Titular", "[Prontuário] = " & Me!Prontuário))) Then
MsgBox " Esse Prontuário já está Cadastrado." & Chr(13) & Chr(13) & " Não é possível cadastrar duas vezes o mesmo Prontuário.", vbInformation, "Cadastro"
Cancel = True
Me.Prontuário = ""
Me.Undo
End If



Obrigado.

Walter

Bom dia e excelente semana!

Para campos do tipo texto (geral), o texto tem que está envolto de aspas simples '.

Seu código fica assim:

If (Not IsNull(DLookup([CompoGeralTabela], "Tbl_Titular", "[CompoGeralTabela] = '" & Me!CampoGeralForm & "'"))) Then

Bom dia Marcelo.
Obrigado pela sua atenção.

Testei o código como você sugeriu mas não funcionou. Dá mensagem que o prontuário JÁ ESTÁ CADASTRADO, mesmo não estando...

Não sei o motivo...

O código que passei, que na verdade é apenas a adequação do seu,
apenas verifica se não está nulo uma informação.

Se ele está executando a linha de dentro do IF, isso indica que o dlookup
encontrou algo.

Como teste, habilite a janela de verificação imediata, com CTRL + G, no editor do vba.

acrescente a linha em itálico no respectivo lugar do seu código, seguindo a mesma ordem abaixo:

If (Not IsNull(DLookup([CompoGeralTabela], "Tbl_Titular", "[CompoGeralTabela] = '" & Me!CampoGeralForm & "'"))) Then
Debug.Print DLookup([CompoGeralTabela], "Tbl_Titular", "[CompoGeralTabela] = '" & Me!CampoGeralForm & "'")

Execute o código. Volte ao VBA e na janela de verificação imediata, veja o que retornou.

Aguardamos o resultado.

Passando aqui apenas para um pitaco.

Walter,

Verifique se na tabela "Tbl_Titular" se o campo "geral" está sendo gravado com espaços em brancos no inicio e no fim.

Utilize a função Trim para eliminar esses espaços na pesquisa também:

If (Not IsNull(DLookup([CompoGeralTabela], "Tbl_Titular", "[CompoGeralTabela] = '" & Trim(Me!CampoGeralForm & "'")))) Then


Espero ter ajudado.

Boa sorte

[]'s

FIM

Olá, Marcelo.

Não sei se fiz corretamente.
Ainda não aprendi a usar esse procedimento na janela de verificação imediata.

Coloquei esse código lá e dei Enter (É assim mesmo que se faz?)

If (Not IsNull(DLookup([Prontuário], "Tbl_Titular", "[Prontuário] = '" & Me!Prontuário & "'"))) Then
Debug.Print DLookup([Prontuário], "Tbl_Titular", "[Prontuário] = '" & Me!Prontuário & "'")
MsgBox " Esse Prontuário já está Cadastrado." & Chr(13) & Chr(13) & " Não é possível cadastrar duas vezes o mesmo Prontuário.", vbInformation, "Cadastro"
Cancel = True
Me.Prontuário = ""
Me.Undo

E resultou na seguinte mensagem:

"Erro de Compilação:
A variável ainda não foi criada neste contexto"

Confesso que não entendi nada...

Ficará mais fácil vc postando aqui as partes envolvidas do seu sistemas, daí, daremos uma verificada.

Olá, Alexandre.
Obrigado pelo seu "pitaco"...
Testei com a função TRIM (que eu não conhecia), do jeitinho que você sugeriu, mas deu o mesmo problema...

Pedindo ajuda dos colegas.

Abaixo coloco o meu BD para que vocês tentem encontrar o erro.

Eu gostaria de colocar em número do prontuário um valor que tem uma letra e um número.
Tipo: R-34 ou R-125 ou R-01. Mas não consigo inserir assim porque o sistema diz que já tem esse valor salvo, mesmo não tendo...
Se tentar salvar apenas com número, aí funciona, mas eu não queria assim.

Quais são os nomes dos objetos para podemos verificar?

@Marcelo, é o Cadastro de Familias


Minha sugestão: use o Dcount

Código:



Private Sub Prontuário_AfterUpdate()
    
    If DCount([Prontuário], "Tbl_Titular", "[Prontuário] = '" & Trim(Me!Prontuário & "'")) > 0 Then
        MsgBox " Esse Prontuário já está Cadastrado." & Chr(13) & Chr(13) & " Não é possível cadastrar duas vezes o mesmo Prontuário.", vbInformation, "Cadastro"
        Cancel = True
        Me.Prontuário = ""
        Me.Undo
    End If
    
End Sub

Acho que vai funcionar

[]'s




Desculpe a demora, Alexandre.

Fiz o teste com a sua sugestão e continua dando o mesmo problema. Apesar de não existir o código impede o salvamento com a mensagem de que já existe o dado na tabela.

O que será que está acontecendo??

Marcelo.
realmente é no Fml_CadastroFamilias
E no campo: "Prontuário"

esse é o local que não está dando certo..

Obrigado

Walter

Bom dia Walter,
o caminho mais indicado é o Dcount como o Alexandre Fim falou mesmo.

Teste:

Código:

If DCount([Prontuário], "Tbl_Titular", "[Prontuário] = '" & Me!Prontuário & "'") > 0 Then
     MsgBox " Esse Prontuário já está Cadastrado." & Chr(13) & Chr(13) & " Não é possível cadastrar duas vezes o mesmo Prontuário.", vbInformation, "Cadastro"
     Cancel = True
     Me.Prontuário = ""
     Me.Undo
End If

Boa noite, Marcelo.
Muito estranho...

Testei com esses três códigos, e eles dão o mesmo resultado:
Se coloco apenas números ele salva normalmente.
Mas se coloco uma Letra antes do número aí ele dispara o MsgBox dizendo que já está cadastrado...

Código 1:

If (Not IsNull(DLookup([Prontuário], "Tbl_Titular", "[Prontuário] = '" & Me!Prontuário & "'"))) Then
MsgBox " Esse Prontuário já está Cadastrado." & Chr(13) & Chr(13) & " Não é possível cadastrar duas vezes o mesmo Prontuário.", vbInformation, "Cadastro"
Cancel = True
Me.Prontuário = ""
Me.Undo

End If
-------------------------------
Código 2

If DCount([Prontuário], "Tbl_Titular", "[Prontuário] = '" & Me!Prontuário & "'") > 0 Then
MsgBox " Esse Prontuário já está Cadastrado." & Chr(13) & Chr(13) & " Não é possível cadastrar duas vezes o mesmo Prontuário.", vbInformation, "Cadastro"
Cancel = True
Me.Prontuário = ""
Me.Undo
End If
-------------------------------------

Código 3

If DCount([Prontuário], "Tbl_Titular", "[Prontuário] = '" & Trim(Me!Prontuário & "'")) > 0 Then
MsgBox " Esse Prontuário já está Cadastrado." & Chr(13) & Chr(13) & " Não é possível cadastrar duas vezes o mesmo Prontuário.", vbInformation, "Cadastro"
Cancel = True
Me.Prontuário = ""
Me.Undo
End If
End Sub
----------------------------------

Bom dia,
Veja funcionando com o código que lhe passei anteriormente. Arquivo em anexo.
*Se eu entendi o que pretende.

Informe um prontuário que já exista, como por exemplo o 609.

Baixe aqui o seu arquivo.

Aguardamos,

Boa tarde, Marcelo.
Obrigado novamente pela sua atenção.
Acho que minha explicação, do que eu preciso, não ficou bem clara.
Se eu usar apenas números, para esse campo, funciona perfeitamente, mas os Prontuários aqui são ALFANUMERICOS, então podem ser:
SR-001
SR-002
SR-003
SR-004
etc
...

SS-001
SS-002
SS-003
etc

....

SD-001
SD-002
SD-003
etc.


Aí, se eu digitar um desses Prontuários (Alfanumericos), mesmo que o que digitei não esteja salvo na Tabela, a MsgBox é disparada. Acho que o Código não entende isso e pressupõe que já está cadastrado por ter caracteres que não são numéricos.
Talvez não seja possível fazer o que quero...

Walter,

O Prontuário está gravado na tabela com a máscara? Assim: SD-003
Ou está sem a máscara? Assim: SD003

OPS: Acabei de ver na tabel...não tem máscara

Não está gravando... Ele não salva.

Walter,

Copie e cole o código abaixo:

Código:



Private Sub Prontuário_AfterUpdate()
On Error GoTo trata_erro
Dim sSQL As String
Dim rs As DAO.Recordset


    sSQL = "SELECT Count(Tbl_Titular.CódigoTitular) AS cnt"
    sSQL = sSQL & " FROM Tbl_Titular"
    sSQL = sSQL & " WHERE (((Tbl_Titular.Prontuário)='" & Trim(Me.Prontuário) & "'));"
    
    Set rs = CurrentDb.OpenRecordset(sSQL)
    
    If rs("cnt") > 0 Then
        MsgBox " Esse Prontuário já está Cadastrado." & vbNewLine & " Não é possível cadastrar duas vezes o mesmo Prontuário.", vbInformation, "Cadastro"
        Cancel = True
        Me.Prontuário = ""
        Me.Undo
    End If
    
    rs.Close
    Set rs = Nothing
    
    Exit Sub

trata_erro:
    MsgBox "Erro gerado: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro"
    Exit Sub

    

End Sub




Acredito que irá funcionar

[]'s


FIM

Palmas! Palmas! Palmas!

Não entendi nada do seu código, Alexandre Fim. Mas funcionou direitinho, do jeito que eu queria.
Se você tiver um tempinho para explica-lo, eu e os demais iniciantes do Forum, ficaríamos agradecidos.

Deixo aqui meus sinceros agradecimentos a Alexandre Fim e a Marcelo David pelas contribuições.

Mais uma dúvida resolvida por esse excelente forum.

Um abraço a todos.

Walter

Olá Walter,

Fiz os comentários no código para que vc entenda o que cada linha executa:

Código:



Private Sub Prontuário_AfterUpdate()
' Tratamento de erro
On Error GoTo trata_erro

' Declaração de variáveis que serão utilizadas no procedimento
Dim sSQL        As String          'Variável que assume a instrução SQL
Dim rs          As DAO.Recordset    'variável do tipo recordset


    ' --------------------------------------------------------------------------------
    ' Recordset é o conjunto de registro que fica armazenado na memória
    ' É uma cópia virtual da tabela/consulta
    '---------------------------------------------------------------------------------

    ' Instrução SQL ------------------------------------------------------------------------------------------------------
      sSQL = "SELECT Count(CódigoTitular) AS cnt FROM Tbl_Titular WHERE Prontuário ='" & Trim(Me.Prontuário) & "'))"
    '
    ' Traduzindo
    ' Selecione a contagem de registros da tabela Tbl_Titular onde o valor do campo seja IGUAL ao valor do campo do form
    '--------------------------------------------------------------------------------------------------------------------
   
    ' Instanciar o recordset com a instrução acima ---------------------------------------------------------------
      Set rs = CurrentDb.OpenRecordset(sSQL)
    '
    ' Traduzindo
    ' Carregue/Abra o recordset com o resultado da seleção de dados da instrução SQL (SELECT)
    ' O objeto "cnt" é um apelido (alias) para a contagem (Count) dos dados
   
    ' Se o resultado da contagem for maior que ZERO, então já existe um registro com o valor informado do form.
      If rs("cnt") > 0 Then
          MsgBox " Esse Prontuário já está Cadastrado." & vbNewLine & " Não é possível cadastrar duas vezes o mesmo Prontuário.", vbInformation, "Cadastro"
          Cancel = True
          Me.Prontuário = ""
          Me.Undo
      End If
   
    ' Fecha o recordset
      rs.Close
    ' Limpa o recordset da memória
      Set rs = Nothing
   
    ' Sai do procedimento
      Exit Sub

' Se gerar algum erro antes do "Exit Sub", entra no tratamento de erro.
trata_erro:
   
    ' Exibe mensagem com o Nro. e a Descrição do erro para possiveis ajustes
    MsgBox "Erro gerado: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro"
    Exit Sub

   
' Fim do procedimento
End Sub




Espero ter elucidado a sua dúvida.

Dica: Procure se aprofundar mais nos assuntos relativos à linguagem VBA.

É isso

boa sorte