Re: [belajar-access] Re: Tanya : Validation Rules

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..........
>

__._,_.___

SPAM IS PROHIBITED

Your email settings: Individual Email|Traditional
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch to Fully Featured
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

__,_._,___