CONDICAO MENSAGENS

MARCELOFAZAN 07/06/2010 11:57:26
#344116
Pessoal estou tentando colocar umas mensagens mais a condicao nao ta pegando

Dim DataVenc As Date
Dim DataAtual As Date

DataVenc = Text5.Text
DataAtual = Text8.Text

If Text8.Text > Text5.Text Then
Label8.Caption = [Ô]MENSALIDADE EM DIA [Ô]
Else
Label8.Caption = [Ô]FALTAM [Ô] & DateDiff([Ô]d[Ô], DataVenc, DataAtual) & [Ô] DIA(s) PARA PAGAMENTO [Ô]
End If


nessa linha If Text8.Text > Text5.Text Then se eu colocar > nas ambas condicoes me mostram a mesma mensagem e se colocar < assim ... tambem sempre me retorna a mesma mensagem

o que preciso mudar no codigo pra fazer ambas mensagens darem certo

se a data vencimento > data do dia
[Ô]MENSALIDADE EM DIA [Ô]
else
Label8.Caption = [Ô]FALTAM [Ô] & DateDiff([Ô]d[Ô], DataVenc, DataAtual) & [Ô] DIA(s) PARA PAGAMENTO [Ô]
fim

to usando maior > e menor < mais nao ta pegando .... as mensagens se repetem
se eu coloco > em ambas ele me retorna MENSALIDADE EM DIA
e se coloco < me retorna a outra mensagem

Obrigado
Abs
Marcelo Fazan
JONATHANSTECKER 07/06/2010 12:03:57
#344119 Resposta escolhida
Tenta assim...

Dim DataVenc As Date
Dim DataAtual As Date

DataVenc = Text5.Text
DataAtual = Text8.Text

If DateDiff([Ô]d[Ô], Text8.Text, Text5.Text) < 0 Then
Label8.Caption = [Ô]MENSALIDADE EM DIA [Ô]
Else
Label8.Caption = [Ô]FALTAM [Ô] & DateDiff([Ô]d[Ô], DataVenc, DataAtual) & [Ô] DIA(s) PARA PAGAMENTO [Ô]
End If

Atenciosamente,
Jonathan Stecker
MARCELO.TREZE 07/06/2010 13:05:40
#344127
tão simples colega, apenas preste mais atenção no que escreve

se definiu text5 e text8 como campos do tipo data use-os

Dim DataVenc As Date
    Dim DataAtual As Date
       
    DataVenc = Text5.Text
    DataAtual = Text8.Text
    
    If DataAtual > DataVenc Then
    Label8.Caption = [Ô]MENSALIDADE EM DIA [Ô]
    Else
    Label8.Caption = [Ô]FALTAM [Ô] & DateDiff([Ô]d[Ô], DataVenc, DataAtual) & [Ô] DIA(s) PARA PAGAMENTO [Ô]
    End If


pronto
MARCELOFAZAN 07/06/2010 13:28:06
#344136
entao mais e pra eu colocar nas setas ,
vo precisar assimilar essas mensagens nas setas ao codigo , tipo to passando as setas e as mensagens parecem estar totalmente diferente do correto correto, preciso amarrar isso ao campo codigo . tentei fazer isso nos cmd do command .... alguem uma como amarrar ao codigo

Obrigado Amigos





Private Sub CmdMov_Click(Index As Integer)
Dim rs As New ADODB.Recordset

Select Case Index
Case 0 [ô] primeiro
Sql = [Ô]SELECT * FROM buscar [Ô] _
& [Ô]WHERE id IN (SELECT MIN(id) FROM buscar)[Ô]

Case 1 [ô] anterior
Sql = [Ô]SELECT TOP 1 * FROM buscar [Ô] _
& [Ô]WHERE id < [Ô] & Val(Txtid.Text) & [Ô] ORDER BY id DESC[Ô]

Case 2 [ô] proximo
Sql = [Ô]SELECT TOP 1 * FROM buscar [Ô] _
& [Ô]WHERE id > [Ô] & Val(Txtid.Text) & [Ô] ORDER BY id[Ô]

Case 3 [ô] ultimo
Sql = [Ô]SELECT * FROM buscar [Ô] _
& [Ô]WHERE id IN (SELECT MAX(id) FROM buscar)[Ô]

End Select
rs.Open Sql, conexao

If Dir(App.Path & [Ô]\FOTOS\[Ô] & Txtid & [Ô].bmp[Ô]) <> [Ô][Ô] Then
Picture1.Picture = LoadPicture(App.Path & [Ô]\FOTOS\[Ô] & Txtid & [Ô].bmp[Ô])
Else
Picture1.Picture = LoadPicture([Ô][Ô])
End If



