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]Atualizar caixa de cobinação no subformulario altomaticamente

    avatar
    GILDEZIO
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 120
    Registrado : 23/04/2014

    [Resolvido]Atualizar caixa de cobinação no subformulario altomaticamente Empty [Resolvido]Atualizar caixa de cobinação no subformulario altomaticamente

    Mensagem  GILDEZIO em 29/1/2019, 23:20

    Boa noite amigos
    Tenho um formulário de cadastro e pedidos como um subformulario onde busco os produtos para inserir no pedido, as vezes o produto não esta cadastro, tenho que abrir formulário de cadastro de produtos. A pergunta é: como fazer para quando eu fechar o cadastro de produtos automaticamente esse produto já aparecer no meu subformulário.estou usando essa expressão essa expressão: Forms!frmpricipal!meusub!meucontrole.Requery.onde esta o erro:lebrando que esse código estou usando no evento ao fechar do formulário de produto.
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2905
    Registrado : 21/04/2011

    [Resolvido]Atualizar caixa de cobinação no subformulario altomaticamente Empty Re: [Resolvido]Atualizar caixa de cobinação no subformulario altomaticamente

    Mensagem  Marcelo David em 30/1/2019, 01:14

    Boa noite,
    que controle é meucontrole
    qual erro está dando?



    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    avatar
    GILDEZIO
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 120
    Registrado : 23/04/2014

    [Resolvido]Atualizar caixa de cobinação no subformulario altomaticamente Empty Re: [Resolvido]Atualizar caixa de cobinação no subformulario altomaticamente

    Mensagem  GILDEZIO em 30/1/2019, 10:11

    MEU CONTROLE É UMA COMBO QUE PEGA OS PRODUTOS NA TABELA PRODUTOS E O ERRRO É O SISTEMA O ACCESSE NAO PODE LOCALIZAR O CAMPO NO FORMULÁRIO
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2905
    Registrado : 21/04/2011

    [Resolvido]Atualizar caixa de cobinação no subformulario altomaticamente Empty Re: [Resolvido]Atualizar caixa de cobinação no subformulario altomaticamente

    Mensagem  Marcelo David em 30/1/2019, 10:13

    Se está dando esse erro, sugere que o nome da sua combo não está correto. Dê uma revisada aí nos nomes...


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    avatar
    GILDEZIO
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 120
    Registrado : 23/04/2014

    [Resolvido]Atualizar caixa de cobinação no subformulario altomaticamente Empty Re: [Resolvido]Atualizar caixa de cobinação no subformulario altomaticamente

    Mensagem  GILDEZIO em 30/1/2019, 15:27

    essa combo é um campo:descrição, nesse caso teria que trocar o nome do campo na Tabela?
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2905
    Registrado : 21/04/2011

    [Resolvido]Atualizar caixa de cobinação no subformulario altomaticamente Empty Re: [Resolvido]Atualizar caixa de cobinação no subformulario altomaticamente

    Mensagem  Marcelo David em 30/1/2019, 22:36

    Poderia postar o banco para vermos?
    O campo na tabela seria e em qualquer outro local, é bom
    evitar acentos.
    Descrição, recomedado descricao.


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    avatar
    jntrindade
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 272
    Registrado : 07/12/2009

    [Resolvido]Atualizar caixa de cobinação no subformulario altomaticamente Empty Re: [Resolvido]Atualizar caixa de cobinação no subformulario altomaticamente

    Mensagem  jntrindade em 30/1/2019, 22:48

    boa noite, coloque no evento se nao estiver na lista, entre no modulo e tente adaptar esse codigo:

    Dim strSQL As String, X As Integer
    Dim LinkCriteria As String
    X = MsgBox("Fornecedor não cadastrado. Deseja cadastrar?", vbYesNo, "Sicoest")
    If X = vbYes Then
    strSQL = "Insert Into Tab_Fornecedor ([NomeFantasia]) values ('" & NewData & "')"
    ' MsgBox strsql
    CurrentDb.Execute strSQL, dbFailOnError
    LinkCriteria = "[NomeFantasia] = '" & Me.Forne.text & "'"
    DoCmd.OpenForm "Fornecedor", , , LinkCriteria

    Response = acDataErrAdded
    Else
    Response = acDataErrContinue
    End If
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2905
    Registrado : 21/04/2011

    [Resolvido]Atualizar caixa de cobinação no subformulario altomaticamente Empty Re: [Resolvido]Atualizar caixa de cobinação no subformulario altomaticamente

    Mensagem  Marcelo David em 30/1/2019, 23:24

    jntrindade escreveu:boa noite, coloque no evento se nao estiver na lista, entre no modulo e tente adaptar esse codigo:

    Dim strSQL As String, X As Integer
    Dim LinkCriteria As String
    X = MsgBox("Fornecedor não cadastrado. Deseja cadastrar?", vbYesNo, "Sicoest")
    If X = vbYes Then
    strSQL = "Insert Into Tab_Fornecedor ([NomeFantasia]) values ('" & NewData & "')"
    ' MsgBox strsql
    CurrentDb.Execute strSQL, dbFailOnError
    LinkCriteria = "[NomeFantasia] = '" & Me.Forne.text & "'"
    DoCmd.OpenForm "Fornecedor", , , LinkCriteria

    Response = acDataErrAdded
    Else
    Response = acDataErrContinue
    End If


    Pelo o que o autor do tópico descreveu, ele está com dificuldade em dar um requery em uma combo e não em tratar os itens que não estiverem na lista.
    Mas de qualquer forma, se ajudar o autor, maravilha se não, será conhecimento compartilhado.  Smile


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    avatar
    GILDEZIO
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 120
    Registrado : 23/04/2014

    [Resolvido]Atualizar caixa de cobinação no subformulario altomaticamente Empty Re: [Resolvido]Atualizar caixa de cobinação no subformulario altomaticamente

    Mensagem  GILDEZIO em 1/2/2019, 10:22

    obrigado amigos já resolvi,apenas excluir o subformualrio e criei outro funcionou normal

    Conteúdo patrocinado

    [Resolvido]Atualizar caixa de cobinação no subformulario altomaticamente Empty Re: [Resolvido]Atualizar caixa de cobinação no subformulario altomaticamente

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 14/12/2019, 13:42