E sad...
Kod datagrida probaj ovo:
Code:
Set DataGrid1.DataSource = tabela.DataSource
DataGrid1.DataMember = tabela.DataMember
To bi trebalo da resi problem, mada meni to provereno radi sa ADO, ali kako mi se cini ti koristish DAO.
Kod ADO-a imas i josh nekih podesavanja za recordset koja definisu neka pravila kako se oni vezu za kontrole(recimo DataGrid).
Ako ti ni ovo ne radi onda vidi kakav ti je tip recordseta, pa sta tu moze da se izmeni.
Dalje, kada hoces nesto da izmenish kod kolona koje ti se ucitavaju iz tabele, to treba da uradish u SQL upitu i to na sledeci nacin:
Liniju:
Code:
Set tabela = baza.OpenRecordset("SELECT * FROM tblUnos WHERE status = 'Aktivan'", dbOpenDynaset)
zamenish linijom:
Code:
Set tabela = baza.OpenRecordset("SELECT Ime, Telefon, Status FROM tblUnos WHERE Status = 'Aktivan'", dbOpenDynaset)
I to bi trebalo da fercera kako ti hoces. Jos kod datagrida morash da vodish racuna kako je sama kontrola postavljena na formu, odnosno njena svojstva u odnosu na tip recordseta. Ne mozes je vezati za recordset neodgovarajuceg tipa, pa kroz nju menjati vrednosti.
Za detalje kako to da popravish ako je problem u tome ne mogu da ti pomognem jer ja radim u ADO, ane DAO.
Err.Number 13 ne znam sta je, ali za svaki slucaj probaj da proverish jel ti Upit dobar: Napravish Query u Access-u, i u SQL view pejstujesh taj tvoj upit, i ako se ne izvrshi, onda je problem u tvom upitu, ili strukturi baze, a ne u kodu koji ti je covek gore dao.
Pogledaj na kojoj liniji ti puca program i izbacuje taj err.number pa postuj ovde tu liniju da pogledamo.
Pozdrav!