[Resolvido]Cancelar form sem dados vinculado a uma consulta parâmetro!

Olha eu de novo encomodando!
Tenho um form vinculado á uma consulta, com o seguinte parâmetro:

Como todosacentos([Digite o nome do cliente] & "*")

No evento ao abrir do form defini o seguinte código!

Private Sub Form_Open(Cancel As Integer)
If DCount("*", "CnEstorno") = 0 Then
MsgBox "Não há dados registrado no sistema com a data específicada!", vbOKOnly + vbCritical, "Prezado operador!"
DoCmd.Close acForm, "FormEstorno"
Else
End If
End Sub

Para cancelar a abertura do mesmo caso não contiver registros!

Porém está dando o seguinte erro:

Erro tempo de execução “2471”
A expressão que você inseriu como parâmetro de consulta gerou este erro:
[Digite o nome do cliente]

Alguem pode me ajudar!

Poderia utilizar no evento se não houver dados.

Olá amigo boa noite!
Este evento não contem em form ou estou enganado, ele só contem em relatório!
Não é isso?

Lupércio

Está faltando o critério no Dcount()

Abração!

Balem eu não entendi!

No Dcont() não vai só o nome da consulta, da uma força ai por favor!

If DCount("*", "consulta") = 0 Then

Bom, para consulta, sim está correto, mas depende do que deve retornar nessa consulta.

O que está ocorrendo é que o dcount está retornando o erro porque a consulta ainda não foi executada e retornada com os registros.

Vou tentar pensar uma solução meu amigo.

Mas experimente colocar o Dcount no evento Ao ativar dor form.

Amanhã nos falamos.
Boa noite

Olá

Tente assim:

Código:


Private Sub Form_Open(Cancel As Integer)
  If Nz(DCount("*", "CnEstorno")) = 0 Then
      Cancel = True
      MsgBox "Não há dados registrados no sistema com a data especificada!", vbOKOnly + vbCritical, "Prezado operador!"
  Else
  End If
End Sub


Eu costumo fazer isso verificando a consulta e antes de abrir o formulário.

Mesmo erro Norberto!

topbr boa noite!
Você tem esse código, para verificar a consuta antes de abrir do form?

Bom dia a todos.

Um pitaco apenas;

Se o form está vinculado a uma consulta, para saber se existem dados terá de ser no evento ao carregar, pois ao abrir ainda não carregou absolutamente nada.

Teste por favor:

Private Sub Form_Load()
    If Me.Form.Recordset.RecordCount = 0 Then
        MsgBox "Não há registos...", vbCritical
        DoCmd.Close acForm, "SeuFormulario", acSaveYes
    End If
End Sub

JPaulo bom dia!

Ficou assim:
Ao clique do botão abre o parâmetro se digitar algo para efetuar a consulta se não tiver ele retorna a mensagem que não há registros. Porém se não digitar nada e clicar em ok, abre todos os registros, e é isso que eu queria, ficou nota "10".

Obrigao JPaulo, um bom início de semana!
Um abraço.

JPaulo uma pergunta!

Porque no código você tirou o "cancel = true" e funcionou normal, cancelando o evento!

Amigão, veja a instrução do Private no Open do form:

Private Sub Form_Open(Cancel As Integer)

No evento ao carregar não existe, porque você não pode Cancelar uma informação já carregada, apenas poderá fechar....

O Open não carrega dados.

Olá Lupércio

Bom dia, vejo que já resolveu teu problema.

Ontem tava difícil pensar, muito sono.

Boa sorte, amigo !!

Bem explicado J Paulo, ta certo e obrigado pelo retorno!

O amigo Balem muito bom dia á você e uma ótima semana!
Postei outro tópico!

Abração!