[ Lioness_sid @ 08.11.2009. 09:58 ] @
| Ako ima nekog na vezi, ako nema opet dobro. Naime poceo sam da radim u Access-u od skora i imam pocetnickih problema kao i svi.
Moj problem se zasniva na prostvom otvaranu Subforme i obelezavanju zapisa te nakon toga treba bih preko komandnog tastera da otvorim novu formu i da mi se ispise obelezeni zapiz iz prethodne subforme. Eto, ako me neko razume, nek se javi ili bar posalje primer kako da to uradim.
Hvala |
[ maliradoznalac @ 08.11.2009. 13:26 ] @
Pogledao sam primer koji si zakacio, i nisam bas siguran da razumem sta pokusavas da napravis. Sto se konkretnog problema tice, pokusacu da ti malo uopsteno objasnim posto mi zakaceni primer nije jasan.
Subform predstavlja formu koja je ubacena u postojecu formu. Podaci koji se prikazuju na formi i subformi moraju da na neki nacin budu povezani. Na primer, ako imas bazu za biblioteku onda bi mogli praviti formu u kojoj su prikazani podaci o clanu biblioteke a u subformi npr prikazati knjige koje je taj clan iznajmljivao. Predpostavljam da si ovaj pocetnicki primer savladao i da znas kako izgleda struktura takve baze. Izmedju tabela o clanovima i tabele o podacima o iznajmljivanju postoji uspostavljena relacija. To kod tvog primera fali.
Ajde probaj to da malo doteras, mozda ti posle i nece trebati pomoc oko formi :-)
[ Lioness_sid @ 10.11.2009. 19:13 ] @
Hvala na objasnjenju, uspeo sam. Sad mi je sve jasno, mada me malo koci VBA jer sam dosad radio u CLIPPER-u ali ide polako.
No imam jos jedno pitanje. Kako nakon ucitavanja podataka iz tabele u formu da mi neka polja ostanu prazna (blanko) umesto da imaju podatke iz te tabele.
[Ovu poruku je menjao Lioness_sid dana 10.11.2009. u 21:29 GMT+1]
[ Trtko @ 14.11.2009. 16:40 ] @
Isto kao u CLIPPERU, znači ne vežeš polja na formi na tablicu , nego ih ostaviš UNBOUND
A kasnije na neku tipku ih upišeše u tablicu , kao u clipperu
USE RADNICI
APPEND BLANK
......
no u accessu ide malo drugačije, ali logika ti je ista
pa bi ti to izgledalo nekako ovako
Private Sub Upis_u_tabelu_Click()
If IsNull(idkupca) Or idkupca = "" Then
MsgBox "Šifra kupca nije unešena"
idkupca.SetFocus
Exit Sub
End If
Dim d As Database
Set d = CurrentDb
Dim ev As Recordset
Set ev = d.OpenRecordset("select * from tblkupci where sifkup='" & idkupca & "'")
If ev.EOF() Then
ev.AddNew , novi
Else
ev.Edit 'mjenjanje
End If
ev.Fields("sifkup") = idkupca
ev.Fields("nazivkup") = nazivkupca
ev.Update
ev.Close
Set d = Nothing
Subkupci.Requery
idkupca.SetFocus
End Sub
pozdrav
Copyright (C) 2001-2025 by www.elitesecurity.org. All rights reserved.