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

Gunakan BeforeAfter pada DataG :

If 25 <= dataG And dataG <= 30 Then
     If dataG < dataH Then
           msgbox "Nilai tidak boleh lebih kecil Data H"
    End If
Else
    msgbox "Nilai diluar ketentuan"
End If

'atau

If dataG < 25 Or dataG > 30 Then
msgbox "Nilai diluar ketentuan"
End If
If dataG < dataH Then
msgbox "Nilai tidak boleh lebih kecil Data H"
End If

jika dataH belum diisi , kreiterianya perlu diperhatikan ?

apa tak boleh diisi ? kalau ya ,maka tambahkan diawal ( sebelum kode di atas ):

If IsNull(DataH) Then
Cancel = True
DataH.SetFocus
End If

'===============

--- In belajar-access@yahoogroups.com, "Agus Ariyanto" <bobby_agus.ariyanto@...> wrote:
>
> 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..........
> > > >
> > >
> > >
> >
>