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

    [Resolvido]Ajuda com código SQL

    flasbc
    flasbc
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 195
    Registrado : 14/04/2012

    [Resolvido]Ajuda com código SQL Empty [Resolvido]Ajuda com código SQL

    Mensagem  flasbc 19/12/2018, 15:58

    Galera boa tarde!

    Por gentileza eu to com um BD (Em anexo) e preciso gravar informações de uma tabela (Cad_Alunos) para tabela Cad_faltas, para isso estou usando um formulário onde filtrando pela turma já aparece os alunos e um código SQL que ta dando erro, alguém poderia me ajudar?
    Anexos
    [Resolvido]Ajuda com código SQL AttachmentCad Faltas.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (104 Kb) Baixado 8 vez(es)
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Ajuda com código SQL Empty Re: [Resolvido]Ajuda com código SQL

    Mensagem  JPaulo 19/12/2018, 17:22

    Amigão, não se esqueça que você está a trabalhar com um subform dentro de um form;

    Teste por favor:

    Código:
    CurrentDb.Execute "INSERT INTO Cad_faltas (Cod_Aluno,presença,matéria,turma,aula,data) Values(" & Forms![Cadastro de Faltas]!Sub_Faltas.Form.código & ",'" & Forms![Cadastro de Faltas]!Sub_Faltas.Form.presença & "','" & Me.matéria & "','" & Me.Turma & "'," & Me.aula & ",#" & Me.Data & "#)"


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Ajuda com código SQL Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Ajuda com código SQL Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Ajuda com código SQL Folder_announce_new Instruções SQL como utilizar...
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3491
    Registrado : 13/12/2016

    [Resolvido]Ajuda com código SQL Empty Re: [Resolvido]Ajuda com código SQL

    Mensagem  Alexandre Fim 19/12/2018, 18:43

    Aproveitando o gancho do nosso amigo JPaulo.
    Forms![Cadastro de Faltas]!Sub_Faltas.Form.código - você tá informando um campo que não existe na tabela

    É necessário criar um loop do recordset do subformulário.

    Copie e cole o código abaixo.
    Código:


    Private Sub Comando87_Click()
    Dim ssql As String
    Dim db      As DAO.Database
    Dim rs      As DAO.Recordset
    Dim i      As Integer

        Set db = CurrentDb
        Set rs = Me.Sub_Faltas.Form.Recordset

        rs.MoveLast
        rs.MoveFirst
       
        For i = 1 To rs.RecordCount
       
            ssql = "INSERT INTO Cad_faltas "
            ssql = ssql & " ("
            ssql = ssql & "  Cod_Aluno"
            ssql = ssql & " ,presença"
            ssql = ssql & " ,matéria"
            ssql = ssql & " ,turma"
            ssql = ssql & " ,aula"
            ssql = ssql & " ,data"
            ssql = ssql & " ) "
            ssql = ssql & " Values"
            ssql = ssql & " ("
            ssql = ssql & "  " & [Form_Cadastro de Faltas].Sub_Faltas.Form.[Código] & " "
            ssql = ssql & " ,'" & [Form_Cadastro de Faltas].Sub_Faltas.Form.[presença] & "'"
            ssql = ssql & " ,'" & Me.matéria.Column(0) & "'"
            ssql = ssql & " ,'" & Me.Turma.Column(0) & "'"
            ssql = ssql & " ,'" & Me.aula.Column(0) & "'"
            ssql = ssql & " ,'" & Me.Data & "'"
            ssql = ssql & " )"
           
            db.Execute ssql
            rs.MoveNext
        Next i
       
        rs.Close
        Set rs = Nothing
       



    End Sub




    Boa sorte
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Ajuda com código SQL Empty Re: [Resolvido]Ajuda com código SQL

    Mensagem  JPaulo 19/12/2018, 19:24

    Alexandre, repare que o campo Cod_Aluno existe na tabela e o
    Forms![Cadastro de Faltas]!Sub_Faltas.Form.código existe no sub, não vejo problema.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Ajuda com código SQL Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Ajuda com código SQL Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Ajuda com código SQL Folder_announce_new Instruções SQL como utilizar...
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3491
    Registrado : 13/12/2016

    [Resolvido]Ajuda com código SQL Empty Re: [Resolvido]Ajuda com código SQL

    Mensagem  Alexandre Fim 19/12/2018, 21:41

    Meu caro JPaulo,

    A instrução abaixo está incorreta e por isso gera o erro "Método ou Membro de dados não encontrado", pois na tabela "Cad_Faltas" não existe a coluna "código", e sim a coluna "Cod_Aluno" e o valor que ele quer passar é o "Me.código", que não existe no form principal, e sim no subformulário:

    [Resolvido]Ajuda com código SQL Erro_c11


    É isso.

    Abraços
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Ajuda com código SQL Empty Re: [Resolvido]Ajuda com código SQL

    Mensagem  JPaulo 19/12/2018, 22:55

    Meu caro, o que passei na mensagem n°2 está correto.
    Veja com atenção.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Ajuda com código SQL Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Ajuda com código SQL Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Ajuda com código SQL Folder_announce_new Instruções SQL como utilizar...
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3491
    Registrado : 13/12/2016

    [Resolvido]Ajuda com código SQL Empty Re: [Resolvido]Ajuda com código SQL

    Mensagem  Alexandre Fim 20/12/2018, 00:01

    Oh meu caro JPaulo,
    Tem razão !!! O código da mensagem nº 2 esta correto.
    Estava me referindo ao código do sistema do nosso amigo.
    Me desculpe pelo equívoco.

    Abraço
    flasbc
    flasbc
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 195
    Registrado : 14/04/2012

    [Resolvido]Ajuda com código SQL Empty Re: [Resolvido]Ajuda com código SQL

    Mensagem  flasbc 20/12/2018, 02:06

    Mestre Jpaulo, como sempre muito prestativo e dinâmico, tanto o seu quanto o do colega Alexandre Fim funcionou direitinho.

    Só preciso de uma dica, a questão do campo presença se tiver mais de um aluno e eu clicar em presença replica para todos, lembro em outro tópico que o Mestre Jpaulo havia consertado isso pra mim mais não achei mais o exemplo, poderia só me relembrar?

    Vou colocar o BD de novo pois o outro estava errado
    Anexos
    [Resolvido]Ajuda com código SQL AttachmentCad Faltas.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (192 Kb) Baixado 5 vez(es)


    Última edição por flasbc em 20/12/2018, 02:17, editado 2 vez(es) (Motivo da edição : falta de conteúdo)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3491
    Registrado : 13/12/2016

    [Resolvido]Ajuda com código SQL Empty Re: [Resolvido]Ajuda com código SQL

    Mensagem  Alexandre Fim 20/12/2018, 10:14

    Bom dia,

    Segue versão com o checkbox de "Presença" para todos os alunos.

    Boa sorte.

    []'s
    Anexos
    [Resolvido]Ajuda com código SQL AttachmentCad_Faltas_v2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (36 Kb) Baixado 26 vez(es)
    flasbc
    flasbc
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 195
    Registrado : 14/04/2012

    [Resolvido]Ajuda com código SQL Empty Re: [Resolvido]Ajuda com código SQL

    Mensagem  flasbc 20/12/2018, 11:44

    Ok, mais o checkbox continua com problemas, ou seja se tem 5 alunos e eu marco presença pra um marca pra todos, se eu tirar de um tira de todos.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3491
    Registrado : 13/12/2016

    [Resolvido]Ajuda com código SQL Empty Re: [Resolvido]Ajuda com código SQL

    Mensagem  Alexandre Fim 20/12/2018, 11:54

    Olá Flavio,

    A última versão que você mandou já se encontra com este problema, mas vou verificar novamente.

    []'s

    flasbc
    flasbc
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 195
    Registrado : 14/04/2012

    [Resolvido]Ajuda com código SQL Empty Re: [Resolvido]Ajuda com código SQL

    Mensagem  flasbc 20/12/2018, 12:42

    Tranquilo, vou criar outro post esse já ta resolvido.

    Conteúdo patrocinado


    [Resolvido]Ajuda com código SQL Empty Re: [Resolvido]Ajuda com código SQL

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 12/11/2024, 20:26