Prezados colegas, meus arquivos gravados são armazenados no banco de dados pela ordem da gravação. Como eu devo proceder para que, no evento <Load> do form, os registros fiquem em ordem? (já tentei diversas instruções em SQL, mas, como sempre utilizei SQL em projects com acesso à base de dados via DataControl, não sei como fazer em DAO (minha versão do VB é a 5). Agradeço alguma ajuda. Chico.
Private Sub Form_Load()
Set BancoDeDados = OpenDatabase(App.Path & "Contribuinte.mdb")
Set Tabela = BancoDeDados.OpenRecordset("Fisica", dbOpenTable)
Tabela.Index = "CPF"
cmdGravar.Enabled = False
Frame1.Enabled = False
If Tabela.EOF = False Then
AtualizaFormulario
End If
Label9.Caption = "Contribuintes cadastrados: " & Tabela.RecordCount
End Sub
Private Sub cmdGravar_Click()
cmdIncluir.Enabled = True
cmdAlterar.Enabled = True
cmdConsultarCPF.Enabled = True
cmdExcluir.Enabled = True
cmdAnterior.Enabled = True
cmdProximo.Enabled = True
cmdGravar.Enabled = False
cmdSair.Enabled = True
Frame1.Enabled = False
AtualizaCampos
Tabela.Update
Label9.Caption = "Contribuintes cadastrados: " & Tabela.RecordCount
End Sub
Private Function AtualizaFormulario()
On Error Resume Next
txtNome = Tabela("Nome")
txtEndereço = Tabela("Endereço")
txtCidade = Tabela("Cidade")
cmbAnoBase = Tabela("Ano_Base")
txtUnidade = Tabela("URF")
txtArquivo = Tabela("Caixa")
mskCPF = Tabela("CPF")
End Function
Private Sub cmdIncluir_Click()
If MsgBox("Confirma a inclusão de novo registro?", vbYesNo, "Inclusão de novo registro") = vbNo Then
Exit Sub
cmdAnterior_Click
End If
Tabela.AddNew
cmdIncluir.Enabled = False
cmdAlterar.Enabled = False
cmdConsultarCPF.Enabled = False
cmdExcluir.Enabled = False
cmdAnterior.Enabled = False
cmdProximo.Enabled = False
cmdGravar.Enabled = False
cmdSair.Enabled = True
LimpaFormulario
Frame1.Enabled = True
txtNome.SetFocus
End Sub