Alexandre Neves- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 8496
Registrado : 05/11/2009
Alexandre Neves 28/6/2013, 19:03
Boa tarde, jsnet, e bem-vindo ao fórum
Crie uma tabela com campo Numero (do tipo número) e utilize o código seguinte na origem da cxc
Private Sub CxcNome_Enter()
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' '
' código criado por Alexandre Neves, do Fórum MaximoAccess '
' o código pode ser utilizado livremente, desde que mencionado este cabeçalho '
' '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'em 2013-06-28 para jsnet
Dim Rst As DAO.Recordset, I As Integer
CurrentDb.Execute "DELETE Numero FROM Tabela"
Set Rst = CurrentDb.OpenRecordset("SELECT * FROM Tabela")
For I = 1 To TxtNumeracao
Rst.AddNew
Rst(0) = 1
Rst.Update
Next
Rst.Close
Set Rst = Nothing
CxcNome.RowSource = "SELECT Numero FROM Tabela ORDER BY Numero;"
End Sub
.................................................................................
Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo