Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
Private Sub Kor(Dx As Double, DY As Double, IDL As Integer, IDT As Integer, K As Boolean) Dim X1 As Double, X2 As Double, Y1 As Double, Y2 As Double Dim Db As Database Dim Rs As Recordset Dim SQL As String Dim Id As Integer On Error GoTo Kraj Set Db = CurrentDb SQL = "SELECT * FROM T_Tacke WHERE LokacijaID=" & IDL Set Rs = Db.OpenRecordset(SQL) Rs.FindFirst ("Vizura=" & IDT) X1 = Rs!X Y1 = Rs!Y Rs.MovePrevious X2 = Rs!X Y2 = Rs!Y Rs.C