[Resolvido]Aviso de Débito

Boas
tenho uma tabela "QUOTAS" com os campos (nome;ano;valor; janeiro; fevereiro; março;...........;dezembro), sendo os meses campos de Sim/Não

como posso obter uma consulta filtrada do por "nome" com os meses assinalados só com o NÃO?

Muito obrigado

Basta fazer a consulta e em critérios no campo

Nome
Como Forms!NomeDoSeuForm!NomeDaSuaCaixaTextoComONome

No CampoMes Como Não


Cumprimentos.

obrigado Piloto mas não resulta

eu quero obter só os meses não assinalados para poder emitir uma nota de debito

Talvez uma consulta de referencia cruzada.

Poste um exemplo.

cumprimentos.

Exemplo aqui

Amigão.. dei uma viajada aqui e fiz este código..

Ele fará um loop pela consulta StrSQL e verificando se algum registro tem um mes não marcado, adiciona este mes a outra SQL
Assim no Final a StrSQL1, conterá apenas os meses que tenham algum registro não marcado.

Depois podes filtrar a SQL com uma clausula WHERE para exibir apenas os registros que tenham Meses não marcados

Option Compare Database

Private Sub cmdCriarCns_Click()
Dim Rs As DAO.Recordset
Dim Rs1 As DAO.Recordset
Dim StrSQL As String
Dim StsSQL1 As String
Dim X As Integer
Dim Janeiro As Boolean
Dim Fevereiro As Boolean
Dim Marco As Boolean
Dim Abril As Boolean
Dim Maio As Boolean
Dim Junho As Boolean
Dim Julho As Boolean
Dim Agosto As Boolean
Dim Setembro As Boolean
Dim Outubro As Boolean
Dim Novembro As Boolean
Dim Dezembro As Boolean

StrSQL = "SELECT TAB_MORADORES.Id_Morador, Quotas.Morador, TAB_MORADORES.Porta, Quotas.Ano, Quotas.Janeiro, Quotas.Fevereiro, Quotas.Março, Quotas.Abril," _
        & " Quotas.Maio, Junho, Quotas.Julho, Quotas.Agosto, Quotas.Setembro, Quotas.Outubro, Quotas.Novembro, Quotas.Dezembro" _
        & " FROM Quotas INNER JOIN TAB_MORADORES ON Quotas.Morador = TAB_MORADORES.Nome_Morador;"

StrSQL1 = "SELECT TAB_MORADORES.Id_Morador, Quotas.Morador, TAB_MORADORES.Porta, Quotas.Ano"
   
Set Rs = CurrentDb.OpenRecordset(StrSQL)
        Do While Not Rs.EOF
            If Rs!Janeiro = False Then Janeiro = True
            If Rs!Fevereiro = False Then Fevereiro = True
            If Rs!Março = False Then Marco = True
            If Rs!Abril = False Then Abril = True
            If Rs!Maio = False Then Maio = True
            If Rs!Junho = False Then Junho = True
            If Rs!Julho = False Then Julho = True
            If Rs!Agosto = False Then Agosto = True
            If Rs!Setembro = False Then Setembro = True
            If Rs!Outubro = False Then Outubro = True
            If Rs!Novembro = False Then Novembro = True
            If Rs!Dezembro = False Then Dezembro = True
        Rs.MoveNext
        Loop
            If Janeiro = True Then StrSQL1 = StrSQL1 & ", " & "Quotas.Janeiro"
            If Fevereiro = True Then StrSQL1 = StrSQL1 & ", " & "Quotas.Fevereiro"
            If Marco = True Then StrSQL1 = StrSQL1 & ", " & "Quotas.Março"
            If Abril = True Then StrSQL1 = StrSQL1 & ", " & "Quotas.Abril"
            If Junho = True Then StrSQL1 = StrSQL1 & ", " & "Quotas.Junho"
            If Julho = True Then StrSQL1 = StrSQL1 & ", " & "Quotas.Julho"
            If Agosto = True Then StrSQL1 = StrSQL1 & ", " & "Quotas.Agosto"
            If Setembro = True Then StrSQL1 = StrSQL1 & ", " & "Quotas.Setembro"
            If Outubro = True Then StrSQL1 = StrSQL1 & ", " & "Quotas.Outubro"
            If Novembro = True Then StrSQL1 = StrSQL1 & ", " & "Quotas.Novembro"
            If Dezembro = True Then StrSQL1 = StrSQL1 & ", " & "Quotas.Dezembro"
            

    StrSQL1 = StrSQL1 & " FROM Quotas INNER JOIN TAB_MORADORES ON Quotas.Morador = TAB_MORADORES.Nome_Morador;"

