[Resolvido]Preenchimento automatico

boa noite,
estou martelando a cabeça até ao momento sem exito, peço encarecidamente a vossa ajudo nesta situação.
tenho um frm_Saida na bd que dá baixa de consumiveis em várias lojas(cada um com seu numero).
gostaria que caso no campo txtloja digitar 2121 e digitar tambem no campo txtcodinterno por exemplo 11111111 preenchesse o campo txtstock com seu stock actual.
caso digitar-se no campo txtloja 2113 e tambem o mesmo codigo de artigo (txtcodinterno) 11111111 preenchesse o com seu stock actual. para dá baixa (o que já está fazer em diferente lojas).
(o codigo do artigo pode ser repetido mas os stock são diferente por ser de diferente loja).

tentei assim e sem exito.

Select Case Me.txtLoja
  Case "2113"
  Me.txtStock = DLookup("stock", "Tbl_CadArtigos", "Stock=" & Me.txtStock) - Me.txtQtd
  DoCmd.SetWarnings False
  DoCmd.RunSQL "UPDATE Tbl_CadArtigos SET Stock= '" & Me.txtStock & "' WHERE [Loja] = Forms!Frm_Saida!txtLoja & [CodInterno] = Forms!Frm_Saida!txtCodInterno;"
  Case "2121"
  Me.txtStock = DLookup("stock", "Tbl_CadArtigos", "Stock=" & Me.txtStock) - Me.txtQtd
  DoCmd.SetWarnings False
   DoCmd.RunSQL "UPDATE Tbl_CadArtigos SET Stock= '" & Me.txtStock & "' WHERE [Loja] = Forms!Frm_Saida!txtLoja & [CodInterno] = Forms!Frm_Saida!txtCodInterno;"
Case Else
   
End Select

desde já agradeço ajuda de todos.

Boa tarde amigo, veja se atende a sua necessidade:

Código:

'arrays do tipo inteiro
Dim VarEnt, VarSaida, CodInt, Varloja As Integer
'valores para as arrays
    Varloja = Me.txtLoja
    VarCodInt = Me.txtCodInterno
    VarEnt = Nz(DSum("Quantidade", "Tbl_Entrada", "[Loja]=" & Varloja & " and [CodInterno]=" & VarCodInt & ""), 0)
    VarSaida = Nz(DSum("Quantidade", "Tbl_Saida", "[Loja]=" & Varloja & " and [CodInterno]=" & VarCodInt & ""), 0)
'mensagem para atualizacao de estock (opcional)
        If MsgBox("Total Entrada: " & VarEnt & Chr(13) & "Total saída: " & VarSaida & Chr(13) & _
                  "Saldo atual: " & VarEnt - VarSaida & Chr(13) & "Deseja atualizar o Stock?", vbYesNo + vbInformation) = vbYes Then
            Me.txtStock = VarEnt - VarSaida
        End If

olá amigo caiosouza,
muito obrigado pela disponibilidade por tentar me ajudar mas não é o que pretendo. o que pretendo é o segue:

ex: digito no campo loja o nº da loja exemplo 2121 e digito no campo código artigo exemplo 11111111 (códigos já cadastrados) e preenche já todos os campos com o seu respectivo stock. (o que está acontecendo na bd posta, é que preenche todos os campos mas está a pegar/preencher sempre com o stock de outra loja 2113 mas clicar no botão guardar está dár baixa na loja 2121. ). tem que mostra/preencher com o stock da loja 2121, neste caso como pretendesse dá saída deste artigo para loja 2121 para o informar já ao usuário quanto tem em stock.
nota: cada código do artigo está cadastrado para várias lojas.

desde já agradeço ajuda de todos.

up

Olá, bom dia!

Veja se atende a sua necessidade...:

Código:

Private Sub txtCodInterno_AfterUpdate()
On Error GoTo f
If DCount("[CodInterno]", "Tbl_CadArtigos", "[CodInterno]= " & Me.txtCodInterno & "") = 0 Then
    MsgBox "Consumível não cadastrado...", vbCritical, "Aviso"
    Me.txtCodInterno.Value = ""
    Me.txtCodInterno.SetFocus

Else
Dim VarLoja As String
VarLoja = DLookup("Loja", "tbl_loja", "[NumLoja]=" & Me.txtLoja & "")

    Me.txtDescricao = DLookup("Descricao", "Cst_CadArtigos", "Codigo=" & Me.txtCodInterno)
    Me.txtRef = DLookup("Referencia", "Cst_CadArtigos", "Codigo=" & Me.txtCodInterno)
    Me.txtFornec = DLookup("Fornecedor", "Cst_CadArtigos", "Codigo=" & Me.txtCodInterno)
    Me.txtTipos = DLookup("Tipos", "Cst_CadArtigos", "Codigo=" & Me.txtCodInterno)
    Me.txtStock = DSum("Stock", "Cst_CadArtigos", "Codigo=" & Me.txtCodInterno & " and [Loja]='" & VarLoja & "'")
    Me.txtMinimo = DLookup("Minimo", "Cst_CadArtigos", "Codigo=" & Me.txtCodInterno)
    Me.txtQtd.SetFocus
End If
f:
Call TrataErroF
End Sub

magnifico amigo caiosouza, é exactamente o que necessito.
muito obrigado!

Obrigado pelo retorno, bons estudos.

Abçs!