For Each ctl In Detail.Controls
If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then
If ctl.Name Like "Text*" Then
If ctl.Locked = True Then
ctl.Locked = False
ctl.ForeColor = vbRed
Me.Form1.Form.LabelEdit.Visible = True
Else
Me.Form1.Form.LabelEdit.Visible = False
ctl.Locked = True
ctl.ForeColor = vbBlack
End If
End If
End If
Next
อันนี้เป็นโค้ด loop ของผมครับ แต่ไม่ทราบว่าต้องสั่งยังไงให้มันไป loop ใน Sub form หรอครับ ประมาณนี้ครับ