Sub Formularios executar codigos apartir do form principal

Boa tarde pessoal

No evento ao atualizar de uma combo box localizada no sub form principal , quero executar o código abaixo que esta no botão do sub form, como fazer isso?

o código é este:


On Error GoTo TrataErro
Dim i, IntOperacao As Integer
Dim DatData As Date
Dim IntRef As String
Dim Fase As String
Dim DiasFase As String
Dim Cont As String

DatData = [Forms]![tbl_cadastro_referencia]![data]
IntRef = Nz([Forms]![tbl_cadastro_referencia]![referencia])

'conta numero de operação para gerar a quantidade necessaria----------
IntOperacao = DCount("[operacao]", "tbl_usuario")

   If fases = "" Or IsNull(fases) Or fases = False Then

   For i = 1 To IntOperacao
   
       'Nome da operação de cada fase------------------------------------------------
       Fase = DLookup("[operacao]", "tbl_usuario", "id=" & i)
   
       'Dias das fases-------------------------------------------------------
       DiasFase = DLookup("[dias]", "tbl_usuario", "id=" & i)
   
       DoCmd.GoToRecord , , acNewRec
   
       If 1 = 1 Then
       Me.fases = Fase
       Me.data_liberacao = DateAdd("d", DiasFase, DatData)
       Me.SITUACAO = "NÃO LIBERADO"
   
   End If
   
   Next
   
   Else
   MsgBox "Já foram criadas as fases para a referencia." & " & IntRef & " _
   & " Para criar novamente é necessario apagar as atuais.", vbCritical, "Erro"
   End If

TrataErro:
   'Trata qualquer outro erro que ocorra
   If err.Number <> 0 Then
       MsgBox "Erro número:" & err.Number & vbCrLf & err.Description, vbCritical, "Inovack Informa"
   End If

Olá Marcos

Me parece que é um código genérico, portanto você pode colocar ele dentro de uma função
em um módulo.
E quando precisar, só chamar a função

Abraços

Noob

noob,

Tens como me mostrar um exemplo?


abraço

Assim:

Coloque o código abaixo num módulo.

Código:



Public Funciton MinhaFunção()  ' coloque o nome que achar melhor

On Error GoTo TrataErro
Dim i, IntOperacao As Integer
Dim DatData As Date
Dim IntRef As String
Dim Fase As String
Dim DiasFase As String
Dim Cont As String

DatData = [Forms]![tbl_cadastro_referencia]![data]
IntRef = Nz([Forms]![tbl_cadastro_referencia]![referencia])

'conta numero de operação para gerar a quantidade necessaria----------
IntOperacao = DCount("[operacao]", "tbl_usuario")

   If fases = "" Or IsNull(fases) Or fases = False Then

   For i = 1 To IntOperacao
  
       'Nome da operação de cada fase------------------------------------------------
       Fase = DLookup("[operacao]", "tbl_usuario", "id=" & i)
  
       'Dias das fases-------------------------------------------------------
       DiasFase = DLookup("[dias]", "tbl_usuario", "id=" & i)
  
       DoCmd.GoToRecord , , acNewRec
  
       If 1 = 1 Then
       Me.fases = Fase
       Me.data_liberacao = DateAdd("d", DiasFase, DatData)
       Me.SITUACAO = "NÃO LIBERADO"
  
   End If
  
   Next
  
   Else
   MsgBox "Já foram criadas as fases para a referencia." & " & IntRef & " _
   & " Para criar novamente é necessario apagar as atuais.", vbCritical, "Erro"
   End If

TrataErro:
   'Trata qualquer outro erro que ocorra
   If err.Number <> 0 Then
       MsgBox "Erro número:" & err.Number & vbCrLf & err.Description, vbCritical, "Inovack Informa"
   End If

End Function



Chame a função assim:

Call MInhaFunção


Abraços

Noob