|
|
Postada em 09/01/2005 16:15 hs
Por favor, Minha tabela parou de contar os registro, exemplo: TBVENDAS!CODIGO, CHEGOU NUM DERTEMINADO NÚMERO E NÃO GERA O PROXIMO NÚMERO. ESTOU USANDO ESSA ROTINA PARA CONTAR REGISTRO E GERA O NOVO CODIGO: Sub CONTADOR()
Dim cont As Double
cont = 0
cont = TBVENDA.RecordCount
If cont <= 0 Then
cont = cont + 1
Else
TBVENDA.MoveMax
cont = TBVENDA!CODIGO + 1
End If
Text1 = Format(cont, "#0")
End Sub Por favor me ajude |
|
|
|
|
|
|
|
Postada em 09/01/2005 16:26 hs
Como Assim??? A o campo esta formatado com Autonumeração??? Se estiver, só vai ate o limite do tipo LONG Qual é o utlimo numero gerado???
Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net
e-mail/msn: elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
 "O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)
|
|
|
|
|
|
Postada em 09/01/2005 16:29 hs
Li com mais calma e acho que encontrei o seu problema: Sua contagem vai so até 99??? Da uma olhada na mascara que vc usa: Format(Cont, "#0") ela so permite duas casas. O numero de caracteres na mascara é o limite de caracteres que vc permite usar... troca por algo tipo "###,##0", com ou sem a virgula (lembrando que a virgula é o separador de milhares em Ingles)... ai vai até o 999.999... Acho que é isso... testa ai...
Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net
e-mail/msn: elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
"O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)
|
|
|
|
kerplunk
|
SÃO PAULO
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 10/01/2005 08:28 hs
Se estiver usando o ADO o comando MoveMax não é adequado, use o MoveL a s t. |
|
TÓPICO EDITADO
|
|
|
|
|
|
Postada em 10/01/2005 18:10 hs
Obrigado caro colega Elieser Carlos Topassi
vou tentar, caso não consigo, volto te procura. |
|
|
|
|
|
Postada em 10/01/2005 19:44 hs
Kerplunk, Ele deve ter digitado M O V E L A S T, mas o site nao permite, troca por M O V E M A X para evitar "espertinhos" tentando passar scripts aqui... já tive problemas com isso, acho que todos ja se acostumaram a ler M O V E M A X e entender M O V E L A S T ... Carlos, Acho que isso resolve o seu problema sim... QQ coisa, fala ai...
Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net
e-mail/msn: elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
"O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)
|
|
|
|
