Bom dia,
No Frm_Mensalidades, ao atualizar a placa, ou antes de atualizar, caso no campo (Qtd Reg BD) for igual a 0 (Que quer dizer que essa placa, não consta no banco que dados), então faça uma subtração, entre as datas do Campo (Último Dia Mês Ref), e o resultado se dará no campo (Dias a Cobrar Proporcional), ou seja, estou usando este código, mas está dando erro:
Num_Registros = DCount("[Placa_Mens]", "Tbl_Mensalidades", "[Placa_Mens] ='" & Me.Placa_Mens1 & "'")
If Num_Registros.Value = 0 Then
Me.Conta_Dias.Value = Me.Data_Mes_Ref_Mens.Value - Me.Data_Inst.Value
Else
Me.Conta_Dias = 30
End If
Raciocinando, é assim: Se a placa que eu informar, não estiver no banco de dados, quer dizer que é o primeiro registro, então, quero fazer a diferença de dias proporcional, que é, o último dia do Mês de referência, menos a data de instalação, o resultado, será os dias que eu tenho que pagar proporcional, mas caso a placa já constar no meu BD, então, eu tenho que considerar 30 dias cheio, no caso, a cobrança será de 30 dias.
Muito Obrigado.
https://www.dropbox.com/s/l7owzyy7akzt6bk/Controles%20Gerais.accdb?dl=0
No Frm_Mensalidades, ao atualizar a placa, ou antes de atualizar, caso no campo (Qtd Reg BD) for igual a 0 (Que quer dizer que essa placa, não consta no banco que dados), então faça uma subtração, entre as datas do Campo (Último Dia Mês Ref), e o resultado se dará no campo (Dias a Cobrar Proporcional), ou seja, estou usando este código, mas está dando erro:
Num_Registros = DCount("[Placa_Mens]", "Tbl_Mensalidades", "[Placa_Mens] ='" & Me.Placa_Mens1 & "'")
If Num_Registros.Value = 0 Then
Me.Conta_Dias.Value = Me.Data_Mes_Ref_Mens.Value - Me.Data_Inst.Value
Else
Me.Conta_Dias = 30
End If
Raciocinando, é assim: Se a placa que eu informar, não estiver no banco de dados, quer dizer que é o primeiro registro, então, quero fazer a diferença de dias proporcional, que é, o último dia do Mês de referência, menos a data de instalação, o resultado, será os dias que eu tenho que pagar proporcional, mas caso a placa já constar no meu BD, então, eu tenho que considerar 30 dias cheio, no caso, a cobrança será de 30 dias.
Muito Obrigado.
https://www.dropbox.com/s/l7owzyy7akzt6bk/Controles%20Gerais.accdb?dl=0