Prikazi cijelu temu 16.11.2013 15:54
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Queries vece manje
samo zanijeni ovu proceduru sa starom.
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Kor(Dx As Double, DY As Double, IDL As Integer, IDT As Integer, K As Boolean)
  2. Dim X1 As Double, X2 As Double, Y1 As Double, Y2 As Double
  3. Dim Db As Database
  4. Dim Rs As Recordset
  5. Dim SQL As String
  6. Dim Id As Integer
  7.  
  8. On Error GoTo Kraj
  9. Set Db = CurrentDb
  10.  
  11. SQL = "SELECT * FROM T_Tacke WHERE LokacijaID=" & IDL
  12. Set Rs = Db.OpenRecordset(SQL)
  13. Rs.FindFirst ("Vizura=" & IDT)
  14. X1 = Rs!X
  15. Y1 = Rs!Y
  16. Rs.MovePrevious
  17.  
  18. X2 = Rs!X
  19. Y2 = Rs!Y
  20. Rs.Close
  21. Set Db = Nothing
  22. If X1 = 0 Or X2 = 0 Or Y1 = 0 Or Y2 = 0 Then GoTo Kraj
  23. Dx = X1 - X2
  24. DY = Y1 - Y2
  25. K = True
  26. Exit Sub
  27. Kraj:
  28. K = False
  29. End Sub
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.