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