Witaj Gościu! ( Zaloguj | Rejestruj )

Forum PHP.pl

 
Reply to this topicStart new topic
> [Access]resetowanie autonumerowania
swiru_
post 19.04.2012, 10:45:04
Post #1





Grupa: Zarejestrowani
Postów: 63
Pomógł: 0
Dołączył: 1.10.2009

Ostrzeżenie: (0%)
-----


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...
Go to the top of the page
+Quote Post
phpion
post 19.04.2012, 10:54:22
Post #2





Grupa: Moderatorzy
Postów: 6 070
Pomógł: 860
Dołączył: 10.12.2003
Skąd: Dąbrowa Górnicza




Przenoszę do odpowiedniego działu.
Go to the top of the page
+Quote Post

Reply to this topicStart new topic
1 Użytkowników czyta ten temat (1 Gości i 0 Anonimowych użytkowników)
0 Zarejestrowanych:

 



RSS Wersja Lo-Fi Aktualny czas: 16.04.2024 - 17:07