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]UPDATE Caixa Texto para Tabela

    neves1
    neves1
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 110
    Registrado : 12/06/2017

    [Resolvido]UPDATE Caixa Texto para Tabela Empty [Resolvido]UPDATE Caixa Texto para Tabela

    Mensagem  neves1 em Dom 24 Nov - 9:34

    Boa tarde

    Alguém pode gentileza poderia me tirar 1 duvida.

    No meu formulário tenho 4 campos em caixa de textos, eu preciso que os 4 campos faça update na tabela de venda onde existe os mesmo 4 campos nessa tabela.

    [Resolvido]UPDATE Caixa Texto para Tabela C-texto

    Obrigado
    Maicon
    Maicon
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 191
    Registrado : 07/09/2012

    [Resolvido]UPDATE Caixa Texto para Tabela Empty Re: [Resolvido]UPDATE Caixa Texto para Tabela

    Mensagem  Maicon em Dom 24 Nov - 14:54

    O que você quer fazer é usar um formulário desvinculado para enviar os dados basicamente deverá executar um update.
    veja os tópicos :

    " https://www.maximoaccess.com/t12754-resolvidoformulario-desvinculado"

    "https://www.maximoaccess.com/t33047-resolvidoformulario-desvinculado" E muitos outros bons exemplos aqui no fórum.

    Também podes fazer via consulta acréscimo ou exclusão apontando os campos do formulário.

    Veja este anexo : "https://www.maximoaccess.com/download?id=21644" , neste exemplo uso uma consulta update direto no formulário.


    Você escolhe qual melhor forma eu usava muitos essas consultas antes ter familiariedade com vba e são funcionais.



    .................................................................................
    "O talento vence jogos, mas só o trabalho em equipe ganha campeonatos."
    Michael Jordan

    Bons Estudos.
    neves1
    neves1
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 110
    Registrado : 12/06/2017

    [Resolvido]UPDATE Caixa Texto para Tabela Empty Re: [Resolvido]UPDATE Caixa Texto para Tabela

    Mensagem  neves1 em Dom 24 Nov - 16:49

    Desculpe santa ingnorancia tentei absorver tudo oque vc me passou mas não consegui nada Sad

    Me.KM.Value = Me.txtkm
    Me.KM.Requery

    Da erro de compilação.
    neves1
    neves1
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 110
    Registrado : 12/06/2017

    [Resolvido]UPDATE Caixa Texto para Tabela Empty Re: [Resolvido]UPDATE Caixa Texto para Tabela

    Mensagem  neves1 em Dom 24 Nov - 18:41

    Tentei também comando abaixo:

    Dim rs As ADODB.Recordset --> Erro de compilação: O tipo definido pelo usuario não foi definido
    Dim strSQL As String

    strSQL = "SELECT * FROM VENDA "

    Set rs = CreateObject("ADODB.Recordset")
    rs.Open strSQL, CurrentProject.Connection

    If Not rs.BOF Then
    Me.txtkm = rs("km")
    Me.txtplaca = rs("placa")
    Me.txtmodelo = rs("modelo")
    Me.txtserviços = rs("obs")
    End If
    rs.Close
    Set rs = Nothing
    Maicon
    Maicon
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 191
    Registrado : 07/09/2012

    [Resolvido]UPDATE Caixa Texto para Tabela Empty Re: [Resolvido]UPDATE Caixa Texto para Tabela

    Mensagem  Maicon em Dom 24 Nov - 19:55

    Sem problemas, estamos todos a aprender aqui. Assim que possível te posto exemplo , na verdade existem muitas formas se fazer u. Formulário desvinculado, a forma mais simples é usar o comando insert current DB, veja : " https://www.maximoaccess.com/t80-resolvidosformas-de-inserir-e-carregar-dados-por-meio-de-formularios-desvinculados"
    Amanhã posto exemplo detalhado.


    .................................................................................
    "O talento vence jogos, mas só o trabalho em equipe ganha campeonatos."
    Michael Jordan

    Bons Estudos.
    neves1
    neves1
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 110
    Registrado : 12/06/2017

    [Resolvido]UPDATE Caixa Texto para Tabela Empty Re: [Resolvido]UPDATE Caixa Texto para Tabela

    Mensagem  neves1 em Dom 24 Nov - 20:29

    Obrigado, aguardo seu exemplo amanha então.
    Maicon
    Maicon
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 191
    Registrado : 07/09/2012

    [Resolvido]UPDATE Caixa Texto para Tabela Empty Re: [Resolvido]UPDATE Caixa Texto para Tabela

    Mensagem  Maicon em Seg 25 Nov - 7:02

    Conforme prometido segue o exemplo, fiz de duas formas em vba e com macro chamando uma consulta  acréscimo , note que o segundo só funciona se a tabela destino tiver pelo menos um registro. Esse exemplo é útil se for usar um aplicativo web , que não roda vba.
    Abaixo segue exemplo movido para repositório
    Exemplo repositório de exemplos

    Aconselho este tópicos abaixo para maior entendimento.
    "https://www.maximoaccess.com/t80-resolvidosformas-de-inserir-e-carregar-dados-por-meio-de-formularios-desvinculados.                                                 "https://www.maximoaccess.com/t11117-mover-registro                                                                          
    "https://www.maximoaccess.com/t16834-resolvidonavegacao-no-formulario-via-modulo-vba"


    Última edição por Maicon em Qui 28 Nov - 13:42, editado 2 vez(es) (Razão : Exemplo movido para repositório de exemplos para ajudar mais participantes do fórum.)


    .................................................................................
    "O talento vence jogos, mas só o trabalho em equipe ganha campeonatos."
    Michael Jordan

    Bons Estudos.
    Maicon
    Maicon
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 191
    Registrado : 07/09/2012

    [Resolvido]UPDATE Caixa Texto para Tabela Empty Re: [Resolvido]UPDATE Caixa Texto para Tabela

    Mensagem  Maicon em Ter 26 Nov - 8:02

    Os nomes dos campos na tua tabela estaão em letras maiúsculas e você colocou em letras minúsculas.
    Editado para melhor entendimento, para futuras pesquisas. Usei exemplo aqui do fórum créditos no código 28.11.201915:24:08
    Código:

    'http://www.maximoaccess.com/t12754-resolvidoformulario-desvinculado Mensagem nº 9
    'by JPAulo
    Dim rs As DAO.Recordset
    Set rs = CurrentDb.OpenRecordset("tbl_Servicos")
    If Not rs.BOF Then
    rs.AddNew
    rs![Quilometragem] = Me.txt_km.Value
    rs![Modelo] = Me.txt_Modelo.Value
    rs![Serviços] = Me.txt_Serviços & "  " & "Registrado com ADO"
    rs.Update
    End If
    rs.Close
    Set rs = Nothing
    Beep
    'Mensagem para avisar que registro foi salvo com sucesso
    MsgBox " Arquivo Salvo com Sucesso"
    'Limpa os campos
    Me.txt_km.Value = ""
    Me.txt_Modelo.Value = ""
    Me.txt_Serviços.Value = ""
    'Move foco para campo inicial
    Me.txt_km.SetFocus
    End Sub



    Última edição por Maicon em Qui 28 Nov - 13:25, editado 1 vez(es) (Razão : Código Editado para melhor entendimento, para futuras pesquisas)


    .................................................................................
    "O talento vence jogos, mas só o trabalho em equipe ganha campeonatos."
    Michael Jordan

    Bons Estudos.
    neves1
    neves1
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 110
    Registrado : 12/06/2017

    [Resolvido]UPDATE Caixa Texto para Tabela Empty Re: [Resolvido]UPDATE Caixa Texto para Tabela

    Mensagem  neves1 em Ter 26 Nov - 17:30

    Erro persiste nada grava
    FranklinJSP
    FranklinJSP
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 311
    Registrado : 24/02/2016

    [Resolvido]UPDATE Caixa Texto para Tabela Empty Re: [Resolvido]UPDATE Caixa Texto para Tabela

    Mensagem  FranklinJSP em Qua 27 Nov - 10:15

    Bom día Paulo!

    Envie seu formulário e banco de dados que tem os campos e eu o ajudarei a resolver o problema.

    Saludos


    .................................................................................
    Meu Português não é muito bom,
    mas eu gosto de colaborar... em qualquer idioma
    Smile "Access... minha paixão"
    Maicon
    Maicon
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 191
    Registrado : 07/09/2012

    [Resolvido]UPDATE Caixa Texto para Tabela Empty Re: [Resolvido]UPDATE Caixa Texto para Tabela

    Mensagem  Maicon em Qua 27 Nov - 21:45

    Via atualização SQL VBA UPDATE

    Código:

    CurrentDb.Execute "UPDATE [Venda] SET ValorPago = " & Me.txtPago & " WHERE [codVenda] = " & Me.txtCodigoVenda & ";"
    CurrentDb.Execute "UPDATE [Venda] SET KM = " & Me.txtkm & " WHERE [codVenda] = " & Me.txtCodigoVenda & ";"
    CurrentDb.Execute "UPDATE [Venda] SET MODELO = '" & Me.txtmodelo & "' WHERE [codVenda] = " & Me.txtCodigoVenda & ";"
    CurrentDb.Execute "UPDATE [Venda] SET PLACA = '" & Me.txtplaca & "' WHERE [codVenda] = " & Me.txtCodigoVenda & ";"
    CurrentDb.Execute "UPDATE [Venda] SET OBS = '" & Me.txtserviços & "' WHERE [codVenda] = " & Me.txtCodigoVenda & ";"

    Código chamando Consulta

    Código:

    DoCmd.SetWarnings False
    DoCmd.OpenQuery "Venda Consulta", , acReadOnly

    SQL da Consulta
    Obs: Este sql é do modo design da consulta. Não funciona no vba deve ser chamado com o código acima "DoCmd.OpenQuery "SuaConsulta",,acReadOnly

    Código:

    UPDATE Venda SET Venda.ValorPago = [Formulários]![FVenda]![txtPago], Venda.KM = [Formulários]![FVenda]![txtkm],
    Venda.MODELO = [Formulários]![FVenda]![txtmodelo], Venda.PLACA = [Formulários]![FVenda]![txtplaca],
    Venda.OBS = [Formulários]![FVenda]![txtserviços]
    WHERE (((Venda.codVenda)=[Formulários]![FVenda]![txtCodigoVenda]));


    Última edição por Maicon em Qua 27 Nov - 21:48, editado 1 vez(es) (Razão : Melhor disposição do texto da consulta sql)


    .................................................................................
    "O talento vence jogos, mas só o trabalho em equipe ganha campeonatos."
    Michael Jordan

    Bons Estudos.
    neves1
    neves1
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 110
    Registrado : 12/06/2017

    [Resolvido]UPDATE Caixa Texto para Tabela Empty Re: [Resolvido]UPDATE Caixa Texto para Tabela

    Mensagem  neves1 em Qui 28 Nov - 6:14


    Maicon

    Parabéns, deu certo.

    Muito obrigado.

    Vlw mesmo atenção.

    Conteúdo patrocinado

    [Resolvido]UPDATE Caixa Texto para Tabela Empty Re: [Resolvido]UPDATE Caixa Texto para Tabela

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Qui 5 Dez - 12:28