MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

2 participantes

    [Resolvido]Formulario em diferentes aplicações

    avatar
    souzadenilson
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 143
    Registrado : 02/05/2012

    [Resolvido]Formulario em diferentes aplicações Empty [Resolvido]Formulario em diferentes aplicações

    Mensagem  souzadenilson 1/7/2022, 04:46

    Boa noite.
    Realizei uma alteração no programa que estou desenvolvendo, e a ideia é utilizar o mesmo formulário para diferentes lançamento.

    Se na tela menu clicar em acerto de estoque  o formulario  frm_movimento será aberto e com o cursor posicionando no campo código, e ao digitar o código , o cursor será direcionado para o campo Fisico_Produto. (Este será desbloqueado) e quando atualizar o valor será salvo na tabela cadastro.
    A ideia e usar o formulario movimento para acerto de estoque, entrada e saída

    Código:


    Private Sub Form_Load()
       If CurrentProject.Forms![frm_menu].[Btn_AcertoEstoque].IsLoaded = True Then
        DoCmd.GoToRecord , , acNewRec
        Call Bloqueia_Acerto
        'Me.Data_Lcto = Now
        'Me.Data_Lcto.Enabled = False
        'Me.Obs_Mvto = "Conferencia"
        'Me.Obs_Mvto.Enabled = False
        'Me.Num_Doc = Me.Data_Lcto
        'Me.Num_Doc = Format(Me.Num_Doc, "ddmmyy")
        'Me.Num_Doc.Enabled = False
        'Me.Btn_Novo.Enabled = False
        'Me.Btn_Cancelar.Enabled = False
        'Me.Btn_Atualiza.Enabled = False
       'Me.Fisico_Produto = " "
        'Me.Obs_Mvto = "Conferencia"
      End If
    End Sub

    Anexos
    [Resolvido]Formulario em diferentes aplicações AttachmentItens de Controle.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (302 Kb) Baixado 5 vez(es)


    Última edição por souzadenilson em 6/7/2022, 01:25, editado 1 vez(es)
    bigfill
    bigfill
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 438
    Registrado : 27/03/2015

    [Resolvido]Formulario em diferentes aplicações Empty Re: [Resolvido]Formulario em diferentes aplicações

    Mensagem  bigfill 1/7/2022, 15:21

    souzadenilson, não entendi direito qual a necessidade de criar um formulario para 3 operações.

    Mais um jeito mais facil seria criar um campo desvinculado no formulario "Frm_Movimento", e inserir o que seria no "Ao abrir".

    Tipo: "Acerto" ou "Saida" ou "Entrada"

    E bloque e desbloquear os campos de acordo com a necessidade com a função Selmed.

      Data/hora atual: 15/8/2022, 14:52