Boa tarde,
Estou utilizando o código abaixo para evitar duplicidade de datas. Tipo, tem a data inicial e data final, ou seja, se por exemplo, já estiver a data de hoje cadastrada, como inicial, e eu quiser cadastrar novamente, como data inicial, não pode permitir, bem como para data final, caso já tenha.
Esse código encontrei aqui no fórum, e adaptei, mas ainda não está 100%, e não estou vendo onde estou errando.
Private Sub Form_BeforeUpdate(Cancel As Integer)
If DCount("Data_Inicial_Tbl", "Tbl_Lancamentos", "Data_Inicial_Tbl ='" & Data_Inicial_Frm & "' and Data_Final_Tbl =" & Data_Final_Frm) > 0 Then
MsgBox "Já existem reservas neste período!", vbCritical
Me.Undo
Cancel = True
Exit Sub
End If
End Sub
Estou utilizando o código abaixo para evitar duplicidade de datas. Tipo, tem a data inicial e data final, ou seja, se por exemplo, já estiver a data de hoje cadastrada, como inicial, e eu quiser cadastrar novamente, como data inicial, não pode permitir, bem como para data final, caso já tenha.
Esse código encontrei aqui no fórum, e adaptei, mas ainda não está 100%, e não estou vendo onde estou errando.
Private Sub Form_BeforeUpdate(Cancel As Integer)
If DCount("Data_Inicial_Tbl", "Tbl_Lancamentos", "Data_Inicial_Tbl ='" & Data_Inicial_Frm & "' and Data_Final_Tbl =" & Data_Final_Frm) > 0 Then
MsgBox "Já existem reservas neste período!", vbCritical
Me.Undo
Cancel = True
Exit Sub
End If
End Sub
- Anexos
- Exemplo_Reserva_Periodo_Datas.zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (41 Kb) Baixado 8 vez(es)