Centar za edukaciju-BiH

Predmet:Snimi nevezanu pod formu

---

Imam proceduru za snimanje polja u tabelu sa nevezane forme. To sam našaao na netu i radi posao. E sada kada imam nevezanu pod formu kako da izmenim kod da bih usnimio sve slogove pod forme u tabelu.

Private Sub Command1777_Click()
Dim db As DAO.Database
Dim Rs As DAO.Recordset
Dim strSQL As String
On Error GoTo ERROR_CODE:
Set db = CurrentDb
strSQL = "SELECT [tblNEZAKONITOST].* FROM [tblNEZAKONITOST]"
Set Rs = db.OpenRecordset(strSQL)
With Rs
Rs.AddNew
Rs!Broj_Predmeta_Pregleda = Me!Broj_Predmeta_Pregleda
Rs!Sifra_Nezakonitost = Me!Sifra_Nezakonitost
Rs!Rok = Me!Rok
Rs!Vrsta_Pregleda = Me!Vrsta_Pregleda
Rs.Update
End With
MsgBox "PODATAK JE SNIMLJEN U TABELU", vbInformation
Call ISPRAZNI
Exit_Here:
On Error Resume Next
Rs.Close
Exit Sub
ERROR_CODE:
Select Case Err.Number
Case Else
Resume Exit_Here:
End Select
End Sub

Predmet:Re: Snimi nevezanu pod formu

---

Mozda ti imas subformu ali i ova procedura se nalazi u njoj pa je to isto kao da je forma bar sto se tice koda.
Ovo moze i ovako;
strSQL = "SELECT * FROM [tblNEZAKONITOST]"
e sad ja neznam koliko tio polja imas u tabeli ali ovaj kod upisuje u nekoliko polja.
With Rs ' OVO TI NETREBA
Rs.AddNew
Rs!Broj_Predmeta_Pregleda = Me!Broj_Predmeta_Pregleda' OVO JE JEDNO POLJKE
Rs!Sifra_Nezakonitost = Me!Sifra_Nezakonitost' OVO JE DRUGO
Rs!Rok = Me!Rok' TRECE
Rs!Vrsta_Pregleda = Me!Vrsta_Pregleda' CETVRTO
Rs.Update
End With' NI OVO NETREBA

Ako nije ovako onda zakaci tabelu.

---

Predmet:Re: Snimi nevezanu pod formu

---

Evo izvuceno iz baze. Sada mi pada napamet da bih na neki dogadjaj na unosu inspektora na pod formi mogao referencirati povezana polja sa forme. Ako nije komplikovano da li se može dodati u kod i gde procedura a upis u pod formu. U svakom slučaju bio bih zahvalan sa nekim pravim primerom. Pozdrav!

Prilozi:

Predmet:Re: Snimi nevezanu pod formu

---

nisam te ovo bas razumio sta zelis

---

Predmet:Re: Snimi nevezanu pod formu

---

Da ne komplikujem. Kada po unosu podataka snimim podatke sa glavne forme hteo bih da mi snimi i podatke sa podforme. Obe su nevezane. Ja sam jutros neÅ¡to probao ali nije mi iÅ¡lo. Vidim i jedan problem koji juče nisam primetio a to je da mi u podformi daje da unesem samo jedan podatak.

Predmet:Re: Snimi nevezanu pod formu

---

Ok Sad je jkasno.
Nisam sad u prilici ali veceras vjerovatno cu imati vremena ako do tad neko ne uradi.

---

Predmet:Re: Snimi nevezanu pod formu

---

Poceo sam ali nisam uspio.
Napisimi ime polja na formi i ime polja u tabeli gdje se upisuje.
nemogu da dokucim sta je sta.
Koliko vidim radi se samo o jednoj tabeli a tebi samo nevaljaju.

---

Predmet:Re: Snimi nevezanu pod formu

---

Kako sam razumeo imas tabelu pregledi gde se vode podaci o pregledu i tabelu inspektori gde se vode podaci o inspektorima. tabela TblInspektori_Na_Preglrdu predstavlja tabelu raskrsnicu (veza vise prema vise) izmedju te dve tabele. U formi na podformi treba da uneses koji su inspektori bili na datom pregledu (jedan pregled - vise inspektora) Ubaciti uopste takvu podformu sa nevezanim (unbound) podacima prilicno je tesko, ako ne i nemoguce.

Predmet:Re: Snimi nevezanu pod formu

---

Ovo su polja na formi frmPREGLED_1

Sifra_Pravnog_Lica
Broj
Sifra_Lokacije
Vrsta_Pravnog_Lica
Broj_Predmeta_Pregleda
Vrsta_Pregleda
Planirani_Redovni_Datum_Pregleda_Od
Planirani_Redovni_Datum_Pregleda_Do
Nalog_Ima_Nema
Razlog_Nemanja_Naloga
Obavestenje_Ima_Nema
Razlog_Nemanja_Obavestenja
Pokretanje_Inspekcijskog_Nadzora
Nacelnik

Sa forme frmPreGLeD_1 podaci se snimaju u polja identičnih naziva u tabeli tblPREGLED.
Subforma na formi frmPREGLED_1 je frmINSPEKTORI_NA_PREGLEDU sa poljima

Broj
Broj_Predmeta_Pregleda
Vrsta_Pregleda
JMBG_Inspektor
JMBG_Inspektor_Zamenjen

Polja sa subforme frmINSPEKTORI_NA_PREGLEDU snimaju se u polja sa identićnim nazivima u tabelu
tblINSPEKTORI_NA_PREGLEDU

Predmet:Re: Snimi nevezanu pod formu

---

---