Set Rs1 = CurrentDb.OpenRecordset(StrSQL1)


End Sub

cumprimentos.

Obrigado
da para passares o exemplo?
hoje já estou no ir.
abraço

Agora o mais correto seria ter a tabela moradores e os meses em outra tabela porem como registros..

Assim o Morador X so teria N Registro cadastrado como meses, caso estiver com a quota em aberto

é uma ideia.

Cumprimentos.

Eis..

Mas ainda creio que o correto seria os meses cadastrados como registro.

Cumprimentos

Boas
Obrigado Piloto, estive a ver o teu exemplo,
não era bem esta a ideia, eu pretendo obter em relatório os meses em divida por morador, tipo:

morador:
António

meses em divida:
Janeiro 2011
Fevereiro 2011
Março 2011

Então o que deves fazer é carregar o recordset, checar por registro cada campo, em sendo desmarcado gravar em uma tabela por linhas....
Após essa checagem poderia deletar esta tabela.

Cumprimentos.

?????????????????
agora em português!

Amanha vejo isto pra ti.

Boa noite.

Obrigado,
fico em divida

a ideia fina é esta, em função dos registos na tabela "Quotas"

Ver imagem grande

Veja.. abra o formulário, selecione um morador e clique no botão..

Depois abra a tblMeses... depois abra a consulta

Cumprimentos.

Grande Piloto,
Muito obrigado era mesmo isso que pretendia,~

So faltou clicar no joinha da mensagem que o auxiliou

Cumprimentos.

Boas,
estava agora a fazer uns testes e verifico que há um pequeno promenor que não esta como quero,
o codigo funciona muito bem, mas busta todos os meses não assinalados, ou seja por ex. do ano 2013 ele mete todos os meses ate ao final do ano, porem eu quero que ele pare no mês anterior a data atual.
e assim a data atual (03/05/2013) só mostrar

Janeiro
Fevereio
Março
Abril

podes ver isso?
obrigado

Eis:

Private Sub cmdCriarCns_Click()
Dim Rs As DAO.Recordset
Dim StrSQL As String


StrSQL = "SELECT TAB_MORADORES.Id_Morador, Quotas.Morador, TAB_MORADORES.Porta, Quotas.Ano, Quotas.Janeiro, Quotas.Fevereiro, Quotas.Março, Quotas.Abril," _
        & " Quotas.Maio, Junho, Quotas.Julho, Quotas.Agosto, Quotas.Setembro, Quotas.Outubro, Quotas.Novembro, Quotas.Dezembro" _
        & " FROM Quotas INNER JOIN TAB_MORADORES ON Quotas.Morador = TAB_MORADORES.Nome_Morador WHERE TAB_MORADORES.ID_morador = " & Me.cbiMorador.Column(0) & ";"
  
