' 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..........
>
__._,_.___
No comments:
Post a Comment