MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    [Resolvido]Construir um evento

    avatar
    liu
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 7
    Registrado : 05/06/2011

    [Resolvido]Construir um evento Empty Construir um evento

    Mensagem  liu 5/6/2011, 23:39

    Olá Pessoal,


    No local onde trabalho tem um limite para matricular alunos, são 25 por turma e lá são várias turmas (Turma A, Turma B, Turma C ...). No formulário coloquei um campo com caixa de combinação com essas turmas.

    O que eu queria é q o access paresse de matricular alunos quando chegasse neste número limite OU q ele me avisasse quando tiver 25 alunos matriculados em cada turma.

    Gostaria de saber se é possivel?
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Construir um evento Empty Re: [Resolvido]Construir um evento

    Mensagem  vieirasoft 5/6/2011, 23:44

    Boa Tarde

    If nomedocampo >=25 Then
    call MsgBox(" Não é possível ultrapassar este limite",vbCritical"Aviso")
    End If


    Última edição por vieirasoft em 5/6/2011, 23:52, editado 1 vez(es)
    avatar
    liu
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 7
    Registrado : 05/06/2011

    [Resolvido]Construir um evento Empty Re: [Resolvido]Construir um evento

    Mensagem  liu 5/6/2011, 23:47

    Oi Vieira
    Vc poderia me explicar passo a passo, pq tenho pouco conhecimento no access...

    Obrigada!!
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Construir um evento Empty Re: [Resolvido]Construir um evento

    Mensagem  vieirasoft 5/6/2011, 23:51

    Coloque esse código no evento do formulário. Vá às propriedades do formulário e na aba acontecimento no evento "Actual"
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Construir um evento Empty Re: [Resolvido]Construir um evento

    Mensagem  vieirasoft 5/6/2011, 23:53

    ou melhor, assim que eu enganei-me:

    If nomedocampo >=25 Then
    call MsgBox(" Não é possível ultrapassar este limite",vbCritical"Aviso")
    End If
    avatar
    liu
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 7
    Registrado : 05/06/2011

    [Resolvido]Construir um evento Empty Re: [Resolvido]Construir um evento

    Mensagem  liu 7/6/2011, 14:28

    Oi Vieira,
    Tem alguma coisa dando errada.
    Olhe eu fiz o seguinte:
    Clickei no campo onde eu quero construir este código, fui em propriedades e na aba evento coloquei este código em antes de atualizar. E depois clickei em salvar, mas não aconteçeu nada...ou eu tenho que clickar em executar?
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Construir um evento Empty Re: [Resolvido]Construir um evento

    Mensagem  vieirasoft 7/6/2011, 14:48


    Dim Msg, Style, Title
    Msg = "Máximo permitido, blá...."
    Style = vbInformation
    Title = "Aviso"

    If DCount("Nomedocampo", "nomedatabela") >= 25 Then
    Msg = MsgBox(Msg, Style, Title)
    alguma instrução
    End If
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Construir um evento Empty Re: [Resolvido]Construir um evento

    Mensagem  vieirasoft 9/6/2011, 23:40

    Resolveu?
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Construir um evento Empty Re: [Resolvido]Construir um evento

    Mensagem  vieirasoft 15/6/2011, 11:49

    Presume-se que sim. Vamos dar por resolvido.

    Conteúdo patrocinado


    [Resolvido]Construir um evento Empty Re: [Resolvido]Construir um evento

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 08:53