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]Criar função Fechar formulario

    rubenscouto
    rubenscouto
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 679
    Registrado : 02/10/2011

    [Resolvido]Criar função Fechar formulario Empty [Resolvido]Criar função Fechar formulario

    Mensagem  rubenscouto 21/9/2013, 14:38

    Como Transformar este codigo em uma função para usar em qualquer formulario sem a necessidade de adicionar manualmente em cada formulario os comandos:
    '=========================================

    Tempo_Ocioso = rotulo contador de tempo para fechar o formulário
    LImite = Campo texto com o tempo máximo para fechar o formulário
    Este codigo é usado no timer do formulario.
    ================================

    If login.id = 1 Then
    Me.LImite.Locked = False
    Exit Function
    Else

    Static LinHor As Integer
    Static LinMin As Integer
    Static LinSeg As Integer

    If Trim(Tempo_Ocioso.Caption) = "00:00:00" Then
    LinHor = 0
    LinMin = 0
    LinSeg = 0
    End If

    LinSeg = LinSeg + 1
    If LinSeg = 60 Then
    LinSeg = 0
    LinMin = LinMin + 1
    If LinMin = 60 Then
    LinMin = 0
    LinHor = LinHor + 1
    If LinHor = 24 Then
    LinHor = 0
    End If
    End If
    End If

    Tempo_Ocioso.Caption = Format(LinHor, "00") & ":" & _
    Format(LinMin, "00") & ":" & _
    Format(LinSeg, "00")

    If Tempo_Ocioso.Caption >= Me.LImite Then
    DoCmd.Close , , acSaveYes
    End If
    End If
    ===============================================
    avatar
    Convidado
    Convidado


    [Resolvido]Criar função Fechar formulario Empty Re: [Resolvido]Criar função Fechar formulario

    Mensagem  Convidado 21/9/2013, 20:20

    Não testei.. é só uma ideia mas dá para aprimorar..

    Public Function FechaForm(NomeForm as frm, Rotulo as control)


    Agora.. para chamar

    FechaForm(Me.Name,"NomeDoRotulo)


    No código onde fica o nome do formulário substirtua pela variável NomeForm e onde tem o nome do rótulo substitua por Rotulo

    É por ai.

    Bons estudos.


    Cumprimentos.
    avatar
    CrisMaleta
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 100
    Registrado : 20/08/2013

    [Resolvido]Criar função Fechar formulario Empty Re: [Resolvido]Criar função Fechar formulario

    Mensagem  CrisMaleta 24/9/2013, 22:02

    Fala Rubens....

    Novidades a respeito da sugestão do Piloto????

    Caso tenha resolvido, não esquece de editar o primeiro post e colocar como "Resolvido"!!!!

    Desde já agradeço...

    Abraço a todos!!!!
    rubenscouto
    rubenscouto
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 679
    Registrado : 02/10/2011

    [Resolvido]Criar função Fechar formulario Empty FechaForm

    Mensagem  rubenscouto 26/9/2013, 02:28

    O codigo ficou assim mas não funfou:

    Public Function FechaForm(NomeForm As Form, Rotulo As Label, LImite As Control)
    Static LinHor As Integer
    Static LinMin As Integer
    Static LinSeg As Integer
    If Trim(Rotulo.Caption) = "00:00:00" Then
    LinHor = 0
    LinMin = 0
    LinSeg = 0
    End If

    LinSeg = LinSeg + 1
    If LinSeg = 60 Then
    LinSeg = 0
    LinMin = LinMin + 1
    If LinMin = 60 Then
    LinMin = 0
    LinHor = LinHor + 1
    If LinHor = 24 Then
    LinHor = 0
    End If
    End If
    End If

    Rotulo.Caption = Format(LinHor, "00") & ":" & _
    Format(LinMin, "00") & ":" & _
    Format(LinSeg, "00")

    If Rotulo.Caption >= LImite.Control Then
    DoCmd.Close , , acSaveYes
    End If


    a mensagem foi " o argumento não é opcional.
    avatar
    Convidado
    Convidado


    [Resolvido]Criar função Fechar formulario Empty Re: [Resolvido]Criar função Fechar formulario

    Mensagem  Convidado 26/9/2013, 13:27

    Manda o modelo do Bd para que possamos ver isto pra ti.

    Cumprimentos.
    rubenscouto
    rubenscouto
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 679
    Registrado : 02/10/2011

    [Resolvido]Criar função Fechar formulario Empty segue bd para analise

    Mensagem  rubenscouto 26/9/2013, 14:48

    veja o que está errado.
    avatar
    Convidado
    Convidado


    [Resolvido]Criar função Fechar formulario Empty Re: [Resolvido]Criar função Fechar formulario

    Mensagem  Convidado 26/9/2013, 21:09

    Não veio o anexo.

    Cumprimentos.
    rubenscouto
    rubenscouto
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 679
    Registrado : 02/10/2011

    [Resolvido]Criar função Fechar formulario Empty Função Fechar forms

    Mensagem  rubenscouto 27/9/2013, 14:45

    estou mandando o anexo.
    Anexos
    [Resolvido]Criar função Fechar formulario Attachmentfecha.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (22 Kb) Baixado 21 vez(es)
    avatar
    Convidado
    Convidado


    [Resolvido]Criar função Fechar formulario Empty Re: [Resolvido]Criar função Fechar formulario

    Mensagem  Convidado 27/9/2013, 22:18

    Boas Rubens..

    Na função:

    Public Function FechaForm(nForm As Access.Form, nRotulo As Access.Label)

    Para chamar:

     Call FechaForm(Me, Rótulo70)

    Depois poste um pequeno exemplo na sala de repositório.. Ficou interessante.

    Cumprimentos.


    Última edição por PILOTO em 2/11/2013, 17:53, editado 1 vez(es) (Motivo da edição : Tópico dado como resolvido por falta de resposta)

    Conteúdo patrocinado


    [Resolvido]Criar função Fechar formulario Empty Re: [Resolvido]Criar função Fechar formulario

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 04:36