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

    [Resolvido]Preenchimento automatico

    Compartilhe

    maryprego
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Angola
    Mensagens : 85
    Registrado : 16/07/2017

    [Resolvido]Preenchimento automatico

    Mensagem  maryprego em 22/3/2018, 20:00

    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.
    Anexos
    BD.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (122 Kb) Baixado 14 vez(es)
    avatar
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 305
    Registrado : 05/12/2016

    Re: [Resolvido]Preenchimento automatico

    Mensagem  caiosouza em 24/3/2018, 16:16

    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


    .................................................................................
    A persistência leva ao sucesso!

    maryprego
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Angola
    Mensagens : 85
    Registrado : 16/07/2017

    Re: [Resolvido]Preenchimento automatico

    Mensagem  maryprego em 25/3/2018, 10:43

    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.

    maryprego
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Angola
    Mensagens : 85
    Registrado : 16/07/2017

    Re: [Resolvido]Preenchimento automatico

    Mensagem  maryprego em 26/3/2018, 22:42

    up
    avatar
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 305
    Registrado : 05/12/2016

    Re: [Resolvido]Preenchimento automatico

    Mensagem  caiosouza em 27/3/2018, 12:40

    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


    .................................................................................
    A persistência leva ao sucesso!

    maryprego
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Angola
    Mensagens : 85
    Registrado : 16/07/2017

    Re: [Resolvido]Preenchimento automatico

    Mensagem  maryprego em 27/3/2018, 18:16

    cheers magnifico amigo caiosouza, é exactamente o que necessito.
    muito obrigado!
    avatar
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 305
    Registrado : 05/12/2016

    Re: [Resolvido]Preenchimento automatico

    Mensagem  caiosouza em 27/3/2018, 18:25

    Obrigado pelo retorno, bons estudos.

    Abçs!


    .................................................................................
    A persistência leva ao sucesso!

      Data/hora atual: 24/9/2018, 05:20