Início![[Resolvido]Ajuda Formulário! Empty](https://2img.net/i/empty.gif)
jparpinfo 11/9/2015, 13:17Bom dia,
Como faço para não deixar o formulário fechar se tiver dados na caixa de listagem?.
Como faço para não deixar o formulário fechar se tiver dados na caixa de listagem?.
2 participantes
[Resolvido]Ajuda Formulário!
jparpinfo- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 43
Registrado : 27/06/2014
=>Nois- Super Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 979
Registrado : 09/11/2012
faz um dcount na tabela fazendo referencia ao filtro dessa lista
.................................................................................
Att. Nois
Se tudo não der certo... tente de novo
jparpinfo- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 43
Registrado : 27/06/2014
Amigo desculpa mas teria algum exemplo?
=>Nois- Super Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 979
Registrado : 09/11/2012
seria algo assim, não testei
em um botão ou no evento ao fechar
If Nz(DCount("[seucodigo]", "suatabela", "[seucodigo] = '" & Me!seucodigoref & "'"), 0) >= 1 Then
msgbox "proibido fechar"
else
docmd.close
end if
em um botão ou no evento ao fechar
If Nz(DCount("[seucodigo]", "suatabela", "[seucodigo] = '" & Me!seucodigoref & "'"), 0) >= 1 Then
msgbox "proibido fechar"
else
docmd.close
end if
.................................................................................
Att. Nois
Se tudo não der certo... tente de novo
jparpinfo- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 43
Registrado : 27/06/2014
Amigo noisnafita,
Perfeito, muito obrigado pela ajuda funcionou 1000%
Perfeito, muito obrigado pela ajuda funcionou 1000%