[Resolvido]Eliminar com condição

Assis 25/3/2012, 00:21

Assis: Maximo VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009

Mensagem nº1

Eliminar com condição

Mensagem Assis 25/3/2012, 00:21

Boa noite
Tenho uma tabela com o nome "Agenda"
Tem um campo texto nome "Confirmada"

O campo Confirmada só tem duas opções: Ou é "nulo" ou é igual a "sim"

Estou a tentar eliminar com um botão de comando o respectico registo se o campo Confirmada for Nulo .

If (DLookup("[confirmada]", "Agenda", "[Confirmada] ='" & Sim & "'")) Then
MsgBox "Não Pode se Anulada, Pois Já Está Confirmada", vbQuestion, "Aviso"

Exit Sub
else
End If

Mas o resultado é igual para quando o campo confirmada é nulo ou não.
Aonde estou a errar

Obrigado

.................................................................................
*** Só sei que nada sei ***

Convidado 25/3/2012, 04:02

Convidado

Convidado: Convidado

Mensagem nº2

Re: [Resolvido]Eliminar com condição

Mensagem Convidado 25/3/2012, 04:02

Na primeira linha do codigo para excluir

IntContarReg = Me.RecordsetClone.RecordCount

If IsNull(Confirmada) Or Confirmada = Sim Then

DoCmd.Close

MsgBox "Não Pode se Anulada, Pois Já Está Confirmada", vbInformation, "Aviso"

End If

Convidad 25/3/2012, 04:53

Convidad

Convidad: Convidado

Mensagem nº3

Re: [Resolvido]Eliminar com condição

Mensagem Convidad 25/3/2012, 04:53

Se o botão está num form normal acoplado à tabela Agenda e que exiba o campo Confirmada, e vc quer excluir o registro atual, não precisa DLookup.
Basta usar assim:


If IsNull(Me.Confirmada) Or Me.Confirmada = "" Then
  DoCmd.RunCommand acCmdDeleteRecord
Else
  MsgBox "Não Pode se Anulada, Pois Já Está Confirmada", vbQuestion, "Aviso"
End If

Se o botão estiver em um form não acoplado, e quer deletar todos os registros na tabela onde o campo Confirmada for Nulo pode usar:
CurrentDb.Execute ("DELETE * FROM Agenda WHERE Confirmada Is Null;")