If TxtPagam.Text = [Ô]S[Ô] Then
Label6.Caption = [Ô]LIBERADO[Ô]

Dim DataVenc As Date
Dim DataAtual As Date

DataVenc = Text5.Text
DataAtual = Text8.Text

If DataAtual > DataVenc Then
Label8.Caption = [Ô]MENSALIDADE EM DIA [Ô]
Else
Label8.Caption = [Ô]FALTAM [Ô] & DateDiff([Ô]d[Ô], DataVenc, DataAtual) & [Ô] DIA(s) PARA PAGAMENTO [Ô]
End If

Else
Label8.Caption = [Ô]PEDENTE DE PAGAMENTOS[Ô]
Label8.ForeColor = vbRed

End If


[ô]--------------------
If rs.EOF Then [ô] se nao encontrou

Else
MostraDados rs
End If

rs.Close: Set rs = Nothing

End Sub
MARCELO.TREZE 07/06/2010 13:33:45
#344137
primeiro c possui ua função para atualizar, ou preencher seus campos

se sim vc terá de chama-la sempre

que navegar entre os campos

para cada vez que mudar de registro preencher os campos

assim vc nào terá problemas.

PS: vc vai se perder neste código ainda.
MARCELOFAZAN 07/06/2010 13:48:18
#344142
ok , mais me diz me enrolar por causa do codigo das setas ?
MARCELO.TREZE 07/06/2010 13:58:40
#344145
Digo que seu código está ficando confuso, talvez nem se enrole, mas a cada vez mais dificil para acompanhar seu raciocinio.

tente criar um padrao ou seguri o padrão comumente usado.
MARCELOFAZAN 07/06/2010 14:24:27
#344151
ql seria ???

nao estou conseguindo juntar os codigos , tipo to fazendo algo pequeno

ql procedure tem como colocar esse codigo e funcionar a tela inteira consecutivamente ??
acho que somente o codigo que fiz resolve so que inves de colocar no botao

colocaria em algum lugar outro lugar no form
MARCELOFAZAN 07/06/2010 14:30:11
#344153
tenho esse codigo em 1 lugar que faço a busca acredito que la ira funcionar o que voces passaram

pois ja estava funcionando era somente o if que estava incorreto

ai como to sem poder fazer a busca, to tentando adaptar no form de cadastro dessa consulta

mais se nao tiver como

Obrigado mais uma vexz
MARCELOFAZAN 07/06/2010 17:54:44
#344175
Obrigado pessoal , consegui o que precisava

Do Until Tabela.EOF
Text7.Text = Tabela([Ô]pagam[Ô])

If Text7.Text = [Ô]S[Ô] Then
infsom = 1
Label6.Caption = [Ô]LIBERADO[Ô]
Label6.ForeColor = RGB(0, 128, 0)


Dim DataVenc As Date
Dim DataAtual As Date

DataVenc = Text8.Text
DataAtual = Text5.Text

If DateDiff([Ô]d[Ô], Text8.Text, Text5.Text) < 0 Then
Label8.Caption = [Ô]MENSALIDADE EM DIA [Ô]
Else
Label8.Caption = [Ô]FALTAM [Ô] & DateDiff([Ô]d[Ô], DataVenc, DataAtual) & [Ô] DIA(s) PARA PAGAMENTO [Ô]
End If

If Text5.Text = Text8.Text Then
Label8.Caption = [Ô]O VENCIMENTO DA SUA MENSALIDADE é HOJE [Ô]
End If



Else
infsom = 2
Label6.Caption = [Ô]PEDENTE DE PAGAMENTOS[Ô]
Label6.ForeColor = vbRed


Dim DataVE As Date
Dim DataAt As Date

DataVE = Text8.Text
DataAt = Text5.Text

If DateDiff([Ô]d[Ô], Text8.Text, Text5.Text) < 0 Then
Label8.Caption = [Ô]MENSALIDADE EM ATRASO[Ô]
Else
Label8.Caption = [Ô]PASSARAM SE [Ô] & DateDiff([Ô]d[Ô], DataVE, DataAt) & [Ô] DIA(s) DO PAGAMENTO [Ô]
End If

If Text5.Text = Text8.Text Then
Label8.Caption = [Ô]O VENCIMENTO DA SUA MENSALIDADE é HOJE [Ô]
End If


End If
PlayHitMe

Tabela.MoveNext
Loop
Tabela.Close
Tópico encerrado , respostas não são mais permitidas
Voltar