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


4 participantes

    [Resolvido]Antes de alterar

    avatar
    mvmota
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 10/08/2015

    [Resolvido]Antes de alterar Empty [Resolvido]Antes de alterar

    Mensagem  mvmota 10/8/2015, 22:47

    Gostaria de saber, como fazer um comando pra armazenar múltiplas informação de um campo para outra tabela, para poder consultar essa informação  futuramente.

    Por exemplo:

    Cliente veio dia 10/10/10 para: tomar café

    Cliente veio dia 11/11/10 para: jantar

    E assim sucessivamente.

    Obrigado pelo apoio.
    avatar
    wbonelli
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 70
    Registrado : 02/04/2011

    [Resolvido]Antes de alterar Empty Re: [Resolvido]Antes de alterar

    Mensagem  wbonelli 11/8/2015, 12:03

    Bom dia!
    Creio que você tem que criar uma outra tabela que será o histórico de atividades do cliente, relacionado os campos de ambas as tabelas por um campo comum (Número, CPF, etc), no formato de vários para um (1 cadastro (cliente) e várias atividades).
    Então a tabela pode ter, por exemplo os seguintes campos:

    ID (campo relacionado com a tabela principal de clientes)
    Data Atividade
    Descrição Atividades (Se existem muitas atividades, sugiro usar código em um campo ListBox, oriundo de uma outra tabela que seria por exemplo "ProtocoloDeAtividades", tendo dois campos, Código e descrição do Código: 001 - jANTAR; 002 - Almoço; 003 - Café da manhã; etc.)

    Espero ter ajudado.
    Abs.

    avatar
    mvmota
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 10/08/2015

    [Resolvido]Antes de alterar Empty Atualizar sem perder a info

    Mensagem  mvmota 11/8/2015, 17:26

    Eu pensei em fazer isso, usando o evento Antes de atualizar. Mas sem perder a informação anterior.

    Então quando o usuário atualizar o "status" do Cliente, antes de salvar a informação antiga, o form deverá armazenada em outra tabela.


    Nesse caso, qual seria o comando que devo usar dentro do evento: "Antes de Atualizar", do campo em questão?


    Alguma coisa como:

    Início

    Pegue        a informação do campoX na Tabela A      Então

    Insere no     campoX da     Tabela B

    Fim



    Como fazer isso em Access?


    Obrigado.
    rubenscouto
    rubenscouto
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 680
    Registrado : 02/10/2011

    [Resolvido]Antes de alterar Empty Re: [Resolvido]Antes de alterar

    Mensagem  rubenscouto 11/8/2015, 19:06

    pesquise sobre o comando rs.addnew que terá como fazer isto.
    avatar
    mvmota
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 10/08/2015

    [Resolvido]Antes de alterar Empty erro

    Mensagem  mvmota 12/8/2015, 22:23

    Pesquisei e cheguei nesse código:

    Dim db As DAO.Database
    Dim rs As DAO.Recordset


    'Vamos adicionar um novo registro na tabela Hosp.

    Set db = CurrentDb()
    Set rs = CurrentDb.OpenRecordset("Hosp")

    rs.AddNew

    rs.Update

    End Sub


    No entanto estou com erro de chave primaria. No momento configurei "Código"  como chave primaria na tabela Main e "Hospedagem" na tabela Hosp. Relação de 1 pra N

    Mas da erro de indice null...

    Alguma sugestão, sobre o código e o erro?


    Abraços,

    MVMOTA
    cleverson_manaus
    cleverson_manaus
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1022
    Registrado : 23/09/2011

    [Resolvido]Antes de alterar Empty Re: [Resolvido]Antes de alterar

    Mensagem  cleverson_manaus 13/8/2015, 00:33


    Marcos,

    Vc não precisa ter os mesmos dados em duas tabelas.

    A não ser no caso do cliente que deverá está relacionado com a tabela de registro de atividades, através de um campo comum, tipo IDCliente.

    Querendo postar suas tabelas, posso ajudar mellhor


    .................................................................................
    afro

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Marcar o tópico como resolvido!!!
    avatar
    mvmota
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 10/08/2015

    [Resolvido]Antes de alterar Empty Anexos de arquivos

    Mensagem  mvmota 14/8/2015, 17:50

    Boa tarde, pessoal!


    Não consigo anexar arquivos de foto ou até mesmo o BD. Por mais que eu tente diminuir a resolução, tamanha e compactar da erro de espaço para o anexo.

    Onde posso estar errando?


    Valew pela parceria.

    Abraços,


    MVMOTA
    cleverson_manaus
    cleverson_manaus
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1022
    Registrado : 23/09/2011

    [Resolvido]Antes de alterar Empty Re: [Resolvido]Antes de alterar

    Mensagem  cleverson_manaus 14/8/2015, 18:26


    manda pro meu email que posto aqui no forum

    guajara_mirim@yahoo.com.br


    .................................................................................
    afro

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Marcar o tópico como resolvido!!!
    avatar
    mvmota
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 10/08/2015

    [Resolvido]Antes de alterar Empty Transferir de uma tabela para outra

    Mensagem  mvmota 17/8/2015, 18:49

    Acho que agora deu erto usando o Me.nomedocampo


    Dim db As Database
       Dim rs As Recordset
       
       Set db = CurrentDb
       Set rs = db.OpenRecordset("Hosp")
     
       With rs
          .AddNew             ' Add new record
         
          !Cod_Cli = "1"
          !Hospedagem = "Chalé"
          !Nome = "João"
          !Qtd_Acompanhante = "1"
         
          .Update             ' Save changes.
         
       End With
       
       rs.Close




    Última edição por mvmota em 17/8/2015, 23:41, editado 1 vez(es)
    cleverson_manaus
    cleverson_manaus
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1022
    Registrado : 23/09/2011

    [Resolvido]Antes de alterar Empty Re: [Resolvido]Antes de alterar

    Mensagem  cleverson_manaus 17/8/2015, 19:07



    Pessoal, abaixo o arquivo do colega Marcos:


    https://www.dropbox.com/s/hdy9e38rp7rvr8u/projeto.zip?dl=0




    .................................................................................
    afro

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Marcar o tópico como resolvido!!!
    avatar
    mvmota
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 10/08/2015

    [Resolvido]Antes de alterar Empty Re: [Resolvido]Antes de alterar

    Mensagem  mvmota 18/8/2015, 21:20

    resolvi da seguinte forma:

    Private Sub Hospedagem_BeforeUpdate(Cancel As Integer)
    Set db = CurrentDb
    Set rs = db.OpenRecordset("Hosp")

    With rs
    .AddNew ' Add new record


    !CPF = Me.CPF
    !Cod_Cli = Me.Cod_Cli
    !Hospedagem = Me.Hospedagem
    !Nome = Me.Nome
    !Acompanhante = Me.Acompanhante
    !Dia_Entrada = Me.Dia_Entrada

    .Update ' Save changes.

    End With

    rs.Close
    End Sub

    Conteúdo patrocinado


    [Resolvido]Antes de alterar Empty Re: [Resolvido]Antes de alterar

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 6/12/2024, 17:49