MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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

3 participantes

    Salvar dados na Tabela

    avatar
    Kavaleirus
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 22/10/2017

    Salvar dados na Tabela Empty Salvar dados na Tabela

    Mensagem  Kavaleirus 8/2/2020, 15:14

    Boa tarde!
    como faco para salvar a informacao de uma caixa de texto que possui uma formula usando o comando concatenar em outro campo da tabela?
    Segue imagem
    Salvar dados na Tabela Sem_tz10


    obrigado
    bigfill
    bigfill
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 474
    Registrado : 27/03/2015

    Salvar dados na Tabela Empty Re: Salvar dados na Tabela

    Mensagem  bigfill 10/2/2020, 09:24

    Bom dia Kavaleirus!

    Tem que vincular o campo ao da tabela.

    Obs.: Deverá esta correto o tipo de dados com o que ira incluir.
    Ex: 1.1.1 (Tipo texto) se tiver como (Numero) não aceita

    Caso queira postar o BD para alterar
    avatar
    Kavaleirus
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 22/10/2017

    Salvar dados na Tabela Empty Re: Salvar dados na Tabela

    Mensagem  Kavaleirus 10/2/2020, 22:33

    Segue BD,

    tive que fazer outro parecido pq tinha desistido desta opcao...

    por acaso vc daria aula por video conferencia? se sim manda uma msg no privado
    Anexos
    Salvar dados na Tabela AttachmentDatabase9.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (35 Kb) Baixado 8 vez(es)
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    Salvar dados na Tabela Empty Re: Salvar dados na Tabela

    Mensagem  Silvio 11/2/2020, 08:41

    Boas, só dando um pitaco no tópico.

    Tome cuidado com a nomenclatura / normatização que está usando quando está desenvolvendo.

    Em campos de tabelas não se usam palavras com espaço ou acentos ( recebe valores / Descricao Modelo ). O correto é sem espaço (RecebeValores / DescricaoModelo)

    Da mesma forma, é meio estranho ver apenas ( Familia ), o correto seria ( TblFamilia ). Do mesmo modo para formulários ( FrmXXXX ), consultas ( QryXXXX ou ConsZZZ ), relatórios ( RptZZZ).

    Mas, vamos lá...

    Crie um botão de comando em teu formulário, copie e cole o seguinte código nele, evento ao clicar.

    Código:
    Private Sub bt_salvar_Click()
    'aqui salvar o registro
    DoCmd.Save

        ' aqui faço a inserção na tabela familia o valor requerido.
          Dim DB As Database, rs As Recordset
          Set DB = CurrentDb()
          Set rs = DB.OpenRecordset("Familia", dbOpenDynaset)
          rs.FindFirst "CodFamilia = " & Me!CodFamilia
          rs.Edit
          rs("recebe valores") = Me.Recebe_Valores
            rs.Update
          rs.Close
          Set rs = Nothing
          Set DB = Nothing
        ' fim da inserção
       
        MsgBox "Registro salvo !", vbInformation, "AVISO..."
    End Sub


    Bons estudos.


    .................................................................................
    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."
    bigfill
    bigfill
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 474
    Registrado : 27/03/2015

    Salvar dados na Tabela Empty Re: Salvar dados na Tabela

    Mensagem  bigfill 11/2/2020, 08:52

    Bom dia Kavaleirus!

    Fiz dois exemplos pra você.

    Um ao alterar o ultimo campo

    Um em um botão

    segue imagem do codigo
    Anexos
    Salvar dados na Tabela AttachmentCapturar.PNG
    Você não tem permissão para fazer download dos arquivos anexados.
    (30 Kb) Baixado 5 vez(es)
    bigfill
    bigfill
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 474
    Registrado : 27/03/2015

    Salvar dados na Tabela Empty Re: Salvar dados na Tabela

    Mensagem  bigfill 11/2/2020, 08:53

    Kavaleirus segue o banco
    Anexos
    Salvar dados na Tabela AttachmentReceberValor.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (44 Kb) Baixado 15 vez(es)
    avatar
    Kavaleirus
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 22/10/2017

    Salvar dados na Tabela Empty Re: Salvar dados na Tabela

    Mensagem  Kavaleirus 11/2/2020, 19:29

    muito obrigado pessoal

      Data/hora atual: 1/12/2022, 20:09