[Resolvido]Botão novo limite

Ola, a todos!!!

Sou novo no fórum e iniciante em Access, me indicaram este fórum e me falaram que só tenho campeão do Access por aqui.
Por isto vem pedir ajuda.

Como faço para colocar limite de cliques no botão novo, ex: permite que ele funcione apenas 50 cliques e pare de funcionar.


Obrigado.

opa,

da uma olhada neste:

https://www.maximoaccess.com/t24187-resolvidolimite-de-cadastros?highlight=limite+de+clique

Ola, Lander Matos, grato pela ajuda.

Realmente o código para bloquear a quantidade funciona, mas ficou duas duvidas que não se calar.


1- Como faço para que ao de ele escrever fim da macro ele dar uma mensagem tipo "Limite de cadastros excedido", quando vencer os 50 limites?


2-O Código abaixo não funciona, ou eu que não entendi qual a sua funcionalidade.

Acrescente também no evento "após confirmação de exclusão" o seguinte código
Private Sub Form_AfterDelConfirm(Status As Integer)
call Form_Current
End Sub


Obrigado.

em um botão utilize este

fiz de cabeça mas acho que funciona

if dcount("*";"SuaTabela") >50 then

msgbox "Excedeu o Limite de registros",vbcritical,"Aviso"

else

DoCmd.GoToRecord , , acNewRec 'NOVO REGISTRO registro

end if

Bom dia, Meu amigo.

Peço desculpas pela demora, foi porque esqueci de selecionar a opção de avisar por email quando houvesse resposta e por achei que você não tinha me respondido.

Vamos lá;

1- Você disse em um botão acredito que seja o botão NOVO, certo?

2-Em qual evento do botão ao carregar, ao clicar qual?

3- Esta dando a seguinte mensagem de erro: ERA ESPERADO: SEPARADOR DE LISTA OU)



Continuo contando com a sua ajuda e paciência, obrigado.

1 - correto
2 - ao clicar
3 - vc deve colocar onde esta escrito suatabela informar sua tabela ou consulta

Vamos la.

