กระทู้เก่าบอร์ด อ.สุภาพ ไชยา
270 1
URL.หัวข้อ /
URL
Looping thru all fields in subform for null fields
ถามไว้ที่ http://www.access-programmers.co.uk/forums/showthread.php?s=&threadid=48117
เขาต้องการวนหาว่ามีฟีลด์ไหนใน Subform ที่ยังไม่ได้กรอกบ้าง
ลองทำแบบนี้ครับ
Private Sub Command1_Click()
Dim ctl As Control
For Each ctl In Me..Form.Controls
If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then
If IsNull(ctl) Then
MsgBox "No null allowed"
Me..SetFocus
ctl.SetFocus
Exit Sub
End If
End If
Next ctl
End Sub
เขาต้องการวนหาว่ามีฟีลด์ไหนใน Subform ที่ยังไม่ได้กรอกบ้าง
ลองทำแบบนี้ครับ
Private Sub Command1_Click()
Dim ctl As Control
For Each ctl In Me.
If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then
If IsNull(ctl) Then
MsgBox "No null allowed"
Me.
ctl.SetFocus
Exit Sub
End If
End If
Next ctl
End Sub
1 Reply in this Topic. Dispaly 1 pages and you are on page number 1
1 @R06752
Time: 0.1233s
