[Resolvido]Função DLookup ajuda, nao esta dando certo

Boa tarde pessoal, estou precisando de ajuda...li a pagina http://maximoaccess.forumeiros.com/t1533-funcao-dlookup-explicacao para tentar entender mas não consegui o resultado esperado,


Tenho uma tabela chamada "COLETA DE GALHOS" com os seguintes campos:

ENDEREÇO, formato texto
quadra, formato número
número, formato número
data execução, formato data


preciso que ao inserir após atualizar o campo Me.Endereço no formulário ele pesquise na tabela coleta de galhos se os campos endereço, quadra e número já foram cadastrados, porem a data da execução tem que ser nula e ai emite i MSGBOX "registro existente", caso o campo "data execução" esteja preenchido elenão seja nula permita o cadastro, tentei me basear em alguns exemplos mas não ta dando certo,,,pode ocorrer de não haver o preenchimento do número também, mas os campos endereço e quadra são obrigatórios.

eis o que ja tentei e deu certo
Código Funcionando
If (Not IsNull(DLookup("[ENDEREÇO]", "COLETA DE GALHOS", "[ENDEREÇO] like '" & Me!ENDEREÇO & "'"))) Then
MsgBox "Endereço já cadastrado há " & Date - [DATA] & " dias. A previsão de coleta é para " & [DATA] + 20 & ".", vbCritical, "Atenção"


Agora se coloco mais um criterio nao funciona nada
If (Not IsNull(DLookup("[ENDEREÇO]", "COLETA DE GALHOS", "[ENDEREÇO] like '" & Me!ENDEREÇO & "'" & "[QUADRA]" = Me.QUADRA))) Then....

Boa tarde,


Dim seq As String, Filtro As String, k
seq = "[ENDEREÇO] & '|' & [QUADRA] & '|' & [NÚMERO] & '|' & [DATA EXECUÇÃO]"
seq = Dlookup(seq, "COLETA DE GALHOS", "ENDEREÇO = '" & Me.ENDEREÇO.Value & "'")
k = Split(seq, "|")
Me!NomeDocampoA = k(0)
Me!NomeDoCampoB = k(1)
Me!NomeDoCampoC = k(2)
Me!NomeDoCampoD = k(3)

Boa noite,
Movi para esta sala. A sala de repositórios deve ser mantida para a sua finalidade

Não deu certo, acho que nao me expressei direito, vou tentar novamente,,,,

Em um formulário a pessoa solicita a coleta de galhos. O atendente ao inserir o endereço, quadra e número, roda o VBA pesquisando se o endereço com quadra e numero já foi cadastrado, se sim e o campo [data execução] estiver nulo e não deixa cadastrar , emite uma mensagem dizendo que já há cadastro e limpa o formulário. Se o campo [data da execução] estiver preenchido, permite o cadastro normalmente.

Um detalhe, pode ocorrer do campo número ser ou não preenchido, porem endereço e quadra são obrigatórios.



Private Sub quadra_GotFocus()
Dim seq As String, Filtro As String, k
seq = "[ENDEREÇO] & '|' & [QUADRA] & '|' & [NÚMERO] & '|' & [DATA EXECUÇÃO]"
seq = DLookup(seq, "COLETA DE GALHOS", "ENDEREÇO = '" & Me.ENDEREÇO.Value & "'")
k = Split(seq, "|")
Me.ENDEREÇO = k(0)
Me.QUADRA = k(1)
Me.NÚMERO = k(2)
Me.[DATA EXECUÇÃO] = k(3)
MsgBox "Endereço já cadastrado", vbCritical, "Atenção"
End Sub

apos atualizar esta dando a mensagem de erro, Erro em tempo de execução (94)
uso de Null Invalido

Boa tarde, você pode anexar a parte do se banco de dados que está com problema?

O formulário esta em serviços, cata galhos...valeu pela ajuda desde já

Boa, Use este código.

Aqui optei pelo uso de recordset no lugar do dblookup

Código:



Dim DIAS As String
DIAS = Date - [DATA]

'// Cria o recordset
    Dim rs1 As DAO.Recordset
'// Abre o recordset
    Set rs1 = CurrentDb.OpenRecordset("SELECT * FROM [COLETA DE GALHOS] WHERE LOG_NU_SEQUENCIAL=" & Me.LOG_NU_SEQUENCIAL & ";")
'// Verifica se o cadastro já existe
    If rs1![DATA EXECUÇÃO] = Me.DATA_EXECUÇÃO And _
       rs1![ENDEREÇO] = Me.ENDEREÇO And _
       rs1![QUADRA] = Me.QUADRA And _
       rs1![NÚMERO] = Me.NÚMERO Then
       '// Informa ao usuário
           MsgBox "Endereço já cadastrado !!!", vbCritical, "Atenção"
    End If
'// Fecha o recordset e limpa a memória
    Set rs1 = Nothing: Close



Lembrando  que o campo DATA EXECUÇÃO tem que estar no formulário.

abs.

Mantovani

Pelo que entendi, é um serviço de uma prefeitura ou sua terceirizada, certo?

Entendo que trabalhar com dados digitados como endereço, quadra, etc.. podemos cair no erro de digitação
constantemente, o que dificulta uma pesquisa posteriormente.

Então aqui está uma dica.
Todo imóvel, tem seu código na prefeitura o qual é chamado de indicação fiscal, DAM (Documento de Arrecadação Municipal), etc.
Esse número é único para cada imóvel.
Procure usar esse código para os imoveis cadastrado.
Quando cadastrar é só pedir pelo número que consta no carnê do IPTU do imóvel.
Isso irá facilitar a tua vida a do teu cliente.
E irá facilitar a construção das tuas pesquisas.

Abraços

Nb

Ainda com erro !!!!
tentei adaptar a linha conforme o link http://maximoaccess.forumeiros.com/t17043-resolvidoverificar-se-registro-ja-e-existente-no-banco-de-dados?highlight=existente, tambem nao dá certo,

Bom dia pessoal, primeiramente agradeço a ajuda recebida até o momento,

Caro JUNGLI

O código que escreveu deu certo em partes mesmo colocando o campo [data execução] no formulário, pois na linha

If rs1![DATA EXECUÇÃO] = Me.DATA_EXECUÇÃO And _ pode haver de um endereço já ter sido cadastrado e recolhido no passado e haver uma nova solicitação no futuro, então alterei a linha com os critérios abaixo testando uma a uma.

If rs1![DATA EXECUÇÃO] = "", não deu certo
If rs1![DATA EXECUÇÃO] = null , não deu certo
If rs1![DATA EXECUÇÃO] = empety, não deu certo
If rs1![DATA EXECUÇÃO] = 0, não deu certo
If rs1![DATA EXECUÇÃO] IS NULL, não deu certo

Observação, a data de execução só é preenchida futuramente após o serviço ser executado pelas equipes de rua, porem esta não é preenchida neste momento de solicitação.

nao sei onde estou errando, pois o criterio dos outro campos a ser consultado estão certos, porem o condicionante que este campo [data execução] esteja nulo(vazio) na tabela,


Caro Noobezinho, quanto a sua sugestão já havia feito deste modo, mas para os contribuintes principalmente os locatários nao tem acesso a essa informação, entao para os atendentes é mais facil o endereço mesmo. obrigado pela contribuição...

Ja deu certo,, podem fechar o tópico