MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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 : 121
    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 : 3143
    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 : 121
    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 : 3143
    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 : 121
    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 : 3143
    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 : 276
    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 : 3143
    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 : 121
    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

      Data/hora atual: 14/8/2020, 03:41