[Resolvido]Criar função Fechar formulario

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
===============================================

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.

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!!!!

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.

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

Cumprimentos.

veja o que está errado.

Não veio o anexo.

Cumprimentos.

estou mandando o anexo.

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.