[Resolvido]Consulta sem Registros / Retornar Zero

Boa noite a todos.

No cabeçalho Forms Contínuo tenho um campo [Qtde] que deve ser igual ao número de registros da consulta (há filtros) ou Zero. Ocasionalmente esta consulta não tem registros e o campo [Qtde] fica nulo, ou melhor, não existe.

Na consulta tenho um campo [S] (não vinculado a tabela), que está assim: S:SeImed([ID]>0;1;0). No Forms o campo [Qtde]está assim: = soma([S])

É possível atribuir o valor Zero para campo [Qtde] mesmo que não haja registros na consulta?

Obrigado

Oi
Norberto.
Grato pela atenção.

Não deu certo! Ficou assim:

Private Sub Form_Load()
Me.SomaQtdeRec = Nz(DCount("*", Form.RecordSource))
End Sub

Da a seguinte mensagem de erro: "O campo é muito pequeno para aceitar a quantidade de dados que você tentou adicionar. Tente inserir ou colar menos dados."

tentei também assim:

Private Sub Form_Load()
Me.SomaQtdeRec = Nz(DCount("*", DescargasPedAutorFaturar.RecordSource))
End Sub

Deu a mensagem de erro: "O objeto é obrigatório"

Desculpe-me, sou iniciante no Access.

Abraços

Luiz Gustavo

Éh! No meu BD não funciona.
Observei que no botão de navegação do seu Forms consta: "Registro 1 de 1", já no meu BD, nada consta: "Registro ".

Como meu Forms está vinculado a uma consulta, e quanto é aplicado os filtros não retorna nenhum resgistro, minha consulta acaba sendo enexistente, ou seja, não retorna nem Zero e nem Nulo.

Luiz Gustavo boa noite!

No evento ao carregar do form defina:

Private Sub Form_Load()
Me.Qtde = IIf(IsNull(Qtde), 0, Qtde)
varResult = IIf(Qtde > 50, "High", "Low")

End Sub

Obs: considerei o seu campo como "Qtde" se não for altere conforme sua necessidade!

Oi Lupércio.
Grato pela atenção

Ok, ao abrir o forms o campo [Qtde]=0.
No entanto o campo [Qtde] não está vinculado. A finalidade dele é contar o número de registros na consulta.
Da forma que ficou ele não conta mais os números de registro.

Originalmente estava assim:
Na consulta: S:SeImed([X]>0,1,0)
No Forms: [Qtde]..origem = soma ([S])

Uma idéia:

Crie outro campo "caixa de texto"
e coloque a expressão que estava usando antes
e defina com invisível.

Exemplo:

Nome do outro campo "retorno" defina como invisível!

Coloque a expressão anterior que estava usando para contar os registros nesse campo "retorno" que ficará invisível.


Ao ativar do form coloque, ou em outro evento qualquer!

me.Qtde = Me.retorno

Se não houver registros será inserido "0"
mas se houver será inserido o numero de registros.
testa ai!

Se você quiser postar o bd, damos uma olhada para tentar te ajudar!

Luiz

Testei o código do Norberto,
e aqui funcionou, tanto quando a constulta retorna registros,
e quando não retorna!

Me rendo!!!
Estou postando BD.

Reitero meus agradecimentos aos amigos colaboradores.

Abraços

Luiz

Em qual desses formulário você está tentando colocar esse código?

DescargasPedAutorFaturar

Ola Norbeto e Lupércio

Realmente não consegui!
Refiz o BD de exemplos de forma a explicar melhor o meu problema. Estou anexando-o.

Peço, por gentileza, se for possível, darem uma olhada.

Muito obrigado.

O código no botão é para não permitir sair do formulário se algum dos campos [DescPedAutorFloraCond] estiverem selecionados (Seleção: Botão Incluir / Limpar Seleção: Botão Excluir). Já o Campo [SomaDeQtde] conta o número de campos [DescPedAutorFloraCond] que é maior que Zero. O Problema é que quando não há nenhum registro no FormsContínuo o campo [SomaDeQtde] fica vazio e não consigo sair do formulário.

Se você selecionar todos os registros (Botões Incluir) e depois baixar (Botão Baixar)todos os registros sumirão do forms. Aí se tentar sair do formulário não será possível, pois dará um erro. Erro este em função do campo [SomaDeQtde] não ser zero e nem nulo.

Olá Luiz!

Use a propriedade "Valor PADRÃO" do campo quantidade. Basta por na propriedade o valor 0. Sempre irá aparecer o valor zero para os novos registros e assim não terá mais problemas com valores nulos.

Sucesso!

Ufa!!!
Resolvido.

Vocês estavam certos quanto ao código.
Foi uma questão de aplicá-lo corretamente.
Eu é quem não estava enxergando
Ficou assim

Private Sub Comando2_Click()
If Nz(DCount("*", "MinhaConsulta")) > 0 Then
MsgBox "Mensagem!!!", vbInformation, "Aviso"
Else
DoCmd.Close
End If
End Sub

Meu muito obrigado a todos.

Luiz Gustavo

Que isto Norberto?
Você, Lupércio, Avelino e tantos outros, aqui no forum, é que são merecedores deste Parabéns.
Vossa dedicação e obstinação em ajudar os membros do forum sempre superam as exectativas.

Um forte abraço a todos.

E, mais vez, meu muito obrigado

Estamos ai Luiz, para compartilhar o que aprendemos,
esse forum é maravilhoso, porque contem pessoas maravilhosas!
Abraço amigo!