DUVIDA EM VENCIMENTO
Tenho um base de dados access chamado [Ô]Banco[Ô], e nele uma tabela chamada [Ô]Fiados[Ô],
Com os seguintes campos:
ID
NOME
PRODUTO
PRECO
DATA
Tenho um form, nele tem um DataGrid, com as seguintes Colunas:
Nome, produto, preco data (dados coletados da tabela fiados)
minha duvida é :
como fazer com q se num registro, uma determinada Data estiver venxido a 30
dias ou +, aparecer um mendagem de alerta...Obrigado
espero q tenha entendido...vou enviar o projeto zip
Com os seguintes campos:
ID
NOME
PRODUTO
PRECO
DATA
Tenho um form, nele tem um DataGrid, com as seguintes Colunas:
Nome, produto, preco data (dados coletados da tabela fiados)
minha duvida é :
como fazer com q se num registro, uma determinada Data estiver venxido a 30
dias ou +, aparecer um mendagem de alerta...Obrigado
espero q tenha entendido...vou enviar o projeto zip
olha o zip ai
Você pode colorir a linha para alertar o usuário.
mas como eu faço isso, e saber se ja passou de 30 dias?
Private Sub Form_Load()
data.Caption = CDate([Ô]21/03/2011[Ô])
If data.Caption <= CDate([Ô]30 dias[Ô]) Then [ô] como eu expresso em vb esse 30 dias
MsgBox [Ô]Venceu[Ô]
Else
MsgBox [Ô]não venceu ainda[Ô]
End If
End Sub
data.Caption = CDate([Ô]21/03/2011[Ô])
If data.Caption <= CDate([Ô]30 dias[Ô]) Then [ô] como eu expresso em vb esse 30 dias
MsgBox [Ô]Venceu[Ô]
Else
MsgBox [Ô]não venceu ainda[Ô]
End If
End Sub
Private Sub Form_Load()
data.Caption = CDate([Ô]22/02/2011[Ô])
If data.Caption <= Date Then [ô] essa linha eu ja resolvi, no caso é Date ( assim comparo com a dara do windows.
MsgBox [Ô]Venceu[Ô]
Else
MsgBox [Ô]não venceu ainda[Ô]
End If
End Sub
agora como fazer essa comparação com uma data do datagrid q ta na imagem acima ?
data.Caption = CDate([Ô]22/02/2011[Ô])
If data.Caption <= Date Then [ô] essa linha eu ja resolvi, no caso é Date ( assim comparo com a dara do windows.
MsgBox [Ô]Venceu[Ô]
Else
MsgBox [Ô]não venceu ainda[Ô]
End If
End Sub
agora como fazer essa comparação com uma data do datagrid q ta na imagem acima ?
é melhor usar o msflexgrid para colorir somente uma célula desejada.
Por parte coloquei assim:
Em [Ô]General[Ô] do form:
Dim wVer As String
Em [Ô]Form/Load[Ô] na ultima linha coloque:
wVer = [Ô]S[Ô]
Copie e cole no form:
Private Sub mskData_Change()
If wVer = [Ô]S[Ô] Then
If mskData <> [Ô][Ô] Then
wDtCompra = Mid(mskData, 1, 2) & [Ô]/[Ô] & Mid(mskData, 3, 2) & [Ô]/[Ô] & Mid(mskData, 5, 4)
wData = DateDiff([Ô]d[Ô], wDtCompra, Date)
If wData > 30 Then
MsgBox [Ô]Venceu[Ô]
Else
MsgBox [Ô]não venceu ainda[Ô]
End If
End If
End If
End Sub
Private Sub mskData_GotFocus()
wVer = [Ô]N[Ô]
End Sub
Private Sub mskData_LostFocus()
wVer = [Ô]S[Ô]
End Sub
Tenta aà e faça melhorias.
Em [Ô]General[Ô] do form:
Dim wVer As String
Em [Ô]Form/Load[Ô] na ultima linha coloque:
wVer = [Ô]S[Ô]
Copie e cole no form:
Private Sub mskData_Change()
If wVer = [Ô]S[Ô] Then
If mskData <> [Ô][Ô] Then
wDtCompra = Mid(mskData, 1, 2) & [Ô]/[Ô] & Mid(mskData, 3, 2) & [Ô]/[Ô] & Mid(mskData, 5, 4)
wData = DateDiff([Ô]d[Ô], wDtCompra, Date)
If wData > 30 Then
MsgBox [Ô]Venceu[Ô]
Else
MsgBox [Ô]não venceu ainda[Ô]
End If
End If
End If
End Sub
Private Sub mskData_GotFocus()
wVer = [Ô]N[Ô]
End Sub
Private Sub mskData_LostFocus()
wVer = [Ô]S[Ô]
End Sub
Tenta aà e faça melhorias.
Obrigado mas não é issoi, 
Private Sub mskData_Change() [ô] não precisa fazer isso
a mensagem precisa aparecer num Label
e eu quero comparar se a data do grid ja passou ou ja completou 30 dias, so isso
resumindo presico saber como [Ô]Coletar[Ô] a data do grid e verifir se ja cheou ou passou de 30 dias
Private Sub mskData_Change() [ô] não precisa fazer isso
a mensagem precisa aparecer num Label
e eu quero comparar se a data do grid ja passou ou ja completou 30 dias, so isso
resumindo presico saber como [Ô]Coletar[Ô] a data do grid e verifir se ja cheou ou passou de 30 dias
alguem sabe fazer isso ?
Tópico encerrado , respostas não são mais permitidas