MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Copiar antes do Form abrir

    Compartilhe

    fazerbem
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 68
    Registrado : 05/03/2017

    Copiar antes do Form abrir

    Mensagem  fazerbem em Sex 01 Jun 2018, 18:42

    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

    avatar
    CassioFabre
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 708
    Registrado : 18/01/2013

    Re: Copiar antes do Form abrir

    Mensagem  CassioFabre em Sex 01 Jun 2018, 19:57

    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.


    .................................................................................
    Só não tem código pra morte!

    fazerbem
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 68
    Registrado : 05/03/2017

    Re: Copiar antes do Form abrir

    Mensagem  fazerbem em Sex 01 Jun 2018, 20:17

    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

    fazerbem
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 68
    Registrado : 05/03/2017

    Re: Copiar antes do Form abrir

    Mensagem  fazerbem em Sex 01 Jun 2018, 23:22

    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

    avatar
    CassioFabre
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 708
    Registrado : 18/01/2013

    Re: Copiar antes do Form abrir

    Mensagem  CassioFabre em Seg 04 Jun 2018, 18:39

    Boa tarde,

    Resolveu o problema então?


    .................................................................................
    Só não tem código pra morte!

    fazerbem
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 68
    Registrado : 05/03/2017

    Re: Copiar antes do Form abrir

    Mensagem  fazerbem em Seg 04 Jun 2018, 19:06

    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

      Data/hora atual: Qua 20 Jun 2018, 12:39