Companheiros bom dia!
Eis o código do Norberto
ficou assim:
Private Sub Form_BeforeUpdate(Cancel As Integer)
On Error GoTo Trato
Dim QuantDestaData As Integer
QuantDestaData = Nz(DCount("*", "TabelaPedidos", "DataDoPedido = Forms!FormPedidos.DataDoPedido"), 0)
If QuantDestaData > 0 Then
If Not Confirmar("Já existe(m) " & QuantDestaData & " pedido(s) com esta data." & vbCrLf & _
"Deseja manter a data?") Then
Cancel = True
Else
End If
End If
Exit Sub
Trato: MsgBox Err.Description
End Sub
Surgiu outro problema:
Acontece que nesta tabela "TabelaPedidos",
tenho um campo chamado "maquina"
que adiciono dois equipamentos por data,
"Gerador - 001" e "Gerador - 002".
Exemplo:
1º registro "Gerador - 001" com data 02/04/2012.
2º registro "Gerador - 002" com data 02/04/2012.
Obs:"Datas iguai mas equipamentos diferentes".
eis a questão:
Precisaria que quando o usuário fosse adicionar
por exemplo o segundo registro com a mesma data só que equipamentos
Diferente do campo "maquina" o código disparasse, mas não enxergasse.
Pois é datas iguais porem com equipamentos diferentes.
Que o código só enxergasse quando o usuário
lançar registros duplicados com datas iguais e equipamentos iguais!
Alguém pode me ajudar?
Obs: o código do Norberto está funcionando perfeito!
só que preciso adaptar para essa circunstância.
Sou muito grato á todos do fórum!
Anexado bd!
abraços Lupércio!
Eis o código do Norberto
ficou assim:
Private Sub Form_BeforeUpdate(Cancel As Integer)
On Error GoTo Trato
Dim QuantDestaData As Integer
QuantDestaData = Nz(DCount("*", "TabelaPedidos", "DataDoPedido = Forms!FormPedidos.DataDoPedido"), 0)
If QuantDestaData > 0 Then
If Not Confirmar("Já existe(m) " & QuantDestaData & " pedido(s) com esta data." & vbCrLf & _
"Deseja manter a data?") Then
Cancel = True
Else
End If
End If
Exit Sub
Trato: MsgBox Err.Description
End Sub
Surgiu outro problema:
Acontece que nesta tabela "TabelaPedidos",
tenho um campo chamado "maquina"
que adiciono dois equipamentos por data,
"Gerador - 001" e "Gerador - 002".
Exemplo:
1º registro "Gerador - 001" com data 02/04/2012.
2º registro "Gerador - 002" com data 02/04/2012.
Obs:"Datas iguai mas equipamentos diferentes".
eis a questão:
Precisaria que quando o usuário fosse adicionar
por exemplo o segundo registro com a mesma data só que equipamentos
Diferente do campo "maquina" o código disparasse, mas não enxergasse.
Pois é datas iguais porem com equipamentos diferentes.
Que o código só enxergasse quando o usuário
lançar registros duplicados com datas iguais e equipamentos iguais!
Alguém pode me ajudar?
Obs: o código do Norberto está funcionando perfeito!
só que preciso adaptar para essa circunstância.
Sou muito grato á todos do fórum!
Anexado bd!
abraços Lupércio!
- Anexos
- 2 CAMPOS OPÇÃO DE EXCLUSÃO ATUAL.zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (30 Kb) Baixado 17 vez(es)