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]Ajuda com código SQL

    flasbc
    flasbc
    Intermediário
    Intermediário

    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 em 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 100%

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

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

    Mensagem  JPaulo em 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 100%

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

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

    Mensagem  Alexandre Fim em 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 100%

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

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

    Mensagem  JPaulo em 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 100%

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

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

    Mensagem  Alexandre Fim em 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 100%

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

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

    Mensagem  JPaulo em 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 100%

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

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

    Mensagem  Alexandre Fim em 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 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 em 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) (Razão : falta de conteúdo)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  Alexandre Fim em 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 8 vez(es)
    flasbc
    flasbc
    Intermediário
    Intermediário

    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 em 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 100%

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

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

    Mensagem  Alexandre Fim em 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 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 em 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: 7/12/2019, 01:54