Set Rs = CurrentDb.OpenRecordset(StrSQL)
        Do While Not Rs.EOF
            If Rs!Janeiro = False Then CurrentDb.Execute "INSERT INTO tblMeses (Morador_ID, CpMesesNaoMarcados, CpAno) values (""" & Rs(0) & """, 'Janeiro',""" & Rs(3) & """)": If Rs(4).Name = Format(Date, "mmmm") Then GoTo Continuar
            If Rs!Fevereiro = False Then CurrentDb.Execute "INSERT INTO tblMeses (Morador_ID, CpMesesNaoMarcados, CpAno) values (""" & Rs(0) & """, 'Fevereiro',""" & Rs(3) & """)": If Rs(5).Name = Format(Date, "mmmm") Then GoTo Continuar
            If Rs!Março = False Then CurrentDb.Execute "INSERT INTO tblMeses (Morador_ID, CpMesesNaoMarcados, CpAno) values (""" & Rs(0) & """, 'Março',""" & Rs(3) & """)": If Rs(6).Name = Format(Date, "mmmm") Then GoTo Continuar
            If Rs!Abril = False Then CurrentDb.Execute "INSERT INTO tblMeses (Morador_ID, CpMesesNaoMarcados, CpAno) values (""" & Rs(0) & """, 'Abril',""" & Rs(3) & """)": If Rs(7).Name = Format(Date, "mmmm") Then GoTo Continuar
            If Rs!Maio = False Then CurrentDb.Execute "INSERT INTO tblMeses (Morador_ID, CpMesesNaoMarcados, CpAno) values (""" & Rs(0) & """, 'Maio',""" & Rs(3) & """)": If Rs(.Name = Format(Date, "mmmm") Then GoTo Continuar
            If Rs!Junho = False Then CurrentDb.Execute "INSERT INTO tblMeses (Morador_ID, CpMesesNaoMarcados, CpAno) values (""" & Rs(0) & """, 'Junho',""" & Rs(3) & """)": If Rs(9).Name = Format(Date, "mmmm") Then GoTo Continuar
            If Rs!Julho = False Then CurrentDb.Execute "INSERT INTO tblMeses (Morador_ID, CpMesesNaoMarcados, CpAno) values (""" & Rs(0) & """, 'Julho',""" & Rs(3) & """)": If Rs(10).Name = Format(Date, "mmmm") Then GoTo Continuar
            If Rs!Agosto = False Then CurrentDb.Execute "INSERT INTO tblMeses (Morador_ID, CpMesesNaoMarcados, CpAno) values (""" & Rs(0) & """, 'Agosto',""" & Rs(3) & """)": If Rs(11).Name = Format(Date, "mmmm") Then GoTo Continuar
            If Rs!Setembro = False Then CurrentDb.Execute "INSERT INTO tblMeses (Morador_ID, CpMesesNaoMarcados, CpAno) values (""" & Rs(0) & """, 'Setembro',""" & Rs(3) & """)": If Rs(12).Name = Format(Date, "mmmm") Then GoTo Continuar
            If Rs!Outubro = False Then CurrentDb.Execute "INSERT INTO tblMeses (Morador_ID, CpMesesNaoMarcados, CpAno) values (""" & Rs(0) & """, 'Outubro',""" & Rs(3) & """)": If Rs(13).Name = Format(Date, "mmmm") Then GoTo Continuar
            If Rs!Novembro = False Then CurrentDb.Execute "INSERT INTO tblMeses (Morador_ID, CpMesesNaoMarcados, CpAno) values (""" & Rs(0) & """, 'Novembro',""" & Rs(3) & """)": If Rs(14).Name = Format(Date, "mmmm") Then GoTo Continuar
            If Rs!Dezembro = False Then CurrentDb.Execute "INSERT INTO tblMeses (Morador_ID, CpMesesNaoMarcados, CpAno) values (""" & Rs(0) & """, 'Dezembro',""" & Rs(3) & """)": If Rs(15).Name = Format(Date, "mmmm") Then GoTo Continuar
Continuar:
        Rs.MoveNext
        Loop
MsgBox "Gerado"
End Sub

Cumprimentos.

boas
é isso ai Piloto, mais uma vez muito obrigado.
Vocês são mesmo barras nesta matéria,
que livro me recomendas para aprofundar os meus conhecimentos em VBA?

No Repositório de Tutoriais há material para estudo,de uma olhadinha por la.

Só falto clicar no Resolvido.


Cumprimentos.

já tinha carregado lá e não reparei que estava em falta,
resolvido
obrigado

O Fórum agradece o retorno.