Prikazi cijelu temu 05.01.2012 14:22
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Syntax error in date in query
greska je u ovoj proceduri.
Evo samo moju zamijeni sa postojecom.
PreuzmiIzvorni kôd (Visual Basic):
  1. Sub P_InsertDate(PDT As Date)
  2. ' Inserts Date/Chair/TimeSlot Values In Table T_Plan
  3. On Error GoTo ErrTrap
  4.     Dim QST As String
  5.     Dim Datum As String
  6.    
  7.     Datum = "#" & Format(PDT, "mm-dd-yyyy") & "#"
  8.    
  9.     If DCount("*", "T_Plan", "PDate =" & Datum) > 0 Then
  10.         GoTo ExitPoint      ' This Date Already Exists
  11.    End If
  12.    
  13.     QST = "INSERT INTO T_Plan (PDate, TimeSlot) " & _
  14.                 " SELECT  " & Datum & " AS PDate, TimeSlot " & _
  15.                 " FROM T_TimeSlot ;"
  16.     DoCmd.SetWarnings False
  17.         DoCmd.RunSQL QST
  18.     DoCmd.SetWarnings True
  19.  
  20. ExitPoint:
  21.     On Error GoTo 0
  22.     Exit Sub
  23.    
  24. ErrTrap:
  25.     MsgBox Err.Description
  26.     Resume ExitPoint
  27. End Sub
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.