ZERO

ROBSONSLZ 12/09/2015 10:33:05
#451326
Olá Pessoal,
Qual seria o procedimento para colocar na rotina o ZERO A ESQUERDA?


[ô](Próximo Registro)
[ô](Registro com zero a esquerda)

‘Declarations
Dim ProxCodi As Integer

Private Sub CmdCadastro_Click()
‘.....
Prox_Codigo
‘....
End Sub

Private Sub Form_Load()
‘.....
Prox_Codigo
‘....
End Sub

Sub Prox_Codigo()
Dim vTamTab As String
Dim X As Integer
If Rst.RecordCount = 0 Then
LblCodigo.Caption = 1
Exit Sub
Else
Rst.MoveFirst
vTamTab = Rst.RecordCount
For X = 1 To vTamTab
If Rst!CodiMat <> X Then
Exit For
End If
Rst.MoveNext
Next X
LblCodigo.Caption = X
End If
End Sub

Grato,
LOOKSYSTEM 12/09/2015 10:49:51
#451327
Dim nProximoCodigo as integer, xProximoCodigo as string

nProximoCodigo = 1
xProximoCodigo = format(nProximoCodigo,[Ô]00000[Ô])
ROBSONSLZ 12/09/2015 11:32:26
#451329
Citação:

:
Dim nProximoCodigo as integer, xProximoCodigo as string

nProximoCodigo = 1
xProximoCodigo = format(nProximoCodigo,[Ô]00000[Ô])




não deu... o zero a esquerda.
TUNUSAT 12/09/2015 12:13:40
#451330 Resposta escolhida
ROBSONSLZ,

Não é possível colocar zeros à esquerda em tipos numéricos. Veja:
==============================================
Use the FormatNumber function in Visual Basic 6
http://www.vb-helper.com/howto_formatnumber.html
==============================================

Mas é possível em Strings (Formatting Symbols):
==============================================
VB format syntax
http://apostate.com/programming/vb-format-syntax.html
==============================================

Exemplo, coloque no menu [Ô]Imediate[Ô] (Ctrl+G):
? format(1,[Ô]00000[Ô])

O resultado será: 00001

Veja mais em:
==============================================
Visual Basic 6.0 Reference
http://vb6reference.tomswebdesign.net/format.html
==============================================

[][ô]s,
Tunusat.
ROBSONSLZ 12/09/2015 13:43:02
#451334
Citação:

:
ROBSONSLZ,

Não é possível colocar zeros à esquerda em tipos numéricos. Veja:
==============================================
Use the FormatNumber function in Visual Basic 6
http://www.vb-helper.com/howto_formatnumber.html
==============================================

Mas é possível em Strings (Formatting Symbols):
==============================================
VB format syntax
http://apostate.com/programming/vb-format-syntax.html
==============================================

Exemplo, coloque no menu [Ô]Imediate[Ô] (Ctrl+G):

? format(1,[Ô]00000[Ô])

O resultado será: 00001

Veja mais em:
==============================================
Visual Basic 6.0 Reference
http://vb6reference.tomswebdesign.net/format.html
==============================================

[][ô]s,
Tunusat.



#Tunusat: O gerador de codigo (prox_codigo) gera as numerações dentro da (Label) [Ô]LblCodigo[Ô]. Sem o zero a esquerda.

O imediate: ? Format funciona na label?

Grato.
TUNUSAT 12/09/2015 22:43:56
#451337
ROBSONSLZ,

Funciona sim! Use assim no [Ô]Imediate[Ô]:
? format(LblCodigo,[Ô]00000[Ô])


[][ô]s,
Tunusat.
ROBSONSLZ 13/09/2015 09:06:01
#451344
Citação:

:
ROBSONSLZ,

Funciona sim! Use assim no [Ô]Imediate[Ô]:

? format(LblCodigo,[Ô]00000[Ô])


[][ô]s,
Tunusat.



#Tunusat:

Não aparece o zero a esquerda.
?Format(LblCodigo,[Ô]00000[Ô])

Grato,
ROBSONSLZ 13/09/2015 10:57:32
#451345
Citação:

:
ROBSONSLZ,

Funciona sim! Use assim no [Ô]Imediate[Ô]:

? format(LblCodigo,[Ô]00000[Ô])


[][ô]s,
Tunusat.



Troquei o lblCodigo (Label) por txtCodi (Textbox)...

Deu certo... (no cadastro) 0001, 0002 etc...

No DB: tabela alimentando correto.

Na Consulta: (do form) Mostrando como codigo 1, 2 etc...
DataGrid1.Columns(0).Caption = [Ô]Código[Ô]
DataGrid1.Columns(0).? (Qual seria para a DataGrid1 mostrar o codigo correto?)

Grato,
Tópico encerrado , respostas não são mais permitidas
Voltar