Valores de um Form para outro

Bom dia pessoal.
Tenho um programa que tenho alterado para varias aplicações.
Desta vez a mudança foi mais profunda e não estou a conseguir colocar a trabalhar.
Ser que alguem me pode ajudar ?

Quando escrevo algo o programa faz filtro automatico.
Depois a frente do EPN tem uma secta para selecionar o programa.
Quando carrego nisso queria que ele copia-se os valores referencia daquele EPN para aquela folha.
Depois quando adiciona a informação adicional este deveria fazer algumas contas entre o que introduzi e o que ja existe na base de dados.

Olá Cabete,

Em qual form vc está se referindo?

Att,

Ja adicionei umas imagens do que pretendo

Olá Cabete,

No Módulo1, criei uma variável global chamada "vgRefer", que recebe o valor do campo "Referencia", e que no Form_Load() do formulário "Saída Material" o campo Referencia é preenchido com o valor desta variável global.

Espero ter ajudado

Boa sorte

[]

Diria que percebi e não percebi.
O meu Vba não chega a tanto, para agora adicionar + variaveis, precisava de mais uma ou outra variável para replicar.

Tinha um outro programas feito a 8 anos que estava assim mas, ja não faço minima do que fiz, sei que foi com a ajuda aqui do forum.

Código:

Private Sub Form_Open(Cancel As Integer)
    Dim Posicao(9) As Byte
    Me.Referencia.SetFocus
    TempoStr = Me.OpenArgs
    Cont = 1
    For i = 1 To Len(TempoStr)
            If Mid(TempoStr, i, 1) = "@" Then
            Posicao(Cont) = i
            Cont = Cont + 1
            End If
        Next
    Referencia = Mid(TempoStr, 1, Posicao(1) - 1)
    Produto = Mid(TempoStr, Posicao(1) + 1, Posicao(2) - Posicao(1) - 1)
    Descrição = Mid(TempoStr, Posicao(2) + 1, Posicao(3) - Posicao(2) - 1)
    Marca = Mid(TempoStr, Posicao(3) + 1, Posicao(4) - Posicao(3) - 1)
    Arm = Mid(TempoStr, Posicao(4) + 1, Posicao(5) - Posicao(4) - 1)
    Part = Mid(TempoStr, Posicao(5) + 1, Posicao(6) - Posicao(5) - 1)
    Fil = Mid(TempoStr, Posicao(6) + 1, Posicao(7) - Posicao(6) - 1)
    Prof = Mid(TempoStr, Posicao(7) + 1, Posicao(8) - Posicao(7) - 1)
    Stoc = Mid(TempoStr, Posicao(8) + 1, Posicao(9) - Posicao(8) - 1)
    Min = Mid(TempoStr, Posicao(9) + 1, Len(TempoStr))
End Sub

Olá,

Voce baixou e testou o anexo que te mandei?

Sim
Não sei é como adicionar mais variáveis

Esquece, estava a ver no local errado.
Ja percebi.
Mesmo daaaaaa.


Deixa me ver se me oriento depois na Multiplicação de variáveis mas se não conseguir dp aviso.