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

    Alterar Valor de um Campo de uma Tabela via VBA

    Compartilhe

    Kleyton.sccam
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 25/01/2010

    Alterar Valor de um Campo de uma Tabela via VBA

    Mensagem  Kleyton.sccam em Seg 25 Jan 2010, 17:00

    Boa Tarde,

    Estou desenvolvendo um formulario de pedido de compra.
    No cadastro dos Itens em Estoque, terá 3 fornecedores para cada item

    O que eu preciso é que ao gerar o pedido de compra e selecionar o item, verificar no cadastro
    do item se há algum campo do fornecedor vazio (Campos Fornecedor1, Fornecedor2, Fornecedor3)

    Se o fornecedor1 estiver em branco, cadastrar o forncedor que está sendo feito o pedido (no meu codigo tá [Form_FRM de compras].Fornecedor) no campo do forncedor1 e no campo Custo1 puxar do valor unitario do formulario de compra.

    Pra verificar se os campos do fornecedor está vazio, já consegui. Só não sei como atualizar o valor dos campos fornecedor e custo tabela do Item.

    segue o codigo abaixo:

    Private Sub cmbItem_LostFocus()
    On Error GoTo fim
    Dim varForn As Variant
    Dim i As Integer
    For i = 1 To 3
    varForn = DLookup("Fornecedor" & i, "TBL Itens Comerciais", "[Código] = cmbItem")
    If IsNull(varForn) Then
    MsgBox ("Fornecedor " & i & " em Branco")
    i = 4
    Else
    MsgBox ("Fornecedor " & i & " Ocupado")
    '**Checa para ver se o Fornecendor 1 cadastrado é igual ao fornecedor do pedido
    If (varForn = [Form_FRM de compras].Fornecedor) Then
    'MsgBox ("Fornecedores Iguais" & varForn & " = " & [Form_FRM de compras].Fornecedor)
    i = 4
    'MsgBox ("Sair do for")
    End If
    End If
    Next i
    fim:
    Exit Sub
    End Sub



    Kleyton Pinheiro Ferreira
    Mude que o mundo muda!


    Última edição por Kleyton.sccam em Qui 28 Jan 2010, 10:47, editado 1 vez(es)
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9550
    Registrado : 04/11/2009

    Re: Alterar Valor de um Campo de uma Tabela via VBA

    Mensagem  JPaulo em Ter 26 Jan 2010, 07:38

    Ola Bom dia e seja bem vindo ao fórum;

    Se existir, para atualizar utilize a função UPdate
    Se não existir, utilize para cadastrar a função Insert Into

    Qualquer coisa estamos ae.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    Kleyton.sccam
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 25/01/2010

    Re: Alterar Valor de um Campo de uma Tabela via VBA

    Mensagem  Kleyton.sccam em Ter 26 Jan 2010, 10:52

    Obrigado JPaulo,

    mas a duvida é se eu consigo usar a função UPdate no VBA tambem?

    teria que usar o comando DoCmd.RunSQL pra executar esse comando?

    ________________________
    Kleyton Pinheiro Ferreira
    Mude que o mundo muda!
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9550
    Registrado : 04/11/2009

    Re: Alterar Valor de um Campo de uma Tabela via VBA

    Mensagem  JPaulo em Ter 26 Jan 2010, 10:55

    Ola Kleyton;

    Consegue sim desta forma;

    DoCmd.RunSQL "UPDATE SuaTabela Set [SuaTabela].[SeuCampo] = '" & Me.txtCampoNoForm & "' WHERE [SuaTabela].[SeuCampoID] = " & Me.ID & ""


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9550
    Registrado : 04/11/2009

    Re: Alterar Valor de um Campo de uma Tabela via VBA

    Mensagem  JPaulo em Ter 26 Jan 2010, 11:02

    E o Insert Into tambem;

    CurrentDb.Execute "INSERT INTO [SuaTabela] (Campo1, Campo2, Campo3, Campo4) VALUES (" & txtCampo1 & ", " & txtCampo2 & ", " & txtCampo3 & "," & txtCampo4 & ");"


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    Kleyton.sccam
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 25/01/2010

    Re: Alterar Valor de um Campo de uma Tabela via VBA

    Mensagem  Kleyton.sccam em Ter 26 Jan 2010, 11:19

    Funcionou!!!

    Valeu mesmo JPaulo...
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9550
    Registrado : 04/11/2009

    Re: Alterar Valor de um Campo de uma Tabela via VBA

    Mensagem  JPaulo em Ter 26 Jan 2010, 11:23

    Valew;

    Qualquer duvida dê um grito aqui.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    kleyton_mendes
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 182
    Registrado : 28/03/2011

    Re: Alterar Valor de um Campo de uma Tabela via VBA

    Mensagem  kleyton_mendes em Qui 27 Jul 2017, 18:10

    Prezados,

    Tenho a seguinte necessidade, trata-se de um form em que o usuario cadastra inclusive o prazo de entrega, criei em seguida um botão que chama outro form e permite o usuario solicitar a alteração do prazo original, dentro deste form de "solicitação de alteração de prazo" tem campos para em um usuario com um nivel de segurança maior consegue aprovar a solicitação de alteração, e até está tudo ok, não estou conseguindo é após aprovar o novo prazo, esse novo prazo seja alterado na no registro da tabela original.

    Tentei o codigo sugerido pelo JPaulo porém não esta dando certo:

    DoCmd.RunSQL "UPDATE SuaTabela Set [tblDemandas].[prazo_atual] = '" & Me.novoprazo & "' WHERE [tblDemandas].[contador2] = " & Me.codigo_demanda & ""

    Meu BD tem a seguinte estrutura:

    Tabela original: tblDemandas
    Form original: fmrDemandas
    Campo: prazo_d

    Tabela para alteração do prazo: tblSolPraz
    Form para alteração de prazo: fmrSolPraz
    Campo: novoprazo

    Alguem pode me ajuda?

    Abraços


    Kleyton

      Data/hora atual: Sab 23 Set 2017, 06:46