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]update funciona mas não compila

    avatar
    charlehardware
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 30
    Registrado : 03/01/2011

    [Resolvido]update funciona mas não compila Empty [Resolvido]update funciona mas não compila

    Mensagem  charlehardware em Sex 23 Dez 2016, 10:17 pm

    Function BotaoSalvarPermicoes()
    'On Error Resume Next       ' Bom para variaves vasias
    'DoCmd.SetWarnings False    ' Bom para evitar msg record db
    Dim StrSQL As String

       StrSQL = "UPDATE Funcionario" _
       & "SET XM_Inicial = '" & TxtXM_inicial & "', XM_Cadastro = '" & TxtXM_Cadastro & _
       "', XTodos = '" & Me.TxtXTodos & "', XM_Configuracoes = '" & Me.TxtXM_Configuracoes & _
       "', XM_R1 = '" & Me.TxtXM_R1 & "', XM_R2 = '" & Me.TxtXM_R2 & _
       "', XPagarContas = '" & Me.TxtXPagarContas & _
       "', XProduto = '" & Me.TxtXProduto & _
       "', XrEntrada = '" & Me.TxtXrEntrada & _
       "', XRegistro = '" & Me.TxtXRegistro & _
       "', XRestoque = '" & Me.TxtXRestoque & _
       "', XEntrada = '" & Me.TxtXEntrada & _
       "', XRVendas = '" & Me.TxtXRVendas & _
       "', XM_R3 = '" & Me.TxtXM_R3 & _
       "', XDicasMEI = '" & Me.TxtXdicasmei & _
       "', XConfiguracoes = '" & Me.TxtXConfiguracoes & _
       "', XCadastracontas = '" & TxtXCadastracontas & _
       "', XFuncionario = '" & Me.TxtXFuncionario & _
       "', XLocalizador = '" & Me.TxtXlocalizador & _
       "', XMesa = '" & Me.TxtXMesa & _
       "', XM_Contas = '" & TxtXM_Contas & _
       "', XRbruto_liquido = '" & Me.TxtXRBruto_liquido & _
       "', XMinhaEmpresa = '" & Me.TxtXMinhaEmpresa & _
       "', XOs = '" & Me.TxtXOs & _
       "' WHERE CodFuncionario = " & Me.txtCod & ";"
        DoCmd.RunSQL StrSQL ' executa as ações
             
       Call BeepOnce(0, 0)
       MsgBox ("Permições atualizadas com sucesso!"), vbInformation + vbOKOnly, "SoftFacil"
                     
    DoCmd.SetWarnings True
    End Function

    a mensagem do erro parece obvia: "método ou membro de dados não encontrada" e sempre da no ultimo campo a atualizar
    nesse caso foi no "', XOs = '" & Me.TxtXOs & _   sublinhado Me.TxtXOs  sendo que os dois existe tanto que funciona só não compila
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3913
    Registrado : 14/08/2013

    [Resolvido]update funciona mas não compila Empty Re: [Resolvido]update funciona mas não compila

    Mensagem  FabioPaes em Sex 23 Dez 2016, 10:25 pm

    Amigo, todas as vezes que vi esse erro e pq o Nome do Campo Estava errado...

    Agora acredito esta faltando um Espaço na primeira linha:
    StrSQL = "UPDATE Funcionario " _ '<==Foi colocado um Espaço apos a tabela.

    Agora, coloque sua tabela que recebera os dados, em modo designer e veja se esse Campo esta exatamente com esse nome.



    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4618
    Registrado : 20/04/2011

    [Resolvido]update funciona mas não compila Empty Re: [Resolvido]update funciona mas não compila

    Mensagem  Silvio em Sex 23 Dez 2016, 10:29 pm

    StrSQL = "UPDATE Funcionario " &_


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    charlehardware
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 30
    Registrado : 03/01/2011

    [Resolvido]update funciona mas não compila Empty update funciona mas não compila

    Mensagem  charlehardware em Dom 25 Dez 2016, 7:19 pm

    Não é digitação, pois funciona só não compila, gosto de trabalhar com campos não acoplados, mas nesse caso apenas no subform vinculei os campos e voltei a usar o velho UNDO, OU seja solução alternativa, valeu a todos pela prontidão.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7735
    Registrado : 05/11/2009

    [Resolvido]update funciona mas não compila Empty Re: [Resolvido]update funciona mas não compila

    Mensagem  Alexandre Neves em Qua 28 Dez 2016, 3:43 pm

    Boa tarde
    Se resolveu, marque o Resolvido


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    charlehardware
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 30
    Registrado : 03/01/2011

    [Resolvido]update funciona mas não compila Empty ok

    Mensagem  charlehardware em Sex 02 Fev 2018, 1:15 pm

    ok

      Data/hora atual: Ter 20 Out 2020, 4:32 pm