|
|
Postada em 12/07/2007 11:47 hs
estou fazendo um mini programa pra imprimi envelope, estou usando o Crystal Report 4.5 pra imprimir "ja esta ponto". como e faço pra eu gravar em banco de dado numerico 000.001....
eu fez assim..
Set Banco = New ADODB.Connection
Banco.ConnectionString = "Provider = Microsoft.jet.OLEDB.4.0; Data Source = " & App.Path & "ew.mdb"
Banco.Open
Rs_New.Open "envelope", Banco, 1, 3
Rs_New.MoveMax Key = txt_new_som.Text
For i = 1 To Rs_New.Fields("bd_new_cod") + Key ' nesta linha ele abrir o ultimo numero do bd e soma + txt_new_som.text
Rs_New.AddNew
Rs_New.Fields("bd_new_cod") = Format(i, "#######000,000")
Rs_New.Fields("bd_new_dat") = Format(Date, "dd/mm/yyyy")
Rs_New.Fields("bd_new_hor") = Format(Time, "hh:mm:ss")
Rs_New.Update
Next i
Rs_New.Close
Key = 0
Private Sub txt_new_som_Change()
lbl_new_atu.Caption = Format(txt_new_som + lbl_new_pro, "######000000")
End Sub
For i = 1 To Rs_New.Fields("bd_new_cod") + Key nesta linha que não dar certo ele deveria trazer o ultimo numero da bd e somar + txt_new_som.Text
|
|
|
|
|
|
Edson479
|
SÃO PAULO
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 12/07/2007 12:29 hs
problema resolvedo, fez assim
Key = txt_new_som.Text
For i = Key To Rs_New.Fields("bd_new_cod")
Rs_New.AddNew
Key = Key + 1
Rs_New.Fields("bd_new_cod") = Format(Key, "#######000,000")
Rs_New.Fields("bd_new_dat") = Format(Date, "dd/mm/yyyy")
Rs_New.Fields("bd_new_hor") = Format(Time, "hh:mm:ss")
Rs_New.Update
Next i
Rs_New.Close
|
|
|
|
|
|
Postada em 12/07/2007 12:40 hs
rsrsrs, não deu, ele so soma + um |
|
|
|
JSFF
|
SÃO PAULO
SP - BRASIL
|
|
Postada em 12/07/2007 14:49 hs
Boa tarde, amigo. Acho que seu código deve ficar assim: ... Key1 = Val(txt_new_som.Text)
Key2 = Rs_New.Fields("bd_new_cod") For i = Key1 To Key2
Key2 = Key2 + i
Rs_New.AddNew
Rs_New.Fields("bd_new_cod") = Format(Key2, "#######000,000")
Rs_New.Fields("bd_new_dat") = Format(Date, "dd/mm/yyyy")
Rs_New.Fields("bd_new_hor") = Format(Time, "hh:mm:ss")
Rs_New.Update
Next i ... se é que entendi... JSFF |
|
TÓPICO EDITADO
|
|
|
|
|
|
Postada em 13/07/2007 12:34 hs
JSFF, obrigado com sua dica deu certo so fez uma modança, obrigado key1 = Val(txt_new_som.Text)
For i = 1 To key1
Key2 = Rs_New.Fields("bd_new_cod") 'mundaça
Rs_New.AddNew
Rs_New.Fields("bd_new_cod") = Format(Key2 + 1, "#######000,000")
Rs_New.Fields("bd_new_dat") = Format(Date, "dd/mm/yyyy")
Rs_New.Fields("bd_new_hor") = Format(Time, "hh:mm:ss")
Rs_New.Fields("bd_new_imp") = "Não"
Rs_New.Update
Next i
|
|
|
|
|
