ENCONTRAR O NUMERO MAIOR EM UMA SEQUENCIA

ADILSOO 09/03/2012 12:34:37
#396803
Não sei se te ajuda mas e se voce pegar e em uma tabela gravar o ultimo código/cartão cadastrado? aí na hora de criar um novo voce ferifica qual foi o ultimo cadastrado, joga na tela, e assim que clicar em salvar voce altera esse código e assim vai.
GANDA.NICK 09/03/2012 17:36:00
#396829
pelo que eu percebi, vc tem todos os funcinarios, diretores e estagiarios na mesma tabela, e seu ID será o cartão...

nao sei se será facil fazer um select para isso...

experimente passar todos os numeros de cartão já ocupados para um array e preencher ZERO nos vazios... depois faça um FOR...


Private Sub Command1_Click()
Dim MyArr(1 To 900) As Integer
Dim i As Integer

[ô]exemplo só para preencher partes do array
For i = 1 To 225
    MyArr(i) = i
Next [ô]i
For i = 301 To 370
    MyArr(i) = i
Next [ô]i
For i = 501 To 620
    MyArr(i) = i
Next [ô]i
[ô]fim do exemplo


For i = 1 To 900
    If MyArr(i) = 0 And i <= 301 Then
        MsgBox [Ô]ultimo funcionario padrao: [Ô] & i
        i = 301
    End If
    If MyArr(i) = 0 And i <= 501 Then
        MsgBox [Ô]ultimo director: [Ô] & i
        i = 501
    End If
    If MyArr(i) = 0 Then
        MsgBox [Ô]ultimo estagiario padrao: [Ô] & i
        i = 900
    End If
Next [ô]i

End Sub


veja se isto o ajuda...
Página 2 de 2 [13 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar