zxz 01.12.2011 14:38
Predmet:Re: Error 3045, Could Not Use *** File Alreadu in Use

Cekaj na ovom kodu ti nemoze stati jer na pocetku pise on error resume next.

pmiroslav 01.12.2011 14:24
Predmet:Re: Error 3045, Could Not Use *** File Alreadu in Use

Ja se bojim da je u nečemu drugom problem. Evo sada sam napravio novu potpuno praznu formu i na OnLoad stavio isti Kod. I opet problem
Prilozi:
slika5.jpg (Velicina datoteke:166.96 KB)

pmiroslav 30.11.2011 12:34
Predmet:Error 3045, Could Not Use *** File Alreadu in Use

Access baza radi u mreži znači imam FE i BE, do nedavno je sve radilo kako treba i sada sam odjednom počeo imati problem kod linkovanja tablica, baza se ne može spojiti na back end uz poruku kao u naslovu.
U mreži rade tri korisnika.

zxz 30.11.2011 13:14
Predmet:Re: Error 3045, Could Not Use *** File Alreadu in Use

Neznam dali bi se mogao zakaciti primjer.
Ovako je tesko reci.
Mozda pobrisati podatke iz tablica odnosno ostaviti mozda samo po par redova.
U svakom slucaju to bi morao i probati poslije na svojoj masini pa ako opet pravi gresku zakaciti.

Ako je ovo problem izvesti javi pa cemo pokusati nesto.

zxz 30.11.2011 13:37
Predmet:Re: Error 3045, Could Not Use *** File Alreadu in Use

Da pokusamo nesto dokuciti:
Znaci ovako imas bazu mdb na nekom compu.
Imas app mde na ostalim masinama.
Sada kada pokrenes app sa jedne masine to je ok.
Kada krenes pokretati sa druge masine pojavi se ova greska.

Jesam li ovo dobro opsiaso.

zxz 30.11.2011 13:49
Predmet:Re: Error 3045, Could Not Use *** File Alreadu in Use

Evo ovako napamet.
Pobrisati ldb file ako ga ima na lokalitetu baze.
Provjeriti u opcijama dali je baza dijeljena
Prekopirati bazu negdje za rezervu pa na orginalnoj uraditi compake i repair.
Ukoliko i dalje nece onda:
Pobrisati linkove na bazu te ponovo ih napraviti.
Ako i to nece:
Napraviti novu praznu bazu tte importovati podatke.

pmiroslav 30.11.2011 14:08
Predmet:Re: Error 3045, Could Not Use *** File Alreadu in Use

Hvala na savjetima, pokuÅ¡at ću to sutra uraditi jer sada sam u gužvi.
Baza koja mi pravi probleme je u prilogu ali je dosta reducirana
Prilozi:
skladiste.rar (Velicina datoteke:237.04 KB)

zxz 30.11.2011 14:42
Predmet:Re: Error 3045, Could Not Use *** File Alreadu in Use

Ja sam rucno pobrisao linkove i ponovo postavio i sve radi, hocu reci ne pojavljuje se greska.
Auto link tvoj kod nisam mogao pokrenutu odnosno ne radi.
Malo sam pogledao ali ima tu mnogo gresaka.
1. debug.print Var. --->Naredba koja nista ne radi. U stvari ispisuje var u imediate prozor.
Prilikom relinka ne upisuje putanju u lokalnu tabelu odakle cita putanju.
Ovo si mogao citati iz sys tabele jer tamo stoji zadnji link.

Nemam sad vremena da sve pregledam.
Ovo sam samo povrsno pregledao.
Refres link cini mi se imas na forumu.

pmiroslav 30.11.2011 17:12
Predmet:Re: Error 3045, Could Not Use *** File Alreadu in Use

Ni meni se ne javlja greška kada je FE i BE na istom kompjuteru pa i kada su u mreži, a linkovan je samo jadan korisnik.
Primjetio sam da je problem kada je aplikacija Skladište_FE otvorena na jednom kompjuteru i za to vrijeme se na drugom kopjuteru pokuša uspostaviti link.
Auto link sam pronašao negdje na netu i samo ga prepisao i donedavno mi je radio, a sada i kod mene nešto šteka iako tu nisam ništa mjenjao.

pmiroslav 01.12.2011 10:02
Predmet:Re: Error 3045, Could Not Use *** File Alreadu in Use

Danas sam primjeti da se slijedeće greÅ¡ke događasju samo na mom kompjuteru dok je na ostalima u redu.
Na startnoj formi na OnLoad pozivam funkciju koja prilagođava veličinu forme rezoluciji monitora
Private Sub Form_Load()
ReSizeForm Me
End Sub

i tada idu slijedeće funkcije:
PreuzmiIzvorni kôd (vbnet):
  1. '---------------------------------------------------------------------------------------
  2. ' Procedure : ReSizeForm
  3. ' DateTime : 27/01/2003
  4. ' Author : Jamie Czernik
  5. ' Purpose : Routine should be called on a form's onOpen or onLoad event.
  6. '---------------------------------------------------------------------------------------
  7. Public Sub ReSizeForm(ByVal frm As Access.Form)
  8.  
  9. Dim rectWindow As tRect
  10. Dim lngWidth As Long
  11. Dim lngHeight As Long
  12. Dim sngVertFactor As Single
  13. Dim sngHorzFactor As Single
  14.  
  15. On Error Resume Next
  16.  
  17. sngVertFactor = getFactor(True) 'Local function returns vertical size change.
  18. sngHorzFactor = getFactor(False) 'Local function returns horizontal size change.
  19. Resize sngVertFactor, sngHorzFactor, frm 'Local procedure to resize form sections & controls.
  20. If WM_apiIsZoomed(frm.hwnd) = 0 Then 'Don't change window settings for max'd form.
  21. Access.DoCmd.RunCommand acCmdAppMaximize 'Maximize the Access Window.
  22. 'Store for dimensions in rectWindow:-
  23. Call WM_apiGetWindowRect(frm.hwnd, rectWindow)
  24. 'Calculate and store form height and width in local variables:-
  25. With rectWindow
  26. lngWidth = .right - .left
  27. lngHeight = .bottom - .Top
  28. End With
  29. 'Resize the form window as required (don't resize this for sub forms):-
  30. If frm.Parent.Name = VBA.vbNullString Then
  31. Call WM_apiMoveWindow(frm.hwnd, ((getScreenResolution.Width - _
  32. (sngHorzFactor * lngWidth)) / 2) - getLeftOffset, _
  33. ((getScreenResolution.Height - (sngVertFactor * lngHeight)) / 2) - _
  34. getTopOffset, lngWidth * sngHorzFactor, lngHeight * sngVertFactor, 1)
  35. End If
  36. End If
  37. Set frm = Nothing 'Free up resources.
  38.  
  39. End Sub

Pri otvaranju javlja se greška (Slika1 i Slika2)

Zatim kod automatskog relinka, problem (slika3 i slika4)
Prilozi:
slika1.jpg (Velicina datoteke:23.60 KB)
slika2.jpg (Velicina datoteke:91.80 KB)
slika3.jpg (Velicina datoteke:41.23 KB)