[es] - Pomoc da polje autonumber pocinje npr. od 100?

obradorriuss
Nikola Obradovic
Novi Sad

Član broj: 30270
Poruke: 166
*.ptt.yu.

ICQ: 329831125
Sajt: www.printeks.co.yu

Profil

Pomoc da polje autonumber pocinje npr. od 100?

^{10.08.2004. u 15:09}

Kako da mi polje tipa autonumber pocinje od 100 npr? Mozete li mi pomoci i oko coda u VB6 koji omogucava da ukoliko imam zapise 1,2,3,4,5 i obrisem zapis br. 5, sledeci zapis bude 5 a ne 6 kao sto autonumber dodeli???? hvala

Ko svashta, taj neshto!!! Ko neshto, taj nishta!!!
.: www.printeks.co.yu :. .: http://042.printeks.co.yu :.

^{10.08.2004. u 15:09}

istok
Nikola Raonic

Član broj: 16032
Poruke: 13
*.193.EUnet.yu

Profil

Re: Pomoc da polje autonumber pocinje npr. od 100?

^{11.08.2004. u 21:55}

Ovo sam nasao skoro... Ti bre covece kao da radis moju aplikaciju, ha, ha...
Evo ti ovo pa se snalazi.

Function setRecordID(strObject As String, strField As String)
Dim myWS As DAO.Workspace
Dim mydb As DAO.Database
Dim myRS As DAO.Recordset
On Error GoTo err_setRecordID

Set myWS = DBEngine(0)
Set mydb = CurrentDb
Set myRS = mydb.OpenRecordset(strObject, dbOpenDynaset)

myWS.BeginTrans
' Do bulk changes to Recordset.
With myRS
.MoveFirst
Do While Not .EOF
.Edit
.Fields(strField) = .AbsolutePosition + 1
.Update
.MoveNext
Loop
End With
' If all updates done successfully, commit the transaction.
myWS.CommitTrans
Exit Function

err_setRecordID:
Select Case Err.Number
Case 3078
'invalid Object name
MsgBox "invalid Object name."
Case Else
'If any error occur while making the updates
'all of the changes will be rolled back (not saved).
MsgBox "Start the function again, updating problems."
myWS.Rollback
End Select

Exit Function

End Function

Guys, I tried it out and it works so fine.
Notes:
1) strObject could be a local, linked table, query, or an SQL statement.
2) StrField is the name of the field you want to autonumbered
3) If you use Access 97, please remove “DAO.” From the beginning of the function
Syntax:
Here’s some examples of using the function…
setRecordID( “Table1”, “Field1”)
setRecordID(“Query1”, “Field1”)
setRecordID(“SELECT * FROM table1”, “Field1”)

Disadvantage:
I encountered one disadvantage that you have to run this function after every time you add or delete records from your table.

^{11.08.2004. u 21:55}

obradorriuss
Nikola Obradovic
Novi Sad

Član broj: 30270
Poruke: 166
*.ptt.yu

ICQ: 329831125
Sajt: www.printeks.co.yu

Profil

Re: Pomoc da polje autonumber pocinje npr. od 100?

^{12.08.2004. u 21:01}

Ljudi problem je resen pomocu Append querija!!!!!

Ko svashta, taj neshto!!! Ko neshto, taj nishta!!!
.: www.printeks.co.yu :. .: http://042.printeks.co.yu :.

^{12.08.2004. u 21:01}