Re: [belajar-access] Lock Record

[aksan kurdin]

kecepatan ngereply,
bukan beforeupdate:

Private Sub Form_Delete(Cancel As Integer)
    On Error GoTo errHandle
    If MsgBox("Hapus record ini ?", vbQuestion + vbYesNo, "Hapus record") =
vbNo Then
        Cancel = -1
        Exit Sub
    End If

    If Me.Flag Then
        ' Jika field Yes/No Flag berisi nilai true, jangan dihapus!!
        Cancel = -1
        Exit Sub
    End If

    Exit Sub

errHandle:
    MsgBox Err.Description
End Sub

Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As Integer)
    Response = acDataErrContinue
End Sub




On Wed, Jun 25, 2008 at 7:44 PM, aksan kurdin <[EMAIL PROTECTED]>
wrote:

> di event before update form bisa di cancel:
>
> private sub form_beforeupdate(cancel as integer)
>   if me.flag = true then
>     msgbox "ouch.... tidak boleh diedit lagi"
>     cancel = -1 ' <- min satu karena tipenya integer, bukan boolean
>   end if
> end sub
>
> aksan kurdin
>
>
> 2008/6/25 Darsono <[EMAIL PROTECTED]>:
>
>   Selamat Pagi Access mania,
>>
>> to the point aja,
>> bagaimana caranya membatasi atau Lock record tertentu didalam suatu
>> sub-form.
>>
>> kasusnya,
>> untuk record yang sudah diberi tanda lock, (check-list = yes) tidak bisa
>> di delete.
>> dan untuk record yang lain (check-list = No) masih boleh.
>>
>> makasih sebelumnya
>>
>> darsono
>>
>>  
>>
>
>
>
> --
> Aksan Kurdin




-- 
Aksan Kurdin