[ rribaric @ 17.09.2004. 19:10 ] @
Imam problem kod izrade querya. Koristim funkciju za konvertiranje datuma koju je zidar naveo. Medjutim javlja mi da je greška u sql izrazu. Kad pokrenem isti izras a umjesto ovih funkcija date4SQl() navedem fiksne datume u literalima sql izraz funkcionira. U čemu je greška. Dali sql izraz uspoređuje (stranaA.datum_izdavanja )tipa date I (date4SQL)tipa string pa zbog toga javlja grešku.Ako je to kako da to otklonim. A ako tko ima rješenje neka mi kaže kako napraviti SQl izraz koji bi dao podatke na osnovu unesenih datuma. Function Date4SQL(Date2Convert As Variant) As String Date4SQL = "#" & Format(CVDate(Date2Convert), "mm/dd/yyyy") & "#" MsgBox "u procedurisam" MsgBox Date4SQL End Function Public Function fpotvrdi() Dim CurrentForm As Form Set CurrentForm = Screen.ActiveForm Forms!frmdatum.Refresh On Error GoTo Err_cmdPreview_Click Dim tsql As String Dim z, a As Variant Dim db3 As DAO.Database, tb3 As DAO.Recordset, br As Integer Set db3 = CurrentDb Set tb3 = db3.OpenRecordset("parametri") tb3.MoveFirst a = tb3!DatumOD z = tb3!DatumDo MsgBox a Rem ovo je kopirani kod [Forms]![frmreport].Visible = False Dim stDocName, strsql As String stDocName = "rptdatum" MsgBox a tsql = " SELECT stranaA.* ,stranaB.ID,stranaB.broj " tsql = tsql & " FROM stranaA ,stranaB " tsql = tsql & " WHERE stranaB.ID=stranaA.ID AND stranaA.datum_izdavanja BETWEEN " & Date4SQL(a) & " AND " & Date4SQL(z) & ";" MsgBox tsql DoCmd.OpenReport stDocName, acPreview, tsql |