Sistema em MS-Access

Question

Antes de tudo as apostrofes s&atilde;o os coment&aacute;rios

'Estou fazendo um sistema para um clube com o gerenciamento dos Associados e tal e controle das mensalidades pagas e vencidas.
'Ao gerar as mensalidades para o ano referente &eacute; gravado em uma tabela de mensalidades com os seguintes campos:
'Nome---------Tipo------Chaves Primarias
'md_codsoc----Integer---Chave
'md_ano-------Integer---chave
'md_janven----date {Data vencimento Janeiro}
'md_fevven----date {              Fevereiro}
'md_marven----date {        Mar&ccedil;o}
'md_abrven----date
'md_junven----date
'md_julven----date
'md_agoven----date
'md_setven----date
'md_outven----date
'md_novven----date
'md_dezven----date{   Dezembro}
'md_janpag----date{ Data pagamento Janeiro}
'md_fevpag----date
'md_marpag----date
'md_abrpag----date
'md_junpag----date
'md_julpag----date
'md_agopag----date
'md_setpag----date
'md_outpag----date
'md_novpag----date
'md_dezpag----date{   Dezembro}
'md_valor-----number {Valor da Mensalidade}
'md_valor-----number {Valor Extra}

'No sistema ao pagar uma mensalidade as informa&ccedil;&otilde;es s&atilde;o gravadas nos mes md_...pag(ex: md_janpag)
'O problema &eacute; em alimentar um tabela auxiliar.
'Estou lendo e transferindo os dados necess&aacute;rios alimentar uma tabela auxiliar, a qual &eacute; utilizada na gera&ccedil;&atilde;o
'de um relat&oacute;rio especificando as mensalidades vencidas e pagas

'Essa tabela auxiliar tem a seguinte estrutura:
'Nome---------Tipo------Chaves Primarias
'CD_socio-----integer {C&oacute;digo do Associado}
'Cd_ano-------integer
'vl_mesref----date   {m&ecirc;s e ano da mensalidade (ex: 03/2003}
'vl_vencidas--number {Valor da mensalidade vencida}
'vl_pagas-----number {valor da mensalidade paga}

'Abaixo esta o modulo que criei para realizar tal procedimento

'OBS: Essa procedure &eacute; utilizada alimentar a tabela auxiliar com a finalidade destas informa&ccedil;&otilde;es
'Gerar um relat&oacute;rio


