[Resolvido]Erro no transporte de valores entre formulários e na montagem de SQL

Tenho um problema é relacionado (pelo menos acho) a sobreposição de procedimentos.

No formulário frmFFerias tenho um subform (frmFFerias_Sub), de parte um procedimento para abrir um segundo formulário.

Código:

 
  DoCmd.OpenForm "frmEv_Selec", , , , , , Nz(Me.CodEvento1, 0)
  Forms!frmEv_Selec!TipoFolha = Parent!TipoFolha '(integer)
  Forms!frmEv_Selec!Contrato = Parent.Contrato '(integer)


Ao carregar o formulário frmEv_Selec, os valores nos campos devem ser aplicados.
No evento NoAtual deste formulário, executo, o seguinte código para montar o RecordSource do subform. frmEv_SSub:

Código:

    'Contrato
    If Me.Contrato = 1 Or Me.Contrato = 3 Then
        strWhere1 = "CodEvento Not In (12)"
    ElseIf Me.Contrato = 2 Then 'Horista
        strWhere1 = "CodEvento Not In (10)"
    Else 'Comissionista
        strWhere1 = "CodEvento Not In (10,12)"
    End If
    'Tipo de Folha
    Select Case Me.TipoFolha
        Case 1 'Folha Mensal
            strWhere2 = "AND Mensal = True"
        Case 2 'Aviso de Férias
            strWhere2 = "AND Ferias = True"
        Case 3 '13º Salário
            strWhere2 = "AND DTerSal = True"
    End Select
   
    strSQL = "SELECT CodEvento,Evento,IIf([Tipo]=True,'C','D') AS CD FROM tblEventos " & _
              "WHERE " & strWhere1 & strWhere1 & " ORDER BY CodEvento"
    Forms!frmEv_Selec!frmEv_SSub.Form.RecordSource = strSQL

O procedimento está gerando erro na montagem do SQL porque, primeiro, o mesmo é executado antes que os valores sejam importados para os campos TipoFolha e Contrato e, segundo, impede essa mesma importação (os dois campos ficam vazios).

Pensei em utilizar OpenArgs, mas são três valores e pelo que vi a propriedade transporta um valor único.

Sim, mas esse valor único pode ser uma string concatenando vários dados separados por um delimitador (";" por exemplo).

Depois, use a função Split() para separar as partes da string.

Claudio Mas,

consegui assim:

Ao abrir o formulário, a propriedade OpenArgs carrega três valores:
DoCmd.OpenForm "frmEv_Selec", , , , , , intFolha & Parent.Contrato & Nz(Me.CodEvento1, 0)

Então, usei Left e Mid para separar o valores:
1º: Left(Me.OpenArgs, 1)
2º: Mid(Me.OpenArgs, 2, 1)
3º: Mid(Me.OpenArgs, 3, 4)

Neste caso, foi mais simples isso que usar Split porque:
intFolha e Parent.Contrato possuem, cada um, sempre um número apenas. Sendo que CodEvento1 é o único que possui número de caracteres variável.

Caso o número de caracteres fosse variáveis para os três campos, então a melhor solução passaria pela sua dica.

Obrigado pela ajuda.