Czym zajmuje się KAMIENIARSTWO ?
Temat: Klucz podstawowy - wartości przyrostowe
...Set db = Nothing TRA_GetNextID = intRet Exit Function TRA_GetNextId_Error: Select Case Err Case 75, 3186, 3197, 3260 intLockCount = intLockCount + 1 If intLockCount MAX_LOCK_COUNT Then intRet = False Resume TRA_GetNextId_Exit Else DoEvents DBEngine.Idle DB_FREELOCKS lngWait = intLockCount ^ 2 * Int(Rnd * 20 + 5) For lngX = 1 To lngWait DoEvents Next lngX Resume End If Case Else intRet = False Call Lib_Error_ErrHandler("TRA_GetNextId()", Err, Error$, _ ...
Źródło: topranking.pl/1248/klucz,podstawowy,wartosci,przyrostowe.php
