miro35 |
06.02.2013 13:25 |
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 |
dex |
06.02.2013 15:28 |
Predmet:Re: SQL Greška
Kog je tipa podatak Boja u tabeli? Izgleda da je problem u neslaganju tipa podataka. Kod tebe u kodu ****ja1 definisana kao variant. Ako je string u tabeli onda fale apostrofi, ostalo mi izgleda OK kod SQL-a
Takodje mislim da ti je suvisno With, odnosno ako stavis With onda ne pises
rstStrevi.MoveFirst
nego samo
.MoveFirst
ili na primer
!SumarImeZaduzenja = SumIme |
miro35 |
06.02.2013 15:39 |
Predmet:Re: SQL Greška
Sve sam to odradio sad mi javlja grešku na :
.MoveFirst |
dex |
06.02.2013 15:58 |
Predmet:Re: SQL Greška
Ako SQL ne izdvoji ni jedan element onda ti pre petlje treba nesto kao
If rstStrevi.recordcount=o Then GOTO <preskoci petlju> |
miro35 |
07.02.2013 10:12 |
Predmet:Re: SQL Greška
Hvala na trudu ali kako se kaže "zora je pametnija od večeri !"
Kad sam prebacivao tabelu u koju sve ovo upisivam zamjenio sam kolonu pod nazivom "broj" da mi bude text umjesto number.Sad kad sam vratio na number sve radi.Izvini i hvala još jednom. |