Predmet:SQL Greška
PreuzmiIzvorni kôd (Text):DoCmd.Hourglass True
Dim OdBroja1 As Long
Dim DoBroja1 As Long
Dim Boja1 As Variant
Dim UlazBr As Variant
Dim BrojObrazca As Long
Dim DatZaduz As Date
Dim BROZAD As String
Dim FORMATTIPA As String
Dim TipZad As String
Dim wrk As Workspace
Dim db As Database
Dim rstStrevi As DAO.Recordset
Dim rsRASPONI As DAO.Recordset
Dim strSQL As String
Dim flgInTrans As Boolean
flgInTrans = False
Dim SumID As String
Dim SumIme As String
Dim datzad As Date
UlazBr = Forms!frmZaduzenje!Broj & "/" & Forms!frmZaduzenje!Godina
SumID = Forms!frmZaduzenje!SumarID
SumIme = Forms!frmZaduzenje!SumarIme.Column(1)
datzad = Forms!frmZaduzenje!Datum
'sad dolazi upis u tablicu
Set wrk = DBEngine.Workspaces(0)
Set db = CurrentDb
wrk.BeginTrans
flgInTrans = True
'Set rstStrevi = db.OpenRecordset("tblPlocice", dbOpenDynaset, dbAppendOnly)
'Set rstStrevi = db.OpenRecordset("tblPlocice", dbOpenDynaset)
'generira i upisuje recorde u bazu prema podacima unešenim na formu
If Forms!frmZaduzenje!chkPlava = -1 Then
OdBroja1 = Forms!frmZaduzenje!OdPlava
DoBroja1 = Forms!frmZaduzenje!DoPlava
Boja1 = "PLAVA"
strSQL = "SELECT * FROM tblPlocice WHERE Boja=" & Boja1 & " AND Broj>=" & OdBroja1 & " AND Broj<=" & DoBroja1
Set rstStrevi = db.OpenRecordset(strSQL) 'GREÅ KA
'Set rstStrevi = db.OpenRecordset("SELECT * FROM tblPlocice WHERE Boja=" & Boja1 & " AND Broj>=" & OdBroja1 & " AND Broj<=" & DoBroja1)
With rstStrevi
rstStrevi.MoveFirst
Do While Not rstStrevi.EOF
rstStrevi.Edit 'obavezno na po
etku za dodavanje
rstStrevi!BrojZaduzenja = UlazBr
rstStrevi!DatumZaduzenja = datzad
rstStrevi!SumarZaduzenja = SumID
rstStrevi!SumarImeZaduzenja = SumIme
rstStrevi!Status = "Z"
rstStrevi.Update
rstStrevi.MoveNext
Loop
End With
rstStrevi.Close
End If 'kraj za plave
wrk.CommitTrans
flgInTrans = False
DoCmd.Hourglass False
Ovde je greška strSQL = "SELECT * FROM tblPlocice WHERE Boja=" & Boja1 & " AND Broj>=" & OdBroja1 & " AND Broj<=" & DoBroja1
Set rstStrevi = db.OpenRecordset(strSQL) 'GREÅ KA
Miro
Ovaj post je ureden
1
puta. Posljednja izmjena 06.02.2013 13:29 od strane miro35.