[Resolvido]Calendario Único

Boa tarde a todos,

Depois de muitas tentativas em vão, venho aqui pedir vossa ajuda.

Sempre que existe um campo "data" numa DB, tráz sempre associado o problema dos erros de introdução.
Para evitar esse transtorno costumo usar um formulário calendário para introdução de datas.

Funciona da seguinte forma:

Nome do form calendário: frm_CalendarioUniversal
Nome do campo data: dataescolhida

Para qualquer form onde quero inserir uma data chamo o form calendário com o seguinte código:

If Me.Dirty Then Me.Dirty = False

DoCmd.OpenForm "frm_CalendarioUniversal", OpenArgs:="frm_Teste|" & "DataTeste" --> Nome do Form e nome do campo para inserir data


Ao validar a data no cmd click do form calendário uso o seguinte procedimento:

   Dim intPos As Integer
   Dim NomeForm As String
   Dim NomeTexto As String
   
   If Len(Me.OpenArgs) > 0 Then
     
           intPos = InStr(Me.OpenArgs, "|")

           If intPos > 0 Then

           
           NomeForm = Left$(Me.OpenArgs, intPos - 1)

         
           NomeTexto = Mid$(Me.OpenArgs, intPos + 1)

        End If
   End If
     

   Forms(NomeForm).Controls(NomeTexto) = Forms![frm_CalendarioUniversal]![dataescolhida]


Este procedimento sempre funcionou bem durante muito tempo.

Atualmente preciso fazer o mesmo procedimento, mas desta vez para o subFormTeste.

Pelo facto de ser um SubForm não estou tendo sucesso.

Alguém pode me ajudar?

Obrigado a todos

Bom dia.

Para referenciar objeto ou controle em um Subform.

Exemplo

Os próximos dois exemplos mostram como você poderia se referir a um controle chamado NewData em um subformulário ctlSubForm contido no formulário chamado OrderForm:

Forms!OrderForm.ctlSubForm.Form!Controls.NewData

Forms!OrderForm.ctlSubForm!NewData

Extraído do site da Microsoft.

Att, Delson

Obrigado Delson,

O problema é passar os parâmetros do subformulário para o formulário e vice-versa.

Eu resolvi o problema e deixo aqui a solução para quem precisar:

Chamo o formulário frm_CalendarioUniversal e passo os parâmetros por OpenArgs:

If Me.Dirty Then Me.Dirty = False

DoCmd.OpenForm "frm_CalendarioUniversal", OpenArgs:="frm_teste|" & "frm_teste_Subform|" & "DataTeste"   ---> 'NomeDoForm, SubForm e NomeDoCampo



No cmd click do formulário frm_CalendarioUniversal passo a data para o subform com o seguinte código:

     
   Dim intPos As Integer
   Dim NomeForm As String
   Dim NomeSubForm As String
   Dim NomeTexto As String
   
       
   If Len(Me.OpenArgs) > 0 Then
       ' Position of the pipe
           intPos = InStr(Me.OpenArgs, "|")

           If intPos > 0 Then

           'Retrieve MainForm Name from the string
           NomeForm = Left$(Me.OpenArgs, intPos - 1)
                                         
           'Retrieve SubForm Name from the string
           NomeSubForm = Left$(Mid$(Me.OpenArgs, intPos + 1), intPos - 0)
           
           'Retrieve Control Name from the string
           NomeTexto = Mid$(Mid$(Me.OpenArgs, intPos + 1), intPos + 2)
           

       End If
   End If
   
   Forms(NomeForm)(NomeSubForm).Form(NomeTexto) = Forms![frm_CalendarioUniversal]![dataescolhida]
         
   'fecha o form
   DoCmd.Close acForm, "frm_CalendarioUniversalSub"

Obrigado