กระทู้เก่าบอร์ด อ.Yeadram
1,282 2
URL.หัวข้อ /
URL
เขียน Code อย่างไรดีครับใน Access
พอดีผมมือใหม่น่ะครับ รบกวนอาจารย์และเพ่อนๆ อีกครั้งน่ะครับ ว่าผมจะเขียนโค๊ดนี้อย่างไรครับใน MS Access 2010
**โดยตามรูปด้านบน
ถ้าผมติ๊กเลือก Check box ของ Chk1 ถึง Chk9 จนครบ แล้วพอผมกด Command Button ชื่อ CmdCheck แล้วจะมี Text ขึ้นโชว์ใน Txtbox ว่า "ข้อมูลครบถ้วนแล้ว" แต่ถ้ามี Check box ใดที่ยังไม่ได้ติ๊กเลือก ให้โชว์ว่า "ข้อมูลยังไม่สมบุรณ์"
2 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R12892
สร้าง Checkbox
สร้างปุ่ม แล้วเขียนคำสั่ง
Private Sub Command111_Click()
Dim x As Integer
Dim y As Integer
x = 0
If Me.Check109.Value = True Then
x = x + 1
End If
If Me.Check112.Value = True Then
x = x + 1
End If
If x = 2 Then
MsgBox "yes"
End If
End Sub
สร้างปุ่ม แล้วเขียนคำสั่ง
Private Sub Command111_Click()
Dim x As Integer
Dim y As Integer
x = 0
If Me.Check109.Value = True Then
x = x + 1
End If
If Me.Check112.Value = True Then
x = x + 1
End If
If x = 2 Then
MsgBox "yes"
End If
End Sub
Time: 0.3015s
dim i,j as integer
i=0
for j=1 to 9
i=i+abs(cint(me("chk" & j).checked))
next
if i=9 then msgbox "ข้อมูลครบถ้วนแล้ว"
End sub