MS ACCESS MAILING LIST: [belajar-access] Re: Tanya : Validation Rules

Mau tanya lagi nih.....

Untuk menampilkan validation text / msgbox jika sebuah field memiliki kriteria ganda.

Misalkan, untuk field Data G memiliki kriterian sbb :

- Kriteria 1 : Nilai Antara 25 sampai 30, jika di-isi lebih kecil atau lebih besar dr tsb maka tolak dan muncul msgbox : "Nilai diluar ketentuan"

- Kriteria 2 : Nilai harus sama dengan / lebih besar dari Nilai Field Data H. Jika di-isi lebih kecil dari nilai field "Data H", maka tolak dan mumcul msgbox : "Nilai tidak boleh lebih kecil atau sama dengan Data H"

Nah, untuk memunculkan msgbox tsb berdasarkan kriteria yg ditolak spt apa caranya ? karena sdh memcoba melalui properti validation text, saat nilai diluar ketentuan semua baris teks yg ada di val. text muncul.

=================================================================

--- In belajar-access@yahoogroups.com, Aksan Kurdin <aksan.kurdin@...> wrote:
>
> berikut variasi bentuknya:
>
> Private Sub Data_A_BeforeUpdate(Cancel As Integer)
> Cancel = Not (25<= Me.Data_A And Me.Data_A<= 35)
> End Sub
>
> Private Sub Data_B_BeforeUpdate(Cancel As Integer)
> Cancel = Not (20<= Me.Data_B And Me.Data_B<= 25)
> End Sub
>
> Private Sub Form_Current()
> If Not Me.NewRecord Then CheckAndEnableField
> End Sub
>
> Private Sub Time_AfterUpdate()
> CheckAndEnableField
> End Sub
>
> Private Sub CheckAndEnableField()
> Me.Data_A.Enabled = (Me.Time = 12)
> Me.Data_B.Enabled = (Me.Time = 24)
> Me.Data_E.Enabled = (0<= Me.Time And Me.Time<= 23)
> End Sub
>
>
>
> event beforeupdate suatu text box menyertakan satu parameter cancel.
> cancel digunakan untuk membatalkan pengisian data dari 'save', dan
> mencegah kursor berpindah meninggalkan fokus di text box tersebut.
> kondisi di atas, cancel di set true sesuai logika jika me.data_a tidak
> berada dalam rentang 25 -> 35 (termasuk nilai 25 dan 35 nya sendiri).
> logikanya sama dengan text box Data_B
>
> event current bisa kita gunakan untuk mengatur enable/lock field a,b,c
> dst, sesuai dengan kondisi field time, yang bisa dilihat di sub
> CheckAndEnableField.
>
> aksan kurdin
>
>
>
>
> On 6/3/2011 4:17 PM, sudarsono wrote:
> >
> > ' *batas range pengisian*
> >
> > Private Sub Data_A_BeforeUpdate(Cancel As Integer)
> > If 25 <= Me.Data_A And Me.Data_A <= 35 Then
> > Cancel = False
> > Else
> > Cancel = True
> > End If
> >
> > End Sub
> >
> > '*untuk mencegah pengisian
> > *Private Sub Data_A_Click()
> > If Me.Time <> 12 Then Me.Data_B.SetFocus
> > End Sub
> >
> > Private Sub Data_A_Enter()
> > If Me.Time <> 12 Then Me.Data_B.SetFocus
> > End Sub
> >
> > '---
> >
> > demikian , yang lain2 tinggal modif deh .....
> > '===============
> > --- In belajar-access@yahoogroups.com, Agus Ariyanto
> > <bobby_agus.ariyanto@> wrote:
> > >
> > > Mohon bantuan teman2 tentang validasi data
> > > Saya lampirkan juga file db nya.
> > >
> > > Langsung aja buka file contoh2.aacbd
> > >
> > > Pada form / tabel data ketentuan dari masing2 field :
> > >
> > > - Data A : Nilai antara 25 s.d 35. Hanya bisa di isi jika nilai pd
> > field Time = 12, selain dari Time = 12 maka field / textbox
> > terkunci.(data ditolak atau tidak tersimpan)
> > >
> > > - Data B : Nilai antara 20 s.d 25. Hanya bisa di isi jika nilai pd
> > field Time = 24. selain dari itu maka field / texbox terkunci.
> > (Ketentuan yg sama untuk field Data C dan D)
> > >
> > > - Data E : Nilai 0 s.d 20. Field ini boleh di isi jika Time = antara
> > 00 s/d 23, jika Time = 24 maka field terkunci (data ditolak atau tidak
> > tersimpan)
> > >
> > > - Data I : Field ini bebas alias tanpa ketentuan khusus.
> > >
> > > Mungkin itu saja permasalahan saya, mohon bantuan nya bagaimana
> > format validation rules dari ketentuan di atas ????
> > >
> > >
> > > Sekian, terima kasih..........
> > >
> >
> >
>