Prikazi cijelu temu 01.12.2011 11:02
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Lokacija:Osijek


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
Preuzimanja:328
Velicina datoteke:23.60 KB
slika2.jpg
Preuzimanja:303
Velicina datoteke:91.80 KB
slika3.jpg
Preuzimanja:282
Velicina datoteke:41.23 KB

Pozdrav