[Resolvido]FUNÇÃO FORMAT

Estou precisando gravar um codigo global para identificar um produto.

Esse código precisa unir duas informações e o número 05001

Os campos que preciso unir são:

cod: 1015(exemplo)
num : 2 (exemplo)

e o codglobal deveria ficar: 10150205001.

Ao clicar o botão de gravar, a instrução para gravar o codigo global(além das outras) que eu tentei é:

rs!codglobal = format(me!cod & "0" & me!num, "######05001") - Só que quando tento dessa forma, gera 10155012: 1015 - 501(desaparece 1 zero) e 2(no final, eu quero ele na sexta posição).


Também tentei o:

rs!codglobal = me!cod & 0 & me!num & 05001 - mas dá o seguinte erro: 'Erro em tempo de execução 3241 - Data type conversion error.'

rs!codglobal = me!cod & 0 & Me!num & 0 & 5001 - com os números com aspas ou sem aspas dá o mesmo erro!!


Alguém já passou por algo parecido?

Talvez assim:

rs!global = Me.cod & Format(me.num, "00") & "05001"

criquio,

não deu certo de novo!

Na verdade, eu tô puxando de uma tabela para outra:

rsPara!codglobal = rsDe!cod & Format(Me.num, "00") & "05001"

pq são quase 1000 códigos e o que varia são os valores de "num". Mas a tabela destino só tá gravando ate 215, depois dá o mesmo erro. O tipo de dados na TabelaDestino para codglobal está como número. Se eu gravar como texto, dá certo. Mas preciso que o BD reconheça esses valores como número.

Obrigado!

Poste a função completa que está usando. Diga tambem se os campos envolvidos estão como número nas duas tabelas.

A instrução no botã gravar é esta aí:


Dim db As DAO.Database
Dim rsDe As DAO.Recordset, rsPara As DAO.Recordset

strsql = "SELECT * FROM Tblproduto"
Set db = CurrentDb()
Set rsDe = db.OpenRecordset(strsql)
Set rsPara = db.OpenRecordset("Tblcodigo")

Do Until rsPara.EOF
If (Me!num= rsPara!num) And (rsDe!produto = rsPara!produto) Then
MsgBox "Existem produtos já gravados na seleção", vbCritical, "CADASTRO DE PRODUTOS"

Exit Sub
Else
rsPara.MoveNext
End If
Loop
If MsgBox("Confirma Implantação de " & DCount("*", "Tblproduto") & " registros ?", vbExclamation + vbYesNo, "OPERAÇÕES DE SISTEMA") = vbNo Then
DoCmd.CancelEvent

Else

Do While Not rsDe.EOF

rsPara.AddNew
rsPara!cod = rsDe!cod
rsPara!nome = rsDe!nome
rsPara!num = Me!num
rsPara!cadastrado_por = "sistema"
rsPara!codglobal = rsDe!cod & Format(Me.num, "00") & "05001" teste 1 - se o tipo de dados na tabela for TEXTO, ai dá certo
'rsPara!codglobal= Format(rsDe!cod & "0" & Me!num, "#####05001") - teste 2
'rsPara!codglobal = Format(rsDe!cod, "0000") & Format(Me.num, "00") & "05001" - o que você me sugeriu

rsPara.Update
rsPara.AddNew
rsDe.MoveNext
Loop

rsDe.Close
rsPara.Close
Set rsDe = Nothing
Set rsPara = Nothing
Set db = Nothing

End If

Faltou informar se os campos estão no formato Número em ambas tabelas.

Sim,

nas duas tabelas o campo cod está no formato número e no formulario que eu "puxo" os valores 1,2 e 3 tb está no formato número.

Tente retirando as aspas do último número:

Código:

rsPara!codglobal = rsDe!cod & Format(Me.num, "00") & 05001

e/ou convertendo para inteiro:

Código:

rsPara!codglobal = CInt(rsDe!cod & Format(Me.num, "00") & 05001)

valeu, Criquio

mas a 1a. eu já havia usado e a 2a. informa outro erro: '6 - sobrecarga'

eu vou manter em formato texto mesmo!

Tem outra maneira de manter o 05001 padronizado?


Se não houver, vamos ter o tópico como resolvido!

Agradeço sua atenção!!!

Padronizado como? Ele já não está no formato que terá que ficar?

depois do rsDe!cod & Format(Me.num, "00")

Não entendi. Na função ele já está depois disso aí.

Deixei em formato texto mesmo.

Obrigado pelas sugestões.

Então está resolvido? Se sim, só faltou clicar no botão Resolvido.

RESOLVIDO

Grato pelo retorno. O fórum agradece.