1
ห้อง MS Access / : สอบคำสั่ง Visible
« เมื่อ: 10 มี.ค. 65 , 08:33:27 »
จากโค้ดนี้
Private Sub TWRD_AfterUpdate()
Me.TWRDC = DLookup("[WARDCODE]", "QY_ward_FW")
''Call Cmd84_Click
Me.TCtlrRCB = DCount("[LABNO]", "QAshow_Recivest2")
Me.Requery
msgbox DCount("[LABNO]", "QAshow_Recivest2")
If Me.TCtlrRCB > 0 Then
Me.Command81.Visible = True
Else
Me.Command81.Visible = False
End If
Me.TWHN.SetFocus
Me.Refresh
End Sub
ลองเพิ่ม msgbox DCount("[LABNO]", "QAshow_Recivest2")
ดูหน่อยว่ามันแสดงค่า 0 จริงหรือเปล่า หรือแสดงค่าว่างอยู่
เพราะถ้าแสดงค่าว่าง มันจะไม่เข้าเงื่อนไขด้านล่าง
Private Sub TWRD_AfterUpdate()
Me.TWRDC = DLookup("[WARDCODE]", "QY_ward_FW")
''Call Cmd84_Click
Me.TCtlrRCB = DCount("[LABNO]", "QAshow_Recivest2")
Me.Requery
msgbox DCount("[LABNO]", "QAshow_Recivest2")
If Me.TCtlrRCB > 0 Then
Me.Command81.Visible = True
Else
Me.Command81.Visible = False
End If
Me.TWHN.SetFocus
Me.Refresh
End Sub
ลองเพิ่ม msgbox DCount("[LABNO]", "QAshow_Recivest2")
ดูหน่อยว่ามันแสดงค่า 0 จริงหรือเปล่า หรือแสดงค่าว่างอยู่
เพราะถ้าแสดงค่าว่าง มันจะไม่เข้าเงื่อนไขด้านล่าง