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]Fonte de controle

    avatar
    fazerbem
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Fonte de controle Empty [Resolvido]Fonte de controle

    Mensagem  fazerbem 14/8/2018, 22:15

    Numa sub Form "Compras", tenho um campo chamando "precoCompra", ao ser carregado este form, como sua fonte de controle = preçoCompra ( da TabCad_produto) o valor aparece o informado que esta na tabela especifica.
    Porem nessa TabCad_Produto, eu tenho outro campo chamado "precoCompra_Novo".

    Eu gostaria que quando o Form "Compras" fosse carregado e caso eu modificasse o valor de "precoCompra", inserindo o valor de "precoCompra_Novo", este valor fosse gravado no campo da tabela de nome "precoCompra_Novo, sem que o "precoCompra"se modificasse.

    Isso é possivel ?
    tauron
    tauron
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1394
    Registrado : 07/12/2011

    [Resolvido]Fonte de controle Empty Re: [Resolvido]Fonte de controle

    Mensagem  tauron 14/8/2018, 23:32

    Se vc ja possui o campo na tabela, porque nao colocar um campo oculto no formulario e quando for alterar o valor ele surge tipo

    No formulario

    VlrCompra :
    largura= 3cm

    VlrCompraNovo:
    largura= 0cm
    Esquerda= 3,598cm

    Seuproximocampo:
    Largura= 3cm
    Esquerda=3,598cm

    no evento "ao clicar duas vezes" do campo VlrCompra coloque algo do tipo

    Me.VlrCompraNovo.Width = 1701
    Me.Rótulo6.Width = 1701
    Me.Seuproximocampo.Left = 3797.77
    Me.Rótulo6.Left = 3797.77

    assim vc tera os visão dos dois campos no formulario. E lembre-se que as medidas sao exemplo e deve adpta-las conforme sua necessidade.
    avatar
    fazerbem
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Fonte de controle Empty Re: [Resolvido]Fonte de controle

    Mensagem  fazerbem 15/8/2018, 14:07

    Ola

    Nao tenho este novo campo na tabela ( tbl_comprasSub.precoCompra_Novo ), so tenho o precoCompra.

    Na verdade quero criar uma macro caso eu mude o valor, ele nao altere o valor que ja esta em precoCompra, mas crie um novo valor em precocompra_Novo.

    Na macro abaixo, ele faz isso, mas grava o valor, nao no cod do produto que estou atuando, mas grava no primeiro codigo da Tabela Cad_Produto.

    Código:


    Private Sub PrecoCompra_AfterUpdate()

    If MsgBox("Deseja Alterar o Valor desse Produto?", vbYesNo + vbInformation, "Finalizando") = vbYes Then

    Dim bc As Database

    'Nessa Parte vc pode declarar com qualquer nome, geralmente eu uso o proprio nome da tabela que quero inserir as informaçãos, ou abrevio ela, tanto faz.

    Dim Tab2 As Recordset

    'Inicializa os Valores das Variaveis

    Set bc = CurrentDb()
    Set Tab2 = bc.OpenRecordset("TblCad_Produto")

    'Cria Um novo Registro
    Tab2.Edit
    'No Novo Registro Insere Os Dados que vc Deseja

    Tab2!PrecoCompra = Me.PrecoCompra
    'Tab2!NomeDoCampo2 = Me.NomeDoCampo2

    'Atualiza Tabela
    Tab2.Update

    End If

    End Sub


    avatar
    fazerbem
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Fonte de controle Empty Re: [Resolvido]Fonte de controle

    Mensagem  fazerbem 15/8/2018, 14:53

    acho que o ideal seria fazer atraves de um comando DoCmd.RunSQL, mas nao sei fazer.

    avatar
    fazerbem
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Fonte de controle Empty Re: [Resolvido]Fonte de controle

    Mensagem  fazerbem 15/8/2018, 17:19

    consegui aqui fazer

    DoCmd.RunSQL "UPDATE tblcad_Produto Set [tblCad_Produto].[precoCompra_Novo] = '" & Me.PrecoCompra & "' WHERE [tblcad_Produto].[idProduto] = " & Me.CodigoProduto.Value & ""


    Andre
    tauron
    tauron
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1394
    Registrado : 07/12/2011

    [Resolvido]Fonte de controle Empty Re: [Resolvido]Fonte de controle

    Mensagem  tauron 16/8/2018, 12:16

    Que bom que resolveu,

    So deixar uma dica, seja mais claro nas postagens (isso as vezes acontece mas leva mais tempo do deveria para solucionar).

    voce primeiro postou:

    "Numa sub Form "Compras", tenho um campo chamando "precoCompra", ao ser carregado este form, como sua fonte de controle = preçoCompra ( da TabCad_produto) o valor aparece o informado que esta na tabela especifica.
    Porem nessa TabCad_Produto, eu tenho outro campo chamado "precoCompra_Novo". "

    Depois

    "Nao tenho este novo campo na tabela ( tbl_comprasSub.precoCompra_Novo ), so tenho o precoCompra.

    Na verdade quero criar uma macro caso eu mude o valor, ele nao altere o valor que ja esta em precoCompra, mas crie um novo valor em precocompra_Novo."

    Conteúdo patrocinado


    [Resolvido]Fonte de controle Empty Re: [Resolvido]Fonte de controle

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 14:34