Copiar antes do Form abrir

Boa Tarde,

No excel antes de eu abrir um Form eu consigo colocar numa caixa de texto uma informacao para quando o mesmo abrir ja abrir com essa Inf.
Explicar melhor:

Eu estou num Form "A", e quero que um dado entre no From "B", mas aqui no Acess somente consigo mandar este dado se o mesmo "B" ja estiver aberto. Para contornar este problema, eu criei um Form temporario "C" . Desta forma eu abro o Form "C" mando para o "C" a Informacao desejada.
Feito isto na mesma Macro iniciada em Form "A" mando abrir o Form "B" e ao carregar ele puxa a Inf de "C ".
Seria mais facil eu puxar a inf de "A"direto , mas neste caso o Form "A" e um PDV, e neste caso tenho 5 PDV iguais 1 a 5. Quando abro o Form "C" vai em outra caixa, alem da Inf acima, uma referencia de qual caixa foi iniciada esta acao.

Resumindo: Preciso anular o Form 'C" e na Macro de Form "A" mandar a Inf ja de forma direta.

Grato e desculpe se confundi vcs.

Entender melhor:

No excel eu consgo fazer isso mas nao no acees, errei em algo ?

'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

'Tive que criar esta rotina porque preciso enviar 2 campos para Form "A4_Validade , mas o mesmo ainda nao esta aberto !
DoCmd.OpenForm "A3_Menu", acNormal
Forms![A3_Menu].Form.txt_PdvAtivo.Value = CDbl(PDV.Caption)
Forms![A3_Menu].Form.txt_CodBarra.Value = Me.txtCodigoBarra

' ESTE ABAIXO E O FORM QUE EU QUERO ANTES DE SER ABERTO QUE O FORM[PDV].PDV.caption e txtcodigoBarra mande as inf para 2 campos de "A4_Validades"
DoCmd.OpenForm "A4_Validades", , , , , acDialog
DoCmd.Close acForm, "A3_Menu"
DoCmd.Close acForm, "A4_Validades"
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Andre

Boa tarde,

Se essa informação for fixa, no evento ao abrir do formulário a4_validades:

Código:

me.caption = "O que voce quiser que seja o título do form"
me.seu_campo = valor_do_campo

Se for uma informação que venha de outro formulário, faça o seguinte no form que abre o form a4_validades:

Código:

docmd.openform "A4_Validades"
Forms("A4_validades").[CAMPO_RECEBE] = me.CAMPOVALOR

Repita a segunda linha para os N campos que quer passar o valor.

Se não ficou claro, poste um modelo do seu bd para analisarmos.

Abraço.

Grato amigao, eu vou deixar o post aberto ainda porque vou aplicar no projeto, mas nao poderei fazer isso agora, assim que testar eu te falo aqui.

Muito grato por sua ajuda.

Andre

a segunda opcao ate funcionou, mas devido ter um acDialog preciso que pare ate eu em A4_Validade escolher a validade correta

DoCmd.OpenForm "A4_Validades", , , , , acDialog

Meu comando original e assim e funciona :

Código:



 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 
  DoCmd.OpenForm "A3_Menu", acNormal
  Forms![A3_Menu].Form.txt_PdvAtivo.Value = CDbl(PDV.Caption)
  Forms![A3_Menu].Form.txt_CodBarra.Value = Me.txtCodigoBarra

  DoCmd.OpenForm "A4_Validades", , , , , acDialog
  DoCmd.Close acForm, "A3_Menu"
  DoCmd.Close acForm, "A4_Validades"
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

    Me.ImagemProduto.Picture = Application.CurrentProject.Path & "\Fotos\" & txtCodigoBarra & ".jpg" ' Me.txtcaminho
PulaImagem:
    Me.cboformaPag.Enabled = True



Coloquei assim ele nao parou am acDialog, Pois nao iria funcionar depois do AdDialog, por isso coloquei antes

Código:



 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

DoCmd.OpenForm "A4_Validades"
Forms("A4_validades").[TxtCodbarra] = Me.txtCodigoBarra
Forms("A4_validades").[txtref2] = PDV.Caption

  DoCmd.OpenForm "A4_Validades", , , , , acDialog
  DoCmd.Close acForm, "A3_Menu"
  DoCmd.Close acForm, "A4_Validades"
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

    Me.ImagemProduto.Picture = Application.CurrentProject.Path & "\Fotos\" & txtCodigoBarra & ".jpg" ' Me.txtcaminho
PulaImagem:
    Me.cboformaPag.Enabled = True



Boa tarde,

Resolveu o problema então?

ola Boa Tarde

a segunda opcao ate funcionou, mas devido ter um acDialog preciso que pare ate eu em A4_Validade escolher a validade correta