Alterar Valor de um Campo de uma Tabela via VBA

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!

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.

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!

Ola Kleyton;

Consegue sim desta forma;

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

E o Insert Into tambem;

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

Funcionou!!!

Valeu mesmo JPaulo...

Valew;

Qualquer duvida dê um grito aqui.

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