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

    [RESOLVIDO] Buscar dado de uma tabela e copiar para outra tabela

    Beter
    Beter
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 9
    Registrado : 26/07/2014

    [RESOLVIDO] Buscar dado de uma tabela e copiar para outra tabela Empty [RESOLVIDO] Buscar dado de uma tabela e copiar para outra tabela

    Mensagem  Beter 17/9/2016, 20:25

    Pessoal, estou mais uma vez aqui pra pedir a ajudinha de vocês. Laughing

    Como fazer para um formulário chamar um dado da [tabela A] e gravar na [tabela B]?

    Para entender meu problema:

    Na tabela [Horario] tenho gravado as turmas, horarios das aulas de cada turma e o valor mensal a ser pago por cada aluno.

    Na tabela [Financeiro] tenho gravado o nome do aluno, a data de vencimento, data de pagamento e quero colocar o (valor) que está gravado na tabela [Horario] através de um formulário.

    Alguém, por favor, me ajude!
    Desde já agradeço. cheers


    Última edição por Beter em 21/9/2016, 01:31, editado 1 vez(es)
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

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

    [RESOLVIDO] Buscar dado de uma tabela e copiar para outra tabela Empty Re: [RESOLVIDO] Buscar dado de uma tabela e copiar para outra tabela

    Mensagem  FabioPaes 18/9/2016, 16:23



    .................................................................................
    _____________________________________________________________________
    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!
    Beter
    Beter
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 9
    Registrado : 26/07/2014

    [RESOLVIDO] Buscar dado de uma tabela e copiar para outra tabela Empty Re: [RESOLVIDO] Buscar dado de uma tabela e copiar para outra tabela

    Mensagem  Beter 18/9/2016, 20:35

    Obrigada pela ajuda, Fabio!

    Consegui gravar o dado, só que agora ele está gravando duplicado, onde um dado grava com o valor e o outro sem o valor.
    Quero gravar somente um com o valor.

    Abaixo segue o código do meu form que adaptei do link que vc me passou:

    Private Sub Salvar_Click()
    If IsNull(Me.Aluno) Then
    MsgBox "Não existe registro a ser salvo.", vbCritical, "Aviso"
    End If

    Dim DB As Database
    Dim rs As DAO.Recordset

    Set DB = CurrentDb()
    'Abre o recordSet da tabela CadAlunoTurma para add os dados.
    Set rs = DB.OpenRecordset("CadAlunoTurma")
       rs.AddNew 'Add novo registro
       rs("Aluno") = Me.Aluno 'No Campo Nome da tabela2 coloca os dados que tem no campo me.nome do Formulario... e assim segue
       rs("Turma") = Me.Turma
       rs("Valor") = Me.Custo
          rs.Update
    'Encerra as conexoes e limpa da memoria
    rs.Close
    Set rs = Nothing
    DB.Close
    Set DB = Nothing

    DoCmd.Close acForm, "CadAlunoturma"
    DoCmd.OpenForm "CadAlunoturma"

    End Sub
    Beter
    Beter
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 9
    Registrado : 26/07/2014

    [RESOLVIDO] Buscar dado de uma tabela e copiar para outra tabela Empty [RESOLVIDO] Buscar dado de uma tabela e copiar para outra tabela

    Mensagem  Beter 18/9/2016, 22:42

    Olá, Fábio!

    Consegui resolver após sua ajuda, mais pesquisas aqui no fórum e várias alterações no meu código!

    Muito obrigada pela força!

    Só pra saber como fiz funcionar:

    Private Sub Salvar_Click()
    If IsNull(Me.Aluno) Then
    MsgBox "Não existe registro a ser salvo.", vbCritical, "Aviso"
    End If

    If Not IsNull(DLookup("[Aluno]", "CAdAlunoTurma", "[Aluno] ='" & Me!Aluno & "'")) Then
    Cancel = True
    Form.Undo ' ou Me.Aluno.Undo
    MsgBox "Aluno já cadastrado na turma."

    End If

    Dim DB As Database
    Dim rs As DAO.Recordset

    strCriteria = "[Código] Like '" & Me.Aluno & "'"

    Set DB = CurrentDb()
    'Abre o recordSet da tabela CadAlunoTurma para add os dados.
    Set rs = DB.OpenRecordset("CadAlunoTurma")
       rs.AddNew 'Add novo registro
       rs("Aluno") = Me.Aluno 'No Campo Nome da tabela2 coloca os dados que tem no campo me.nome do Formulario... e assim segue
       rs("Turma") = Me.Turma
       rs("Valor") = Me.Custo
          rs.Update
    'Encerra as conexoes e limpa da memoria
    rs.Close
    Set rs = Nothing
    DB.Close
    Set DB = Nothing

    DoCmd.Close acForm, "CadAlunoTurma"
    DoCmd.OpenForm "CadAlunoTurma"

    Exit Sub

    End Sub


    Laughing cheers
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

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

    [RESOLVIDO] Buscar dado de uma tabela e copiar para outra tabela Empty Re: [RESOLVIDO] Buscar dado de uma tabela e copiar para outra tabela

    Mensagem  FabioPaes 19/9/2016, 00:33

    Que bom que conseguiu!!! Ate a proxima se Deus quiser!

    Nao esquece de marcar como Resolvido...


    .................................................................................
    _____________________________________________________________________
    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!

      Data/hora atual: 13/4/2021, 13:27