Como fazer para não substituir a figura?

[nilck 0]

Olá pessoal.. preciso da ajuda de vcs.. tenho um código para salvar a figura gerada num picture.. mas preciso variar o nome da figura para quando gerar a proxima não venha substituir.. e sim criar uma outra figura.. entenderam? aí vai o trecho de código.. mto obrigado!

Private Sub CMD_salvar_Click()sarg = Text1.Textutili.FindFirst "numcad = '" & sarg & "'"If utili.NoMatch Then    utili.AddNew    Call SavePicture(Picture1.Image, "c:\cod\figura0.jpg")    utili!imgeti = ("c:\cod\figura0.jpg")    utili!numcad = Text1.Text    utili.Update    MsgBox "cadastrado!"ElseMsgBox "Etiqueta já utilizada!"'eti.AddNew'SavePicture Picture1.Image("c:\cod")'eti!imagem = App.Path & n'eti.Update'MsgBox "cadastrado!"End If

[Claudio Neto 3]

Olá pessoal.. preciso da ajuda de vcs.. tenho um código para salvar a figura gerada num picture.. mas preciso variar o nome da figura para quando gerar a proxima não venha substituir.. e sim criar uma outra figura.. entenderam? aí vai o trecho de código.. mto obrigado!

Private Sub CMD_salvar_Click()sarg = Text1.Textutili.FindFirst "numcad = '" & sarg & "'"If utili.NoMatch Then    utili.AddNew    Call SavePicture(Picture1.Image, "c:\cod\figura0.jpg")    utili!imgeti = ("c:\cod\figura0.jpg")    utili!numcad = Text1.Text    utili.Update    MsgBox "cadastrado!"ElseMsgBox "Etiqueta já utilizada!"'eti.AddNew'SavePicture Picture1.Image("c:\cod")'eti!imagem = App.Path & n'eti.Update'MsgBox "cadastrado!"End If

A figura é capturada de onde? De algum banco de dados??Você pode digitar o nome da figura na hora? se puder:Call SavePicture(Picture1.Image, "c:\cod\" & text1.text & ".jpg")Se a figura estiver sendo capturada de algum banco de dados, e não puder alterar o nome na hora:Call SavePicture(Picture1.Image, "c:\cod\figura" & eti.absolutposition & ".jpg")Abraços...

[nilck 0]

Consegui!! obrigado