CRIAR UM LOOP DE COMPARACAO ..::: URGENTE :::..

FILMAN 11/05/2010 14:41:32
#341498
Amigo funciona ele verifica certinho mas no local da mensagem pedi para que viesse o FORM expecifico e não veio


ou seja o FORM não aparece só aparece a mensagem.



o que esta errado?



Dim Whoramarcada As String
Private Sub Form_Load()
    RS.OPEN [Ô]select TEMPO from TABELA[Ô]
    Whoramarcada = RS!TEMPO
    RS.Close
    Timer1.Interval = (60 - Format(Time, [Ô]ss[Ô])) * 1000 [ô]Prepara para disparar no próximo minuto
End Sub

Private Sub Timer1_Timer()
    Timer1.Interval = 60000 [ô]Prepara para disparar a cada minuto CHEIO
    Label1.Caption = Format(Time(), [Ô]hh:nn:ss[Ô]) [ô]Formato de minuto é a letra [Ô]n[Ô]. [Ô]m[Ô] é para mês.
    If Whoramarcada = Format(Time, [Ô]hh:nn[Ô]) Then
        [txt-color=#e80000]FORM1.Show, 1[/txt-color]
    End If
End Sub
EDERMIR 11/05/2010 21:54:17
#341531 
Dim Whoramarcada As String
Private Sub Form_Load()
    RS.OPEN [Ô]select TEMPO from TABELA[Ô]
    Whoramarcada = RS!TEMPO
    RS.Close
    Timer1.Interval = (60 - Format(Time, [Ô]ss[Ô])) * 1000 [ô]Prepara para disparar no próximo minuto
End Sub

Private Sub Timer1_Timer()
    Timer1.Interval = 60000 [ô]Prepara para disparar a cada minuto CHEIO
    Label1.Caption = Format(Time(), [Ô]hh:nn:ss[Ô]) [ô]Formato de minuto é a letra [Ô]n[Ô]. [Ô]m[Ô] é para mês.
    If Whoramarcada = Format(Time, [Ô]hh:nn[Ô]) Then
        FORM1.Show, 1
        [txt-color=#e80000]DOEVENTS[/txt-color]
    End If
End Sub
FILMAN 12/05/2010 16:33:35
#341603
Esta dando um ERRO

Run - Time error [ô]13[ô]


Type mismatch



Na linha

[txt-color=#e80000]FORM1.Show, 1[/txt-color]



O que fazer
FILMAN 12/05/2010 16:41:10
#341604
Consegui arrumar tirei o tipo vbmodal, mas agora tem outro problema

só aparece uma vez o FORM1 aí ele tem um botão que faz o UNLOAD do mesmo e o principal continua aberto
o script acima funciona coninua verificando, mas não chama o FORM1 novamente.



O que fazer?????



Obrigado
ASHKATCHUP 12/05/2010 16:52:23
#341605
Duas soluções:

->Em vez de usar [Ô]UNLOAD ME[Ô] no form1, deixe o invisível com [Ô]Me.visible = false[Ô]
->Antes de usar FORM1.Show, coloque LOAD FORM1.
FILMAN 12/05/2010 18:12:23
#341613
Verifica o Projeto ele pega somente o primeiro horario os outro ele passa e não vê mais nada é como se fosse cego








Conto com vocês

Obrigado
FILMAN 13/05/2010 13:32:49
#341675
Mais alguém pode me ajudar nesse projeto




Obrigado
FILMAN 14/05/2010 14:32:56
#341778
Amigos preciso da ajuda de vocês !!!!





Mais alguem pode me ajudar?
Página 2 de 2 [18 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar