erro de compilação "Método ou membro de dados não encontrado"

E ae pessoal!

Eu não tenho muito conhecimento em Access, mas precisava de uma ajudinha em um formulário de lançamento de notas, já realizei boa parte com a ajuda de um outro membro do fórum, porém criei o tópico aqui pois o problema anterior era relacionado a tabelas.

O problema está em utilizar o botão de BtLoadAlunos do formulário FrmBoletim para exibir os alunos no subformulário SubFrmBoletim onde surge um erro de compilação "Método ou membro de dados não encontrado"

Desde já agradeço.

O problema esta aqui nessa LInha: If DCount("IdBoletim", "tbBoletim", "IdTurma = " & Me.IdTurma & " and Nota = '" & Me.Nota) > 0 Then

Esse Campo Me.IdTurma nao existe no seu Formulario...




Altere para:




If DCount("IdBoletim", "tbBoletim", "IdTurma = " & Me.CboTurmaBoletim.Column(0) & " and Nota = '" & Me.Nota & "'") > 0 Then  <===ainda apresentara erro, pois nao achei no Formulario esse campo Me.Nota. Corrija colocando o nome correto do Campo...



Obs: Existem Varias Referências a campo inexistentes no Formulário... Reveja seu código e ajuste para os Nomes corretos dos Campos.

Agradeço o retorno.

Seria possível indicar ao código que o campo Nota está localizado dentro do SubFrmBoletim?

Sim, sim... Facilmente amigo...

Basta indicar esse Caminho:


[SubFrmBoletim]![Nota] 

Fiz as alterações, e o erro parece estar solucionado, porém agora surge um erro que pede a abertura de um objeto inexistente no formulário.

certo... Mas cade o Erro amigo?

Obs: Imagens podem ser postadas direto na Mensagem... Clicando no icone na barra de cima, icone de Imagem com Disket.

Obrigado pela sugestão, porém o arquivo de anexo era o próprio banco de dados.

O erro é esse.

Posta novamente o Anexo, pois so veio uma foto nele...

Aqui está. Realmente errei no upload do anexo.

Amigo, nao sei ao certo o que houve com o VBA desse Ultimo Exemplo que postou...


Terá que Utilizar um Backup anterior a esse Postado, como por exemplo o Primeiro arquivo postado neste Post.


Vamos la, Tinha alguns erros no Comando ta... Substitua por esse:

Código:

Private Sub BtLoadalunos_Click()
'Verificar o lancamento de notas para a turma
If DCount("IdBoletim", "tbBoletim", "IdTurma = " & Me.CboTurmaBoletim.Column(0) & " AND Modulo = '" & Me.[Módulo] & "'") > 0 Then
MsgBox "O lançamento de notas já foi realizada para esta Turma: " & Me.CboTurmaBoletim.Column(1), vbCritical, "Atenção"

'Verifica se os alunos já foram carregados
ElseIf DCount("IdBoletim", "tbBoletimDet", "IdBoletim = " & Me.IdBoletim & "") = 0 Then
DoCmd.RunCommand acCmdSaveRecord
Dim DB As Database
Dim rs As DAO.Recordset
Dim rs1 As DAO.Recordset

Set DB = CurrentDb()


    Set rs = DB.OpenRecordset("SELECT * FROM tbTurmaDet WHERE IdTurma = " & Me.CboTurmaBoletim & "") ' Tabela onde tem os Dados
    Set rs1 = DB.OpenRecordset("tbBoletimDet") ' Tabela que receberá os dados
    'Percorre a Tabela de Origem dados
    Do While Not rs.EOF
        'Inicia a Gravação dos dados na Tb2
        rs1.AddNew
        rs1("IdBoletim") = Me.IdBoletim
        rs1("IdAluno") = rs("IdAluno")
        rs1("Nota") = 0 'Erro aqui
        rs1.Update
    rs.MoveNext
    Loop
    'Fecha as conexoes
    rs.Close
    rs1.Close
    DB.Close
    Me.Recalc
Else
MsgBox "Alunos Ja Carregado para esta Turma: " & Me.CboTurmaBoletim.Column(1), vbCritical, "Atenção"
End If
End Sub


Alguns erros que percebi:

If DCount("IdBoletim", "tbBoletim", "IdTurma = " & Me.CboTurmaBoletim.Column(0) & " and Nota = '" & Me.[SubFrmBoletim]![Nota] & "'") > 0 Then
Na tabela "tbBoletim" vc nao tem o Campo Nota, logo nao pode colocar esse criterio.


Set rs = DB.OpenRecordset("SELECT * FROM tbBoletimDet WHERE IdTurma = " & Me.CboTurmaBoletim & "") ' Tabela onde tem os Dados
Set rs1 = DB.OpenRecordset("tbBoletimDet") ' Tabela que receberá os dados
Aqui vc esta Abrindo dois RecordSet diferentes na MESMA TABELA. O Correto nao seria na Tabela "tbTurmaDet"?

Aqui funcionou certinho no Primeiro arquivo Postado.

Funcionou!!!

Não havia percebido que deveria utilizar o campo modulo.
Muito Obrigado pela paciência e pelo suporte!

Grato pelo Retorno!

Mas, vc entendeu o que tinha de errado nessas linhas:

FabioPaes escreveu:Set rs = DB.OpenRecordset("SELECT * FROM tbBoletimDet WHERE IdTurma = " & Me.CboTurmaBoletim & "") ' Tabela onde tem os Dados
Set rs1 = DB.OpenRecordset("tbBoletimDet") ' Tabela que receberá os dados
Aqui vc esta Abrindo dois RecordSet diferentes na MESMA TABELA. O Correto nao seria na Tabela "tbTurmaDet"?

Até a Próxima se Deus quiser!