1- Descobri o erro era somente trocar ; POR , depois da frase: If DCount("*"

If DCount("*", "Tbl_CadCli") > 50 Then

MsgBox "Excedeu o Limite de registros", vbCritical, "Aviso"

Else

DoCmd.GoToRecord , , acNewRec 'NOVO REGISTRO registro

End If

2-Aonde exatamente encaixo o seu código visto que já tenho alguns códigos no evento ao clicar, veja:

Private Sub btnNovo_Click()

Me.txtBairro.Enabled = True
Me.txtNac.Enabled = True
Me.txtCelular.Enabled = True
Me.txtCEP.Enabled = True
Me.txtCidade.Enabled = True
Me.txtCNPJ_CPF.Enabled = True
Me.txtNSCR__RG.Enabled = True
Me.TxtCodigo.Enabled = True
Me.txtData.Enabled = True
Me.txtEmail.Enabled = True
Me.txtEndereco.Enabled = True
Me.txtFotoCli.Enabled = True
Me.txtNomeCliente.Enabled = True
Me.txtNumero.Enabled = True
Me.txtObservações.Enabled = True
Me.txtTelefone.Enabled = True
Me.txtTelefone_2.Enabled = True
Me.txtUF.Enabled = True
Me.txt_Inativo.Enabled = True
Me.txtReferencia.Enabled = True
Me.txt_Site.Enabled = True
Me.txt_SKYPE.Enabled = True
Me.txt_Facebook.Enabled = True

Me.btnAlterar.Enabled = False
Me.btnDuplicar.Enabled = True
Me.btnAnterior.Enabled = False
Me.btnExcluir.Enabled = False
Me.btnPrimeiro.Enabled = False
Me.btnProximo.Enabled = False
Me.btnUltimo.Enabled = False
Me.btnNovo.Enabled = False
Me.btnSalvar.Enabled = True
Me.txtNomeCliente.SetFocus
DoCmd.GoToRecord acForm, "Frm_CadCli", acNewRec


End Sub

você vai pegar todos esses codigos e colocar entre

if

else

insira seus codigos aqui <<<<<<<=

end if


ficaria assim:



Private Sub btnNovo_Click()

If DCount("*", "Tbl_CadCli") > 50 Then

MsgBox "Excedeu o Limite de registros", vbCritical, "Aviso"

Else

Me.txtBairro.Enabled = True
Me.txtNac.Enabled = True
Me.txtCelular.Enabled = True
Me.txtCEP.Enabled = True
Me.txtCidade.Enabled = True
Me.txtCNPJ_CPF.Enabled = True
Me.txtNSCR__RG.Enabled = True
Me.TxtCodigo.Enabled = True
Me.txtData.Enabled = True
Me.txtEmail.Enabled = True
Me.txtEndereco.Enabled = True
Me.txtFotoCli.Enabled = True
Me.txtNomeCliente.Enabled = True
Me.txtNumero.Enabled = True
Me.txtObservações.Enabled = True
Me.txtTelefone.Enabled = True
Me.txtTelefone_2.Enabled = True
Me.txtUF.Enabled = True
Me.txt_Inativo.Enabled = True
Me.txtReferencia.Enabled = True
Me.txt_Site.Enabled = True
Me.txt_SKYPE.Enabled = True
Me.txt_Facebook.Enabled = True
Me.btnAlterar.Enabled = False
Me.btnDuplicar.Enabled = True
Me.btnAnterior.Enabled = False
Me.btnExcluir.Enabled = False
Me.btnPrimeiro.Enabled = False
Me.btnProximo.Enabled = False
Me.btnUltimo.Enabled = False
Me.btnNovo.Enabled = False
Me.btnSalvar.Enabled = True
Me.txtNomeCliente.SetFocus
DoCmd.GoToRecord , , acNewRec 'NOVO REGISTRO registro

End If



End Sub

Boa Tarde, amigão.

Agora deu tudo certo     , muito obrigado eu não teria conseguido sem a sua ajuda, e o excelente tópico do Avelino.

Veja como ficou a sequencia

Private Sub btnNovo_Click()
If DCount("*", "Tbl_CadCli") > 50 Then

MsgBox "Excedeu o Limite de registros", vbCritical, "Aviso"

Else

Me.txtBairro.Enabled = True
Me.txtNac.Enabled = True
Me.txtCelular.Enabled = True
Me.txtCEP.Enabled = True
Me.txtCidade.Enabled = True
Me.txtCNPJ_CPF.Enabled = True
Me.txtNSCR__RG.Enabled = True
Me.TxtCodigo.Enabled = True
Me.txtData.Enabled = True
Me.txtEmail.Enabled = True
Me.txtEndereco.Enabled = True
Me.txtFotoCli.Enabled = True
Me.txtNomeCliente.Enabled = True
Me.txtNumero.Enabled = True
Me.txtObservações.Enabled = True
Me.txtTelefone.Enabled = True
Me.txtTelefone_2.Enabled = True
Me.txtUF.Enabled = True
Me.txt_Inativo.Enabled = True
Me.txtReferencia.Enabled = True
Me.txt_Site.Enabled = True
Me.txt_SKYPE.Enabled = True
Me.txt_Facebook.Enabled = True
Me.btnAlterar.Enabled = False
Me.btnDuplicar.Enabled = True
Me.btnAnterior.Enabled = False
Me.btnExcluir.Enabled = False
Me.btnPrimeiro.Enabled = False
Me.btnProximo.Enabled = False
Me.btnUltimo.Enabled = False
Me.btnNovo.Enabled = False
Me.btnSalvar.Enabled = True
Me.txtNomeCliente.SetFocus
MsgBox "Excedeu o Limite de registros", vbCritical, "Aviso"

End If

End Sub

Muito Bem,

no entanto vejo que a mensagem de aviso (msgbox) esta repetindo para condição positiva no final do algoritmo, é só retirar.

e para fechar o tópico para resolvido utilize a marcação resolvido nas opções de mensagem.

até mais.

Tive que colocar a mensagem de aviso (msgbox) no final do algoritmo, pois só assim aparece a mensagem de aviso de limite excedido.

Obrigado.

Bom dia, meu caro.

Agora é para valer, joguei o código no banco de dados oficial e fiz o teste, porem quando excede o limite de 50 cadastro ao invés de aparecer a mensagem limite excedido ele aparece "FIM DA DEPURAÇÃO DA MACRO", acredito que falta alguma coisa uma vírgula, alguma coisa simples.

VEJA COMO ESTA A SEQUENCIA

Private Sub btnNovo_Click()
If DCount("*", "Tbl_CadCli") > 50 Then

MsgBox "Excedeu o Limite de registros", vbCritical, "Aviso"

Else

Me.txtBairro.Enabled = True
Me.txtNac.Enabled = True
Me.txtCelular.Enabled = True
Me.txtCEP.Enabled = True
Me.txtCidade.Enabled = True
Me.txtCNPJ_CPF.Enabled = True
Me.txtNSCR__RG.Enabled = True
Me.TxtCodigo.Enabled = True
Me.txtData.Enabled = True
Me.txtEmail.Enabled = True
Me.txtEndereco.Enabled = True
Me.txtFotoCli.Enabled = True
Me.txtNomeCliente.Enabled = True
Me.txtNumero.Enabled = True
Me.txtObservações.Enabled = True
Me.txtTelefone.Enabled = True
Me.txtTelefone_2.Enabled = True
Me.txtUF.Enabled = True
Me.txt_Inativo.Enabled = True
Me.txtReferencia.Enabled = True
Me.txt_Site.Enabled = True
Me.txt_SKYPE.Enabled = True
Me.txt_Facebook.Enabled = True
Me.btnAlterar.Enabled = False
Me.btnDuplicar.Enabled = True
Me.btnAnterior.Enabled = False
Me.btnExcluir.Enabled = False
Me.btnPrimeiro.Enabled = False
Me.btnProximo.Enabled = False
Me.btnUltimo.Enabled = False
Me.btnNovo.Enabled = False
Me.btnSalvar.Enabled = True
Me.txtNomeCliente.SetFocus
DoCmd.GoToRecord acForm, "Frm_CadCli", acNewRec

End If

End Sub

Você deveria usar variavel;

Código:

Dim intConta As Variant

intConta = ""
intConta = Nz(DCount("*", "Tbl_CadCli"), 0)

If intConta >= 50 Then

MsgBox "Excedeu o Limite de registros", vbCritical, "Aviso"
Exit Sub
Else

Bom Dia, JPaulo.
Obrigado pela ajuda.

Continua a mensagem de fim da macro, veja a sequencia, vê se esta faltando alguma coisa por favor.

Private Sub btnNovo_Click()
If DCount("*", "Tbl_CadCli") > 50 Then

MsgBox "Excedeu o Limite de registros", vbCritical, "Aviso"

Else

Me.txtBairro.Enabled = True
Me.txtNac.Enabled = True
Me.txtCelular.Enabled = True
Me.txtCEP.Enabled = True
Me.txtCidade.Enabled = True
Me.txtCNPJ_CPF.Enabled = True
Me.txtNSCR__RG.Enabled = True
Me.TxtCodigo.Enabled = True
Me.txtData.Enabled = True
Me.txtEmail.Enabled = True
Me.txtEndereco.Enabled = True
Me.txtFotoCli.Enabled = True
Me.txtNomeCliente.Enabled = True
Me.txtNumero.Enabled = True
Me.txtObservações.Enabled = True
Me.txtTelefone.Enabled = True
Me.txtTelefone_2.Enabled = True
Me.txtUF.Enabled = True
Me.txt_Inativo.Enabled = True
Me.txtReferencia.Enabled = True
Me.txt_Site.Enabled = True
Me.txt_SKYPE.Enabled = True
Me.txt_Facebook.Enabled = True
Me.btnAlterar.Enabled = False
Me.btnDuplicar.Enabled = True
Me.btnAnterior.Enabled = False
Me.btnExcluir.Enabled = False
Me.btnPrimeiro.Enabled = False
Me.btnProximo.Enabled = False
Me.btnUltimo.Enabled = False
Me.btnNovo.Enabled = False
Me.btnSalvar.Enabled = True
Me.txtNomeCliente.SetFocus
DoCmd.GoToRecord acForm, "Frm_CadCli", acNewRec

End If

End Sub

Código:

Dim intConta As Variant
On Error Resume Next
intConta = ""
intConta = Nz(DCount("*", "Tbl_CadCli"), 0)

    If intConta >= 50 Then
        MsgBox "Excedeu o Limite de registros", vbCritical, "Aviso"
        Exit Sub
        Else
        Me.txtBairro.Enabled = True
        Me.txtNac.Enabled = True
        Me.txtCelular.Enabled = True
        Me.txtCEP.Enabled = True
        Me.txtCidade.Enabled = True
        Me.txtCNPJ_CPF.Enabled = True
        Me.txtNSCR__RG.Enabled = True
        Me.TxtCodigo.Enabled = True
        Me.txtData.Enabled = True
        Me.txtEmail.Enabled = True
        Me.txtEndereco.Enabled = True
        Me.txtFotoCli.Enabled = True
        Me.txtNomeCliente.Enabled = True
        Me.txtNumero.Enabled = True
        Me.txtObservações.Enabled = True
        Me.txtTelefone.Enabled = True
        Me.txtTelefone_2.Enabled = True
        Me.txtUF.Enabled = True
        Me.txt_Inativo.Enabled = True
        Me.txtReferencia.Enabled = True
        Me.txt_Site.Enabled = True
        Me.txt_SKYPE.Enabled = True
        Me.txt_Facebook.Enabled = True
        Me.btnAlterar.Enabled = False
        Me.btnDuplicar.Enabled = True
        Me.btnAnterior.Enabled = False
        Me.btnExcluir.Enabled = False
        Me.btnPrimeiro.Enabled = False
        Me.btnProximo.Enabled = False
        Me.btnUltimo.Enabled = False
        Me.btnNovo.Enabled = False
        Me.btnSalvar.Enabled = True
        Me.txtNomeCliente.SetFocus
        DoCmd.GoToRecord acForm, "Frm_CadCli", acNewRec
    End If

Esta dando erro,

Erro de compilação:
Else sem if

Não é de certeza no trecho que postei.

Meu caro.

Segue a senciência que coloquei conforme me passou

Private Sub btnNovo_Click()
Dim intConta As Variant
On Error Resume Next
intConta = ""
intConta = Nz(DCount("*", "Tbl_CadCli"), 0)

If intConta >= 50 Then MsgBox "Excedeu o Limite de registros", vbCritical, "Aviso"

Exit Sub

Else
Me.txtBairro.Enabled = True
Me.txtNac.Enabled = True
Me.txtCelular.Enabled = True
Me.txtCEP.Enabled = True
Me.txtCidade.Enabled = True
Me.txtCNPJ_CPF.Enabled = True
Me.txtNSCR__RG.Enabled = True
Me.TxtCodigo.Enabled = True
Me.txtData.Enabled = True
Me.txtEmail.Enabled = True
Me.txtEndereco.Enabled = True
Me.txtFotoCli.Enabled = True
Me.txtNomeCliente.Enabled = True
Me.txtNumero.Enabled = True
Me.txtObservações.Enabled = True
Me.txtTelefone.Enabled = True
Me.txtTelefone_2.Enabled = True
Me.txtUF.Enabled = True
Me.txt_Inativo.Enabled = True
Me.txtReferencia.Enabled = True
Me.txt_Site.Enabled = True
Me.txt_SKYPE.Enabled = True
Me.txt_Facebook.Enabled = True
Me.btnAlterar.Enabled = False
Me.btnDuplicar.Enabled = True
Me.btnAnterior.Enabled = False
Me.btnExcluir.Enabled = False
Me.btnPrimeiro.Enabled = False
Me.btnProximo.Enabled = False
Me.btnUltimo.Enabled = False
Me.btnNovo.Enabled = False
Me.btnSalvar.Enabled = True
Me.txtNomeCliente.SetFocus
DoCmd.GoToRecord acForm, "Frm_CadCli", acNewRec
End If
End Sub

Não passei assim.
A Msgbox é por baixo do then

Rapaz, agora deu certo.

Muito Obrigado!!

Fico feliz.

Obrigado pelo retorno o forum agradece.

Neste Natal ajude...