[Resolvido]Erro na função Dloolup com dois campos.

Olá Feras de plantão, boa noite.

Possuo um subformulário que entre outros campos existem dois a saber: Resumo (Texto) e Caixa (Numérico)

No campo Caixa apliquei um procedimento antes de atualizar que faz uma busca na tabela para verificar se já existe um Resumo para a mesma Caixa e a parte co código é:

If IsNull(DLookup("Localização", "tblLocalização Consulta", "([Localização] = " & Forms![frmEntradas]![frmEntradasSub]![Localização] & "")) And DLookup("Resumo", _ "tblLocalização Consulta", "([Resumo] = '" & Forms![frmEntradas]![frmEntradasSub]![Resumo] & "')") Then

Contudo recebo a seguinte mensagem:

[img][/img]

A pergunta que não quer calar: Onde está o erro?

Abraços, WSenna

Pelo que vejo, a variável da localização não é tipo texto, experimente tirar as aspas simples.

Olá Ricardo, boa noite.

Amigão, não funcionou.

De qualquer forma, agradeço a força e tenha um ótimo final de semana.

O X do problema é que tenho de arranjar uma forma de impedir que o mesmo resumo (tipo Texto) seja cadastrado num novo registro com o mesmo número da Localização (tipo número).

Abraços, WSenna

Olá Ricardo, boa tarde.

Consegui resolver com o código abaixo:

Private Sub Localização_BeforeUpdate(Cancel As Integer)
On Error GoTo TrataErro

Dim DB As DAO.Database
Dim rs As DAO.Recordset

' Testa se a Caixa já existe na tabela

If IsNull(DLookup("[Localização]", "tblLocalização", "[Localização] = " & Localização & " And Resumo = '" & Resumo & "'")) Then
GoTo Saida
End If
' Dá opção de alterar dados
If MsgBox("Já existe uma Caixa com o número " & Me.Localização & " para este Resumo. " & Chr(13) & "Você deseja visualizar o registro? ", vbExclamation + vbYesNo, " Atenção") = vbNo Then

Me.Undo
GoTo Saida

End If

'Abre o registro já existente
Set rs = Me.RecordsetClone
rs.FindFirst ("[Localização] = " & Localização & " And Resumo = '" & Resumo & "'")
Me.Undo
Me.Bookmark = rs.Bookmark
Set rs = Nothing

Saida:
Exit Sub

TrataErro:
MsgBox "Form_frmEntradasSub - Localização_BeforeUpdate" & vbCrLf & err.Description, vbExclamation + vbOKOnly, "Erro: " & CStr(err.Number)
#If DESENV Then
Stop
Resume
#End If
Resume Saida

End Sub

O único problema é que não está eliminando o registro (formulário contínuo) através do Me.Undo grifado em vermelho.

Abraços, WSenna

Olá Feras de plantão, bom dia.

Este post foi devidamente resolvido com a ajuda do Amigão Assis.

Solução

Abraços, WSenna