PUXAR ULTIMO REGISTRO CADASTRADO

USUARIO.EXCLUIDOS 06/09/2007 10:24:21
#234419
Ola tenho um form que cadastra numeros de pasta que vai de 1 a 1000
Tenho um Text que se chama ULTIMA PASTA CADASTRADA...gostaria que nesse campo ele puxasse o ultimo numero cadastrado...
Por exemplo eu ja cadastrei umas 540 pastas...mais ai eu posso me perder da numeração da pasta...como que eu faço para esse numero 540 sair no meu Text que chama ULTIMA PASTA CADASTRADA

Valeu
USUARIO.EXCLUIDOS 06/09/2007 10:26:21
#234420
Dá um select que retorne o Max do campo que vc grava essa informação

Tipo assim:
Select Max(Pasta) from tblPastas
USUARIO.EXCLUIDOS 06/09/2007 10:27:59
#234421
Desculpe mais estou começando agora...
Como ficaria o codigo :)
USUARIO.EXCLUIDOS 06/09/2007 10:30:17
#234422
Gmancine, coloque a estrutura do seu Banco de dados e como vc estpa fazendo apra criar as pastas para podermos alterar
USUARIO.EXCLUIDOS 06/09/2007 10:34:20
#234424
Public Conexao As ADODB.Connection
Private Sub Command1_Click()
Fecha = MsgBox("OBS: Antes de Sair Abilite a OPÇÃO (ULTIMA PASTA CADASTRADA) do (ULTIMO PROCESSO DIGITADO)", vbYesNo, "Prodig - Sistema Unico de Digitação")
If Fecha = vbNo Then
Exit Sub
Else
Unload Me
End If
End Sub
Private Sub Form_Load()
   txtlocalizacao.AddItem "SAF 1 - ROSA"
   
    txtsituacao.AddItem "EM ANDAMENTO"
    txtsituacao.AddItem "EXTINTO"
    txtsituacao.AddItem "OUTRA..."
    
    Fecha = MsgBox("Antes de inserir uma nova pasta CLIQUE no BOTAO ULTIMO e desmarque a opção ULTIMA PASTA CADASTRADA", vbYes, "Prodig - Sistema Unico de Digitação")
End Sub

Private Sub cmdante_Click()
If dbprocesso.Recordset.BOF Then
Else
    dbprocesso.Recordset.MovePrevious
End If
End Sub

Private Sub cmdPri_Click()
If dbprocesso.Recordset.EOF And dbprocesso.Recordset.BOF Then
Else
    dbprocesso.Recordset.MoveFirst
End If
End Sub

Private Sub cmdpro_Click()
If dbprocesso.Recordset.EOF Then
Else
    dbprocesso.Recordset.MoveNext
End If
End Sub

Private Sub cmdUlt_Click()
If dbprocesso.Recordset.BOF And dbprocesso.Recordset.EOF Then
Else
    dbprocesso.Recordset.MoveLast
End If
End Sub

Private Sub cmddel_Click()
resposta = MsgBox("Confirmar a deletação ?", 36, "Prodig - Sistema Unico de Digitação")
If resposta = 7 Then
    Exit Sub
Else
    If dbprocesso.Recordset.BOF Or dbprocesso.Recordset.EOF Then
        resposta = MsgBox("Não há casdastro para ser deletado!", vbCritical, "Prodig - Sistema Unico de Digitação")
    Else
        dbprocesso.Recordset.Delete
        dbprocesso.Recordset.MoveNext
    End If
End If
End Sub

Private Sub CmdNovo_Click()
dbprocesso.Recordset.AddNew
cmdNovo.Enabled = True
cmdSalvar.Enabled = True
cmdedit.Enabled = False
txtidcodigo.Enabled = False
txtcodigo.Enabled = True
txtnome.Enabled = True
txtcadastro.Enabled = True
txtprocesso.Enabled = True
txtlocalizacao.Enabled = True
txtsituacao.Enabled = True
txtnumerodapasta.Enabled = True
End Sub

Private Sub cmdSalvar_Click()
dbprocesso.Recordset.Update
cmdNovo.Enabled = True
cmdSalvar.Enabled = False
cmdedit.Enabled = True
cmdDel.Enabled = True
txtidcodigo.Enabled = False
txtcodigo.Enabled = False
txtnome.Enabled = False
txtcadastro.Enabled = False
txtprocesso.Enabled = False
txtlocalizacao.Enabled = False
txtsituacao.Enabled = False
txtnumerodapasta.Enabled = False
End Sub

Private Sub cmdedit_Click()
dbprocesso.Recordset.Edit
cmdNovo.Enabled = False
cmdSalvar.Enabled = True
cmdedit.Enabled = True
cmdDel.Enabled = False
txtidcodigo.Enabled = False
txtcodigo.Enabled = True
txtnome.Enabled = True
txtcadastro.Enabled = True
txtprocesso.Enabled = True
txtlocalizacao.Enabled = True
txtsituacao.Enabled = True
txtnumerodapasta.Enabled = True
End Sub

Private Sub tmrControl_Timer()
lblHoras.Caption = Time$
End Sub
USUARIO.EXCLUIDOS 06/09/2007 10:34:23
#234425
Como faz a conexão no Banco de dados??
Dao?? Ado??

QUal é o banco de dados??
Access? SQL Server? MySQL?


Passe mais informações para que possamos lhe indicar de como fazer...
USUARIO.EXCLUIDOS 06/09/2007 10:36:03
#234426
dbprocesso é um objeto Data ??
USUARIO.EXCLUIDOS 06/09/2007 10:36:15
#234427
Estou fazer a conexão por ADO
E uso a banco de dados do ACCESS
USUARIO.EXCLUIDOS 06/09/2007 10:37:14
#234428
é SIM
USUARIO.EXCLUIDOS 06/09/2007 10:44:13
#234430
?
USUARIO.EXCLUIDOS 06/09/2007 11:01:46
#234434
Tenta isso...

ex:

Do while not tabcadastro.eof
ULTIMA PASTA CADASTRADA.text=tabcadastro("cod")
tabcadastro.MoveNext
loop
Página 1 de 2 [14 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar