Estou usando a expressão Form_timer () duas vezes, dai aparece a msg do print abaixo, qual expressao pode substituir essa ou o que posso fazer pra usa-la duas vezes, é possivel isso?
Estou usando a expressão aqui:
Private Sub Form_Timer()
'A cada décimo de segundo esse procedimento é executado
'Twip é a medida utilizada pelo Access como default
'1cm = 567 twips
'Se a etiqueta estiver a menos de 50 twips da esquerda
'da janela:
If Me!lblFrase.Left <= 50 Then
'e se a legenda da etiqueta for >1
If Len(Me!lblFrase.Caption) > 1 Then
'Faz a legenda da etiqueta = a legenda da
'etiqueta - o primeiro caractere a esquerda
Me!lblFrase.Caption = Right(Me!lblFrase.Caption, Len(Me!lblFrase.Caption) - 1)
'Se a legenda já houver "acabado"
Else
'Deixo a etiqueta com o tamanho Zero e ...
Me!lblFrase.Width = 0
'... faço a esquerda da etiqueta = ao ta-
'manho da janela...
Me!lblFrase.Left = Me.WindowWidth
'e retorno a frase para a legenda da etiqueta
Me!lblFrase.Caption = wFrase
End If
'Se estiver com mais de 50 twips
Else
'Faz com que a esquerda da etiqueta diminua 50 twips e ...
Me!lblFrase.Left = Me!lblFrase.Left - 50
'... o tamanho aumenta 50 twips
Me!lblFrase.Width = Me!lblFrase.Width + 50
End If
End Sub
Estou usando aqui tambem:
Private Sub Form_Timer()
'Oculta MessageBar
DoCmd.RunCommand acCmdHideMessageBar
'Maximiza a tela
DoCmd.RunCommand acCmdAppMaximize
'Chama procedimento para redimensionar janela
Call AccessMoveSize(x / 2 - 270.5, Y / 2 - 110.2 - 100, 450, 300) 'Posiciona a janela do access no centro da tela
End Sub
Estou usando a expressão aqui:
Private Sub Form_Timer()
'A cada décimo de segundo esse procedimento é executado
'Twip é a medida utilizada pelo Access como default
'1cm = 567 twips
'Se a etiqueta estiver a menos de 50 twips da esquerda
'da janela:
If Me!lblFrase.Left <= 50 Then
'e se a legenda da etiqueta for >1
If Len(Me!lblFrase.Caption) > 1 Then
'Faz a legenda da etiqueta = a legenda da
'etiqueta - o primeiro caractere a esquerda
Me!lblFrase.Caption = Right(Me!lblFrase.Caption, Len(Me!lblFrase.Caption) - 1)
'Se a legenda já houver "acabado"
Else
'Deixo a etiqueta com o tamanho Zero e ...
Me!lblFrase.Width = 0
'... faço a esquerda da etiqueta = ao ta-
'manho da janela...
Me!lblFrase.Left = Me.WindowWidth
'e retorno a frase para a legenda da etiqueta
Me!lblFrase.Caption = wFrase
End If
'Se estiver com mais de 50 twips
Else
'Faz com que a esquerda da etiqueta diminua 50 twips e ...
Me!lblFrase.Left = Me!lblFrase.Left - 50
'... o tamanho aumenta 50 twips
Me!lblFrase.Width = Me!lblFrase.Width + 50
End If
End Sub
Estou usando aqui tambem:
Private Sub Form_Timer()
'Oculta MessageBar
DoCmd.RunCommand acCmdHideMessageBar
'Maximiza a tela
DoCmd.RunCommand acCmdAppMaximize
'Chama procedimento para redimensionar janela
Call AccessMoveSize(x / 2 - 270.5, Y / 2 - 110.2 - 100, 450, 300) 'Posiciona a janela do access no centro da tela
End Sub