[ rribaric @ 27.10.2004. 20:16 ] @
Problem kod ispitivanja dali je uneseni datum u postavljenom kriteriju(radnoj godini). Imam u formi "unosulaza" polje Datum_racuna-koje mora biti u zadanoj godini.Npr ako je radna godina 2004 datum mora biti u rasponu od 01.01-31.12.04,a ako je manji ili veći od radne godine program nesmije dozvoljavti daljnji upis I mora vratiti focus na to polje dokle god se ne unese aktivna godina. Ovo bi bilo event za beforeUpdate za polje Datum_racuna-trebalo bi mi riješenje što napisati kad je datum_racuna <> od radne godine: Private Sub Datum_racuna_BeforeUpdate(Cancel As Integer) If FRadna(Me!Datum_racuna) Then Exit Sub Else Rem Ovdje treba upisati naredbu koja bi se izvršavala ako uneseni datum nije u Rem zadanoj godini(godina je definirana u drugoj formi). Rem Ako nije radna pozicioniraj se na polju Me!Datum_racuna i ne dozvoli daljnji upis End if End Sub U modulu sam napravio ovu proceduru za ispitivanje dali je uneseni datum u radnoj godini. Public Function FRadna(god) Dim db As DAO.Database, tb As DAO.Recordset Set db = CurrentDb Set tb = db.OpenRecordset("parametri") tb.MoveFirst FRadna = False If god = tb!Godina Then FRadna = True tb.Close db.Close End Function |