:) Dođeš mi pivo kad završimo ovaj tvoj projekat :)
Ajde ovako
Potpuno ukloni ovaj deo iz koda
Code:
datPrimaryRS.RecordSource = "select Redbr,Imeiprezime,Maternjijezik,Stranijezik " & _
",Matematika,Mjerenjauelek,Istorija,Eltehmatikomp,Finomehanickateh,Fizika,Informatika, " & _
"Sportskakultura,Osnoveelek,Radionickevjezbe, (((Maternjijezik) +(Stranijezik) " & _
"+ (Matematika) +(Mjerenjauelek) +(Istorija) +(Eltehmatikomp) + (Finomehanickateh) + (Fizika) + (Informatika) + (Sportskakultura) + (Osnoveelek) + (Radionickevjezbe)) /12) " & _
" AS Srednjaocjena, format(((Maternjijezik+Stranijezik+Matematika+Mjerenjauelek+Istorija+Eltehmatikomp+Finomehanickateh+Fizika+Informatika+Sportskakultura+Osnoveelek+Radionickevjezbe) / 12), '#') " & _
" AS Uspijeh,Vladanje,Opravdano,Neopravdano, (Opravdano+Neopravdano) AS Svega from [Tehnicari za racunarstvo 2]"
datPrimaryRS.Refresh
With datPrimaryRS.Recordset
Do Until .EOF
If .Fields("Maternjijezik").Value = "1" Or .Fields("Stranijezik").Value = "1" Or .Fields("Matematika").Value = "1" Or .Fields("Mjerenjauelek").Value Or .Fields("Istorija").Value = "1" Or .Fields("Eltehmatikomp").Value = "1" Or .Fields("Finomehanickateh").Value = "1" Or .Fields("Fizika").Value = "1" Or .Fields("Informatika").Value = "1" Or .Fields("Sportskakultura").Value = "1" Or .Fields("Osnoveelek").Value = "1" Or .Fields("Radionickevjezbe").Value = "1" Then .Fields("Uspijeh").Value = "1"
.MoveNext
Loop
End With
Idemo sad da POPUNIMO potrebna polja (kad ih već imaš definisane u bazi) jedno po jedno.Dakle, umesto ovga šro si uklonio, stavi
Code:
Dim datconn As ADODB.Connection
Set datconn = New ADODB.Connection
datconn.Open "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & App.Path & "\baza.mdb"
datconn.Execute("UPDATE [ime tabele] SET Svega = (Opravdano+Neopravdano)")
datconn.Execute ("UPDATE [ime tabele] SET Srednjaocjena = ((Maternjijezik +Stranijezik + _
Matematika +Mjerenjauelek +Istorija +Eltehmatikomp + Finomehanickateh + Fizika + Informatika + Sportskakultura +Osnoveelek + Radionickevjezbe) / 12)")
datconn.Execute ("UPDATE [ime tabele] SET Uspjeh = format(((Maternjijezik +Stranijezik + _
Matematika +Mjerenjauelek +Istorija +Eltehmatikomp + Finomehanickateh + Fizika + Informatika + Sportskakultura +Osnoveelek + Radionickevjezbe) / 12),'#')")
datPrimaryRS.RecordSource = "SELECT * FROM [ime tabele]"
datPrimaryRS.Refresh
I na sve ovo dodaj onaj zadnji kod koji sam ti dao, tj. ovaj
Code:
datconn.Execute ("UPDATE [ime tabele] SET Uspjeh = 1 WHERE Matematika = 1 OR Fizika = 1")
samo, naravno, zameni ovo matematika = 1 i fizika = 1 sa svim predmetima koje imaš.Ajde probaj, pa javi šta se dešava
NAPOMENA : NEMOJ da uradiš samo Copy & Paste, jer ima stvari koje moraš sam da ispraviš.Recimo, primeti da sam stavio baza.mdb, e ti umesto toga stvai ime svoje baze.Dalje, stavio sam ti na par mesta [Ime tabele] , pa umesto toga ti stavi naziv svoje tabele koja se nalazi u bazi.Ako ti javi neku grešku, obavezno mi napiši u kojoj liniji, i to, znaš već kako ide.
[Ovu poruku je menjao Marko_L dana 20.04.2005. u 23:53 GMT+1]
-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti