Boa tarde, no meu banco de dados tem além de outros, os campos, NUMEROENTRADA e PLACA, gostaria que, ao entrar com uma PLACA já cadastrada o sistema me retornasse a mensagem de veículo já cadastrado. Porem, caso ele esteja cadastrado e já tenha sido liberado do estacionamento, eu possa cadastra-lo novamente, porem com o numero de NUMEROENTRADA novo. Isso pra que não seja cadastrado duas vezes o mesmo veiculo com a mesma placa sem ter sido liberado. Mas eu necessito das duas entradas cadastradas no banco de dados, pra eu poder saber quantas vezes entrou e saiu.
Utilizei o código abaixo, extraído de pesquisas aqui no fórum. Porem ele não permite que eu cadastre um novo veiculo com a mesma placa e outro NUMEROENTRADA. Só permite que eu altere o NUMEROENTRADA.
Alerta e Mostra Registo Duplicado no Ms Access
Private Sub SeuCampoNoForm_BeforeUpdate(Cancel As Integer)
Dim Busca As String
Dim stLinkCriteria As String
Dim rsc As DAO.Recordset
Set rsc = Me.RecordsetClone
Busca = Me.SeuCampoNoForm.Value
stLinkCriteria = "SeuCampoNaTabela= '" & Busca & "'"
If DCount("SeuCampoNaTabela", "NomeDaTabela", stLinkCriteria) > 0 Then
Me.Undo
Cancel = True
MsgBox "Atencao, registo " _
& Busca & " ja existe." _
& vbCr & vbCr & "Vai ser mostrado o Registo.", vbInformation _
, "Duplicado"
rsc.FindFirst stLinkCriteria
Me.Bookmark = rsc.Bookmark
End If
Set rsc = Nothing
End Sub
Obrigado.
Utilizei o código abaixo, extraído de pesquisas aqui no fórum. Porem ele não permite que eu cadastre um novo veiculo com a mesma placa e outro NUMEROENTRADA. Só permite que eu altere o NUMEROENTRADA.
Alerta e Mostra Registo Duplicado no Ms Access
Private Sub SeuCampoNoForm_BeforeUpdate(Cancel As Integer)
Dim Busca As String
Dim stLinkCriteria As String
Dim rsc As DAO.Recordset
Set rsc = Me.RecordsetClone
Busca = Me.SeuCampoNoForm.Value
stLinkCriteria = "SeuCampoNaTabela= '" & Busca & "'"
If DCount("SeuCampoNaTabela", "NomeDaTabela", stLinkCriteria) > 0 Then
Me.Undo
Cancel = True
MsgBox "Atencao, registo " _
& Busca & " ja existe." _
& vbCr & vbCr & "Vai ser mostrado o Registo.", vbInformation _
, "Duplicado"
rsc.FindFirst stLinkCriteria
Me.Bookmark = rsc.Bookmark
End If
Set rsc = Nothing
End Sub
Obrigado.