'Verifica de Mensalidades Pagas e Vencidades e Grava em work_conta
Public Sub Mens_Venc()
    'Variaveis da Procedure
    Dim tb_conta As Recordset
    Dim tb_mensalidade As Recordset
    Dim banco As Database
    Dim criterio_socio
    Dim criterio_vencidas
    Dim datatual As Date
    Dim ANO
    Dim codsocio
    
    
    ANO = Forms!menurel!tano 'Ano refer&ecirc;nte a situa&ccedil;&atilde;o do associado
    codsocio = Forms!menurel!csoc 'Combo com o C&oacute;digo do Associado e nome
        
    'Define Recordsets
    Set banco = CurrentDb()
    Set tb_mensalidade = banco.OpenRecordset(mensalidade)
    Set tb_conta = banco.OpenRecordset(work_conta)
    
    criterio_socio = md_codsoc= & codsocio &  and md_ano= & ANO
    

    
    'verifica se tbl esta cheia
    If Not tb_conta.EOF Then
      tb_conta.MoveFirst
       While Not tb_conta.EOF
              tb_conta.Delete
              tb_conta.MoveNext
       Wend
     MsgBox Todos os registros da tabela work_conta foram deletados!
    End If
   
    tb_mensalidade.FindFirst criterio_socio
    If tb_mensalidade.NoMatch = False Then
      MsgBox O Associado selecionado n&atilde;o possui mensalidade para o ano de  & Forms!menurel!tano, vbCritical
      Exit Sub
     
    Else
    
    datatual = Now()
 
       'Verifica as Mensalidades
        
        
        'Janeiro
        If (tb_mensalidade!md_JANven < datatual) Or (tb_mensalidade!md_JANpag  Null) Then
          tb_conta.AddNew
          tb_conta!vl_mesref = 01/ & ANO
          tb_conta!CD_SOCIO = codsocio
          tb_conta!CD_ANO = ANO
          If (tb_mensalidade!md_JANpag = Null) And (tb_mensalidade!md_JANven < Datatu) Then
            tb_conta!VL_VENCIDAS = tb_mensalidade!md_Valor + tb_mensalidade!md_extra
          End If
             
          If tb_mensalidade!md_JANpag  Null Then
            tb_conta!vl_pagas = tb_mensalidade!md_Valor + tb_mensalidade!md_extra
          End If
              tb_conta.Update
        End If
        
        'Fevereiro
        If (tb_mensalidade!md_FEVven < datatual) Or (tb_mensalidade!md_fevpag  Null) Then
          tb_conta.AddNew
          tb_conta!CD_SOCIO = codsocio
          tb_conta!CD_ANO = ANO
          tb_conta!vl_mesref = 02/ & ANO
          If (tb_mensalidade!md_fevpag = Null) And (tb_mensalidade!md_FEVven < Datatu) Then
            tb_conta!VL_VENCIDAS = tb_mensalidade!md_Valor + tb_mensalidade!md_extra
          End If
          
          If tb_mensalidade!md_fevpag  Null Then
            tb_conta!vl_pagas = tb_mensalidade!md_Valor + tb_mensalidade!md_extra
          End If
          tb_conta.Update
        End If
        
        'Mar&ccedil;o
        If (tb_mensalidade!md_MARven < datatual) Or (tb_mensalidade!md_marpag  Null) Then
          tb_conta.AddNew
          tb_conta!CD_SOCIO = codsocio
          tb_conta!CD_ANO = ANO
          tb_conta!vl_mesref = 03/ & ANO
          If (tb_mensalidade!md_marpag = Null) And (tb_mensalidade!md_MARven < Datatu) Then
            tb_conta!VL_VENCIDAS = tb_mensalidade!md_Valor + tb_mensalidade!md_extra
          End If
          
          If tb_mensalidade!md_marpag  Null Then
          tb_conta!vl_pagas = tb_mensalidade!md_Valor + tb_mensalidade!md_extra
          End If
          tb_conta.Update
        End If
        
        'Abril
        If (tb_mensalidade!md_ABRven < datatual) Or (tb_mensalidade!md_ABRpag  Null) Then
          tb_conta.AddNew
          tb_conta!CD_SOCIO = codsocio
          tb_conta!CD_ANO = ANO
          tb_conta!vl_mesref = 04/ & ANO
          If (tb_mensalidade!md_ABRpag = Null) And (tb_mensalidade!md_ABRven < Datatu) Then
            tb_conta!VL_VENCIDAS = tb_mensalidade!md_Valor + tb_mensalidade!md_extra
          End If
          
          If tb_mensalidade!md_ABRpag  Null Then
          tb_conta!vl_pagas = tb_mensalidade!md_Valor + tb_mensalidade!md_extra
          End If
          tb_conta.Update
        End If
        
        'Maio
         If (tb_mensalidade!md_MAIven < datatual) Or (tb_mensalidade!md_MAIpag  Null) Then
          tb_conta.AddNew
          tb_conta!CD_SOCIO = codsocio
          tb_conta!CD_ANO = ANO
          tb_conta!vl_mesref = 05/ & ANO
          If (tb_mensalidade!md_MAIpag = Null) And (tb_mensalidade!md_MAIven < Datatu) Then
            tb_conta!VL_VENCIDAS = tb_mensalidade!md_Valor + tb_mensalidade!md_extra
          End If
          
          If tb_mensalidade!md_MAIpag  Null Then
          tb_conta!vl_pagas = tb_mensalidade!md_Valor + tb_mensalidade!md_extra
          End If
          tb_conta.Update
        End If
        
        'Junho
         If (tb_mensalidade!md_JUNven < datatual) Or (tb_mensalidade!md_JUNpag  Null) Then
          tb_conta.AddNew
          tb_conta!CD_SOCIO = codsocio
          tb_conta!CD_ANO = ANO
          tb_conta!vl_mesref = 06/ & ANO
          If (tb_mensalidade!md_JUNpag = Null) And (tb_mensalidade!md_JUNven < Datatu) Then
            tb_conta!VL_VENCIDAS = tb_mensalidade!md_Valor + tb_mensalidade!md_extra
          End If
          
          If tb_mensalidade!md_JUNpag  Null Then
          tb_conta!vl_pagas = tb_mensalidade!md_Valor + tb_mensalidade!md_extra
          End If
          tb_conta.Update
        End If
        
        'Julho
        If (tb_mensalidade!md_JULven < datatual) Or (tb_mensalidade!md_JULpag  Null) Then
          tb_conta.AddNew
          tb_conta!CD_SOCIO = codsocio
          tb_conta!CD_ANO = ANO
          tb_conta!vl_mesref = 07/ & ANO
          If (tb_mensalidade!md_JULpag = Null) And (tb_mensalidade!md_JULven < Datatu) Then
            tb_conta!VL_VENCIDAS = tb_mensalidade!md_Valor + tb_mensalidade!md_extra
          End If
          
          If tb_mensalidade!md_JULpag  Null Then
          tb_conta!vl_pagas = tb_mensalidade!md_Valor + tb_mensalidade!md_extra
          End If
          tb_conta.Update
        End If
        
        'Agosto
        If (tb_mensalidade!md_AGOven < datatual) Or (tb_mensalidade!md_AGOpag  Null) Then
          tb_conta.AddNew
          tb_conta!CD_SOCIO = codsocio
          tb_conta!CD_ANO = ANO
          tb_conta!vl_mesref = 08/ & ANO
          If (tb_mensalidade!md_AGOpag = Null) And (tb_mensalidade!md_AGOven < Datatu) Then
            tb_conta!VL_VENCIDAS = tb_mensalidade!md_Valor + tb_mensalidade!md_extra
          End If
          
          If tb_mensalidade!md_AGOpag  Null Then
          tb_conta!vl_pagas = tb_mensalidade!md_Valor + tb_mensalidade!md_extra
          End If
          tb_conta.Update
        End If
        
        'Setembro
        If (tb_mensalidade!md_SETven < datatual) Or (tb_mensalidade!md_SETpag  Null) Then
          tb_conta.AddNew
          tb_conta!CD_SOCIO = codsocio
          tb_conta!CD_ANO = ANO
          tb_conta!vl_mesref = 09/ & ANO
          If (tb_mensalidade!md_SETpag = Null) And (tb_mensalidade!md_SETven < Datatu) Then
            tb_conta!VL_VENCIDAS = tb_mensalidade!md_Valor + tb_mensalidade!md_extra
          End If
          
          If tb_mensalidade!md_SETpag  Null Then
          tb_conta!vl_pagas = tb_mensalidade!md_Valor + tb_mensalidade!md_extra
          End If
          tb_conta.Update
        End If
        
        'Outubro
        If (tb_mensalidade!md_OUTven < datatual) Or (tb_mensalidade!md_OUTpag  Null) Then
          tb_conta.AddNew
          tb_conta!CD_SOCIO = codsocio
          tb_conta!CD_ANO = ANO
          tb_conta!vl_mesref = 10/ & ANO
          If (tb_mensalidade!md_OUTpag = Null) And (tb_mensalidade!md_OUTven < Datatu) Then
            tb_conta!VL_VENCIDAS = tb_mensalidade!md_Valor + tb_mensalidade!md_extra
          End If
          
          If tb_mensalidade!md_OUTpag  Null Then
          tb_conta!vl_pagas = tb_mensalidade!md_Valor + tb_mensalidade!md_extra
          End If
          tb_conta.Update
        End If
        
        'Novembro
        If (tb_mensalidade!md_NOVven < datatual) Or (tb_mensalidade!md_NOVpag  Null) Then
          tb_conta.AddNew
          tb_conta!CD_SOCIO = codsocio
          tb_conta!CD_ANO = ANO
          tb_conta!vl_mesref = 11/ & ANO
          If (tb_mensalidade!md_NOVpag = Null) And (tb_mensalidade!md_NOVven < Datatu) Then
            tb_conta!VL_VENCIDAS = tb_mensalidade!md_Valor + tb_mensalidade!md_extra
          End If
          
          If tb_mensalidade!md_NOVpag  Null Then
          tb_conta!vl_pagas = tb_mensalidade!md_Valor + tb_mensalidade!md_extra
          End If
          tb_conta.Update
        End If
        
        'Dezembro
        If (tb_mensalidade!md_DEZven < datatual) Or (tb_mensalidade!md_DEZpag  Null) Then
          tb_conta.AddNew
          tb_conta!CD_SOCIO = codsocio
          tb_conta!CD_ANO = ANO
          tb_conta!vl_mesref = 12/ & ANO
          If (tb_mensalidade!md_DEZpag = Null) And (tb_mensalidade!md_DEZven < Datatu) Then
            tb_conta!VL_VENCIDAS = tb_mensalidade!md_Valor + tb_mensalidade!md_extra
          End If
          
          If tb_mensalidade!md_DEZpag  Null Then
          tb_conta!vl_pagas = tb_mensalidade!md_Valor + tb_mensalidade!md_extra
          End If
          tb_conta.Update
        End If
        tb_conta.Close
    tb_mensalidade.Close
