【Access小品】子窗體記錄有選擇性鎖定實(shí)例

todaynew

有版友問子窗體記錄有選擇的鎖定問題。對連續(xù)窗體或數(shù)據(jù)表窗體的記錄進(jìn)行有選擇的鎖定，看起來是一個(gè)麻煩的事情。因?yàn)閷��?yīng)字段的控件名就一個(gè)，你要鎖定它的話所有的都鎖定了，不會(huì)只針對一條或者幾條記錄來鎖定。怎么解決這個(gè)問題呢？實(shí)際上說起來也不難，你可以利用獲得焦點(diǎn)事件或者單擊事件來處理。因?yàn)槟惬@得焦點(diǎn)或者單擊時(shí)，你可以對當(dāng)前記錄中的某個(gè)字段值進(jìn)行判斷，進(jìn)而做出鎖定或者不鎖定操作。從結(jié)果上來看，此時(shí)的操作是對窗體所有記錄的操作，但形式上你感覺是對當(dāng)前記錄的操作。

    以下這個(gè)所編寫的子程序，并結(jié)合焦點(diǎn)或單擊事件來使用就可以達(dá)到有選擇的鎖定子窗體記錄的目的：

Private Sub 選擇鎖定(myctl As Control, B As Boolean)
'功能:有選擇的鎖定子窗體中的記錄
'參數(shù):myctl,作為判斷的控件：B=true,myctl鎖定,B=false,myctl不鎖定
Dim ctls As Controls
Dim ctl As Control
Set ctls = Me.Form.Controls
For Each ctl In ctls
    If ctl.ControlType <> acLabel Then
        If myctl.Value = True Then
                 If B = True Then
                    ctl.Locked = True
                Else
                    If ctl <> myctl Then
                        ctl.Locked = True
                    End If
                End If
        Else
            ctl.Locked = False
        End If
    End If
Next ctl
End Sub

5988143

todaynew,最近高產(chǎn)~
網(wǎng)友的福音哦~
支持~

ycxchen

todaynew是ACCESS的福人！

q112233

"

回帖是一種美德,雖然這是廣告.呵呵



Signature--------------------------------------------------------------------------------------------------------------------
Nothing is impossible for a willing heart.
ugg bailey button

ugg classic cardy




"

ui

絕對支持,都是好貼!

leijiqiang

嗯~頂

todaynew

謝謝同志們支持

goto2008

學(xué)習(xí)。

zhufree

真不錯(cuò)，學(xué)習(xí)了，遍歷控件

wxf16

解決了我的問題，非常感謝