Início
PPTT 25/6/2011, 17:05Esqueci-me de retirar o resolvido,
A mensagem está em cima.
Cumprimentos
A mensagem está em cima.
Cumprimentos
4 participantes
[Resolvido]Impressão de dados ordenados por página
PPTT- Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 308
Registrado : 18/05/2011
.................................................................................
Este lugar é o ceú
PPTT- Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 308
Registrado : 18/05/2011
O erro é "Run-time error '6' Overflow"
Cumprimentos
Cumprimentos
.................................................................................
Este lugar é o ceú
PPTT- Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 308
Registrado : 18/05/2011
Olá dei com o gato,
Era por causa do CampoTexto como é string só admite 32.768 registos,
então alterei o seu código para:
Dim Rst1 As DAO.Recordset, Rst2 As DAO.Recordset, I As Long
Dim Salto As Long, UltimoRegisto As Long, Sair As Boolean
e com a TabelaDestino criei a consulta TabelaDestino1 onde alterei
o CampoTexto para CampoTexto1:[CampoTexto] e Formatei para "Padrão".
Abraço e obrigado
Era por causa do CampoTexto como é string só admite 32.768 registos,
então alterei o seu código para:
Dim Rst1 As DAO.Recordset, Rst2 As DAO.Recordset, I As Long
Dim Salto As Long, UltimoRegisto As Long, Sair As Boolean
e com a TabelaDestino criei a consulta TabelaDestino1 onde alterei
o CampoTexto para CampoTexto1:[CampoTexto] e Formatei para "Padrão".
Abraço e obrigado
.................................................................................
Este lugar é o ceú
Conteúdo patrocinado