NUMERACÃƀ™ÃƒÂ€ŠÃ‚£O

USUARIO.EXCLUIDOS 15/01/2005 14:16:38
#60930
Ola...

Gostaria de saber, como é que se faz para que um campo text, ao receber o foco ele enumere automaticamente ex: 001, 002, 003...
Grato
FELIPEA 15/01/2005 14:23:53
#60931
Como assim, vc poderia explicar melhor?
USUARIO.EXCLUIDOS 15/01/2005 14:29:56
#60933
Eu tenho uma text.box que informa o numero de identificação, e eu gostaria que fosse do tipo, que ao acrescentar um novo registro ele va para o proximo numero.
USUARIO.EXCLUIDOS 15/01/2005 14:30:06
#60934 Resposta escolhida
Eaí cara, beleza? Lá vai o código:
Private Sub Text1_GotFocus()
Text1.Text = Empty
For I% = 1 To 100
Text1.Text = Text1.Text & I% & ", "
Next I%
End Sub

Espero ter resolvido seu problema...
USUARIO.EXCLUIDOS 15/01/2005 14:31:39
#60936
Ouch! Axo que viajei legal! Mas pow, tu num explicou o tópico direito... O que eu tinha entendido era isso...
VB6MASTER 15/01/2005 22:26:30
#61106
Kra, eu utilizo essa função
Public Function BuscaAnterior()

Dim cSQLBA1 As String
Dim Contador As Integer
cSQLBA1 = "SELECT TOP 1 NProtocolo, AProtocolo from Geral WHERE AProtocolo = " & _
           Year(Date) & " ORDER BY AProtocolo desc, NProtocolo desc"
    Dados.rsGeral.Open cSQLBA1, , adOpenForwardOnly, adLockReadOnly
    If IsNull(Dados.rsGeral!NProtocolo) Then
        NAnterior = 0
    Else
        NAnterior = Dados.rsGeral!NProtocolo
    End If
    Dados.rsGeral.Close
    NumProt = NAnterior
    tpDados.vNProt = (NAnterior + 1)
    frmPrincipal.lblNProtocolo.Caption = tpDados.vNProt
End Function

O número que aparece na LABEL é fornecido pela Base de Dados. Trata-se de um campo que vai se atualizando conforme vai-se adcionando registros.
Espero que te sirva.
Tópico encerrado , respostas não são mais permitidas
Voltar