End If

End Sub

Answer

[color=blue][size=7]Certo, cara. 
Mas resuma qual &eacute; a sua d&uacute;vida ?[/size][/color]

Answer

Fiz grandez mudan&ccedil;as no c&oacute;digo! 
Mas aqui esta o problema: 

    'JANEIRO
    Periodo = TB_MENSAL!md_ANO & 01
    If (Periodo >= PerINI) And (Periodo ProblemaProblema

Answer

[size=5][color=blue]Certo,
Deixe-me ver se entendi.
Vc que que caso a mensalidade n&atilde;o tenha sido paga, ele execute uma fun&ccedil;&atilde;o, certo ? E ele n&atilde;o est&aacute; executando-a
Tente colocar assim.

If TB_MENSAL!md_JANpag < 1 Then 

Conte-me o resultado depois

Abra&ccedil;os[/color][/size]

Answer

N&atilde;o foi essa minha divida, mas consegui resolver.  
Mas valeu pela ajuda ttche!   :o  :o  :o  :o

Answer

[size=5][color=blue]Ok cara, qualquer coisa que precisa &eacute; s&oacute; postar
E verei se posso te ajudar.
Qual o endere&ccedil;o do site do site que voc&ecirc; est&aacute; fazendo ?

Abra&ccedil;os[/color][/size]

Answer

Fiz altera&ccedil;&otilde;es no c&oacute;digo mas ainda h&aacute; problemas

Esse &eacute; o c&oacute;digo:

Option Compare Database
Option Explicit
Dim banco As Database
Dim TB_MENSAL As Recordset
Dim tb_conta As Recordset

Dim PerINI As String
Dim PerFin As String
Dim Datatu As String
Dim Periodo As String

Sub CALC_VALORES(Optional ByVal pBloqueto As Boolean)
'Stop
Set banco = CurrentDb
Dim glbSQL As String
Dim ANO
Dim codsocio
    
codsocio = Forms!menurel!csoc

Set TB_MENSAL = banco.OpenRecordset(mensalidade, dbOpenDynaset)
Set tb_conta = banco.OpenRecordset(WORK_CONTA, dbOpenDynaset)

glbSQL = select ENSALIDADE.* from mENSALIDADE, [Cadastro_socio] 
glbSQL = glbSQL &  where mENSALIDADE.[md_codsoc]= [cadastro_socio].[cs_codsoc] 
glbSQL = glbSQL &     and ano >=  & Mid(Forms!menurel!PerINI, 3, 4)
glbSQL = glbSQL &     and ano >=  & Mid(Forms!menurel!PerFin, 3, 4)

If pBloqueto = True Then
    If InStr(1, Forms!menurel!csoc, *) > 0 Then
        glbSQL = glbSQL &  and [md_codsoc] like ' & Forms!menurel!csoc & '
    Else
        glbSQL = glbSQL &  and MENSALIDADE.[md_codsoc] =  & Forms!menurel!csoc
    End If
End If


PerINI = Mid(Forms!menurel!PerINI, 3, 4) & Mid(Forms!menurel!PerINI, 1, 2)
PerFin = Mid(Forms!menurel!PerFin, 3, 4) & Mid(Forms!menurel!PerFin, 1, 2)
Datatu = Format(Year(Date), 0000) & Format(Month(Date), 00)

banco.Execute (DELETE FROM WORK_CONTA)
TB_MENSAL.MoveFirst
If TB_MENSAL.EOF Then
    Beep
    MsgBox N&atilde;o h&aacute; registro de mensalidades, vbCritical
    Exit Sub
End If

'verifica se tbl esta cheia
If Not tb_conta.EOF Then
  tb_conta.MoveFirst
   While Not tb_conta.EOF
     tb_conta.Delete
     tb_conta.MoveNext
   Wend
   MsgBox Todos os registros da tabela work_conta foram deletados!
End If
   
Do Until TB_MENSAL.EOF
    'JANEIRO
    Periodo = TB_MENSAL!md_ANO & 01
    If (Periodo >= PerINI) And (Periodo = PerINI) And (Periodo = PerINI) And (Periodo = PerINI) And (Periodo = PerINI) And (Periodo = PerINI) And (Periodo

Answer

Esse &eacute; o codigo que estou utilizando para fazer a consulta:

[color=darkblue]SELECT Work_Conta.*, ([vl_mesref]) AS consano, ([cd_socio]) AS conssocio, Cadastro_Socio.cs_nomsoc
FROM Cadastro_Socio INNER JOIN Work_Conta ON Cadastro_Socio.cs_codsoc = Work_Conta.CD_SOCIO
WHERE (((([vl_mesref])) Between ([forms]![menurel]![perini]) And ([forms]![menurel]![perfin])) AND ((([cd_socio])) Like [forms]![menurel]![csoc]));[/color]

[/img]

Answer

O Problema &eacute; que ao gerar a consulta para filtrar os dados a serem visualizados no relat&oacute;rio sempre n&atilde;o &eacute; localizados os registro.Resultado: Executa o evento OnNotData . O Problema deve estar na  consulta ( o que acho muito dificil) ou alguma  parte do c&oacute;digo esta errada.

Answer

[quote=RipThor]O Problema &eacute; que ao gerar a consulta para filtrar os dados a serem visualizados no relat&oacute;rio sempre n&atilde;o &eacute; localizados...[/quote]

Cara, vou te ser sincero... N&atilde;o tive paci&ecirc;ncia de ler o t&oacute;pico todo...  :lol: 

Mas achei esse like na consulta estranho, pois ele s&oacute; deve ser usado para compara&ccedil;&otilde;es de campos string com padr&otilde;es de texto. Tente fazer assim:

SELECT Work_Conta.*, ([vl_mesref]) AS consano, ([cd_socio]) AS conssocio, Cadastro_Socio.cs_nomsoc 
FROM Cadastro_Socio INNER JOIN Work_Conta ON Cadastro_Socio.cs_codsoc = Work_Conta.CD_SOCIO 
WHERE (((([vl_mesref])) Between ([forms]![menurel]![perini]) And ([forms]![menurel]![perfin])) AND ((([cd_socio])) = [forms]![menurel]![csoc]));

Ferramentas

Mover Tópico