CODIGOS ACESS

NOSLIRA 18/04/2011 21:23:35
#371767

Cara muito obrigado

mais ainda preciso da sua ajuda

Montei que eu quero: estou postanto o BD- com a tabela, formulario , consulta e modulos.

Agora vai!!!! rsrsrs

http://www.megaupload.com/?d=UKBI4O14

NOSLIRA 20/04/2011 12:39:37
#371991

CONSEGUI MUITO OBRIGADO A TODOS.

CODIGO BY
Liomar
Programador Pleno ITAB

On Error Resume Next
If Me.Manutenção = True Then
Exit Sub [ô]Aqui ignora o código se não encontrar campo em false.
ElseIf Me.Manutenção = False Then
Dim iDias As Integer
iDias = DateDiff([Ô]d[Ô], Now(), Nz(Me.DataFinal, 0))
If iDias <= 2 And iDias > 0 And Not IsNull(Me.DataFinal) Then
MsgBox [Ô]Falta(m) [Ô] & iDias & [Ô] dia(s) para realizar a manutenção desse Registro.[Ô], vbOKOnly, [Ô]Aviso Alerta[Ô]
ElseIf iDias < 0 And Not IsNull(Me.DataFinal) Then
iDias = iDias * (-1)
MsgBox [Ô]A manutenção desse Registro está com [Ô] & iDias & [Ô] dia(s) de atraso.[Ô], vbOKOnly, [Ô]Aviso Alerta[Ô]
End If
End If
Obs. Aqui estou assumindo que seu formulário tenham campos com os nomes “Manutenção” (do tipo sim/não) e “DataFinal”.

Agora, no Evento “Ao abrir[Ô] do seu formulário, escreva o código abaixo:

Dim iVerificaRegistros As Integer
iVerificaRegistros = Nz(DCount([Ô]Manutenção[Ô], [Ô]Monitoramento Atividades[Ô], [Ô]Manutenção Like [ô]0[ô][Ô]), 0)
If iVerificaRegistros > 0 Then
MsgBox [Ô]Exite(m) Registro(s) com pendência de manutenção neste formulário. Verifique![Ô], vbOKOnly, [Ô]Alerta[Ô]
Else
End If