iCentar » Racunari i oprema » Programirannje i baze podataka » Access

xl_kid	05.01.2012 12:20
Predmet:Syntax error in date in query Na netu sam naÅ¡ao aplikaciju (http://www.rogersaccesslibrary.com/...ic141.html), potsetnik ali mi izbacije gresku "Syntax error in date in query expression `PDate = #05.01.2012#` prilikom pokretanja. Na kompu na poslu imam office 2003 i 2007 i tu mi pravi problem a kod kuce samo 2003 i radi ok. Da li neko moze da mi pomogne oko ovog problema. U prilogu je aplikacija a gore je link
Prilozi: AppointmentsAlert_XP.zip (Velicina datoteke:47.52 KB)

xl_kid

05.01.2012 12:20

Predmet:Syntax error in date in query

Na netu sam naÅ¡ao aplikaciju (http://www.rogersaccesslibrary.com/...ic141.html), potsetnik ali mi izbacije gresku "Syntax error in date in query expression `PDate = #05.01.2012#` prilikom pokretanja. Na kompu na poslu imam office 2003 i 2007 i tu mi pravi problem a kod kuce samo 2003 i radi ok. Da li neko moze da mi pomogne oko ovog problema. U prilogu je aplikacija a gore je link

Prilozi:
AppointmentsAlert_XP.zip (Velicina datoteke:47.52 KB)

zxz	05.01.2012 14:22
Predmet:Re: Syntax error in date in query greska je u ovoj proceduri. Evo samo moju zamijeni sa postojecom. PreuzmiIzvorni kôd (Visual Basic): Sub P_InsertDate(PDT As Date) ' Inserts Date/Chair/TimeSlot Values In Table T_Plan On Error GoTo ErrTrap Dim QST As String Dim Datum As String Datum = "#" & Format(PDT, "mm-dd-yyyy") & "#" If DCount("*", "T_Plan", "PDate =" & Datum) > 0 Then GoTo ExitPoint ' This Date Already Exists End If QST = "INSERT INTO T_Plan (PDate, TimeSlot) " & _ " SELECT " & Datum & " AS PDate, TimeSlot " & _ " FROM T_TimeSlot ;" DoCmd.SetWarnings False DoCmd.RunSQL QST DoCmd.SetWarnings True ExitPoint: On Error GoTo 0 Exit Sub ErrTrap: MsgBox Err.Description Resume ExitPoint End Sub

zxz

05.01.2012 14:22

Predmet:Re: Syntax error in date in query

greska je u ovoj proceduri.
Evo samo moju zamijeni sa postojecom.

PreuzmiIzvorni kôd (Visual Basic):

Sub P_InsertDate(PDT As Date)
' Inserts Date/Chair/TimeSlot Values In Table T_Plan
On Error GoTo ErrTrap
Dim QST As String
Dim Datum As String
Datum = "#" & Format(PDT, "mm-dd-yyyy") & "#"
If DCount("*", "T_Plan", "PDate =" & Datum) > 0 Then
GoTo ExitPoint ' This Date Already Exists
End If
QST = "INSERT INTO T_Plan (PDate, TimeSlot) " & _
" SELECT " & Datum & " AS PDate, TimeSlot " & _
" FROM T_TimeSlot ;"
DoCmd.SetWarnings False
DoCmd.RunSQL QST
DoCmd.SetWarnings True
ExitPoint:
On Error GoTo 0
Exit Sub
ErrTrap:
MsgBox Err.Description
Resume ExitPoint
End Sub

xl_kid	05.01.2012 14:46
Predmet:Re: Syntax error in date in query Hvala puno, radi super. Ja sam probao sam formatom ali mi nije bas islo. Jos jednom hvala.

xl_kid

05.01.2012 14:46

Predmet:Re: Syntax error in date in query

Hvala puno, radi super. Ja sam probao sam formatom ali mi nije bas islo. Jos jednom hvala.