Companheiros.
Tenho uma função que pergunta se realmente deseja sair do formulário ou não.
A questão é a seguinte: Como eu faço para colocar essa função em uma raiz do meu sistema, para que eu possa aproveitá-la em vários botões sair, ou seja, para que eu não precise repetí--la por várias vezes em cada formulário do sistema.
A função é:
---------------------------------------------------------
Dim msg, Style, Title, Help, Ctxt, Response, MyString
msg = "Você realmente deseja sair?"
' Style = vbYesNo + vbCritical + vbDefaultButton2
Style = vbYesNo + vbQuestion + vbDefaultButton2
Title = "Confirmação!"
Help = "DEMO.HLP"
Ctxt = 1000
Response = MsgBox(msg, Style, Title, Help, Ctxt)
If Response = vbYes Then ' User chose Yes (Se a resposta for SIM).
MyString = "Yes" ' Perform some action.
DoCmd.Close ' Fecha o formulário.
Else ' User chose No (Se a resposta for NÃO).
MyString = "No" ' Perform some action.
End If
---------------------------------------------------------
Tenho uma função que pergunta se realmente deseja sair do formulário ou não.
A questão é a seguinte: Como eu faço para colocar essa função em uma raiz do meu sistema, para que eu possa aproveitá-la em vários botões sair, ou seja, para que eu não precise repetí--la por várias vezes em cada formulário do sistema.
A função é:
---------------------------------------------------------
Dim msg, Style, Title, Help, Ctxt, Response, MyString
msg = "Você realmente deseja sair?"
' Style = vbYesNo + vbCritical + vbDefaultButton2
Style = vbYesNo + vbQuestion + vbDefaultButton2
Title = "Confirmação!"
Help = "DEMO.HLP"
Ctxt = 1000
Response = MsgBox(msg, Style, Title, Help, Ctxt)
If Response = vbYes Then ' User chose Yes (Se a resposta for SIM).
MyString = "Yes" ' Perform some action.
DoCmd.Close ' Fecha o formulário.
Else ' User chose No (Se a resposta for NÃO).
MyString = "No" ' Perform some action.
End If
---------------------------------------------------------