Pomoc - Szukaj - Użytkownicy - Kalendarz
Pełna wersja: [Access]resetowanie autonumerowania
Forum PHP.pl > Forum > Bazy danych > Access
swiru_
Witam mam pewien problem - odrazu mowie ze z accessem wiem tyle ze to baza danych ;]

uzywamy access 2000


W firmie sa jakies tam zamowienia i jest zrobiony w accesie formularz do nadawania specyfikacji na dane zamowienie przy kazdym dodaniu specyfikacji nadawany jest nume ID secyfikacji ktory jest nadawany automatycznie. Numerowanie zatrzymalo sie na num 1441 i kolejny numer nadaje sie tak: 871E+04

jedyne rozwiazanie jakie znalazlem to cos takiego:

  1. Function ChangeSeed(strTbl As String, strCol As String, lngSeed As Long) As Boolean
  2. 'You must pass the following variables to this function.
  3. 'strTbl = Table containing autonumber field
  4. 'strCol = Name of the autonumber field
  5. 'lngSeed = Long integer value you want to use for next AutoNumber.
  6.  
  7. Dim cnn As ADODB.Connection
  8. Dim cat As New ADOX.Catalog
  9. Dim col As ADOX.Column
  10.  
  11. 'Set connection and catalog to current database.
  12. Set cnn = CurrentProject.Connection
  13. cat.ActiveConnection = cnn
  14.  
  15. Set col = cat.Tables(strTbl).Columns(strCol)
  16.  
  17. col.Properties("Seed") = lngSeed
  18. cat.Tables(strTbl).Columns.Refresh
  19. If col.Properties("seed") = lngSeed Then
  20. ChangeSeed = True
  21. Else
  22. ChangeSeed = False
  23. End If
  24. Set col = Nothing
  25. Set cat = Nothing
  26. Set cnn = Nothing
  27.  
  28. End Function


ale nic to nie daje...

czy ktos jest w stanie mi podpowiedziec??

teoretycznie wyglada to tak jak by nie nadawal liczby calkowitej tylko jakas zmiennoprzecinkowa.... usuwam ostatnie rekordy z tymi liczbami, czyli zostawiam tylko te ktore sa nimy dobre, w formularzu ustawilem pole id na liczbe stala bez miejsc dziesietnych i dalej jest to samo...
phpion
Przenoszę do odpowiedniego działu.
To jest wersja lo-fi głównej zawartości. Aby zobaczyć pełną wersję z większą zawartością, obrazkami i formatowaniem proszę kliknij tutaj.
Invision Power Board © 2001-2021 Invision Power Services, Inc.