สอบคำสั่ง Visible

[mivien20]

@สอบถาม admin ครับ ทำคำสั่งที่ command81 ให้ visable true หรือ false ตามเงื่อนไขที่กำหนด แต่เจอว่า นำไป Run กับ คอมพิวเตอร์บ้างใช้ได้ บ้างตัวใช้ไม่ได้  Access ที่ใช้ คือ Access 2000 - 2003 ครับ ปัญหาที่เกิดจาก Computer มี่ไม่เป็นตามเงื่อนไขเกิดจากอะไรครับ

Private Sub Command81_Click()
Call Cmd49_Click
    If Me.TCtlrRCB > 0 Then
        DoCmd.OpenForm "TFrmAshow_Recive"
      Else
      MsgBox ".!!.Ward..äÁèÁÕÃÒ¡ÒáѺ..Blood bank..¹Ð¤ÃѺ..!!.", vbOKOnly + vbCritical, "Blood Bank PICHIT HOSP"
     End If
   
End Sub

[Un]

จากคำสั่งในปุ่ม ไม่เห็นมีคำสั่ง Visible เลยนะครับ

แต่มี Call Cmd49_Click  (ตรงนี้ให้ไปดูที่คำสั่ง Cmd49_Click ด้วย)

DoCmd.OpenForm "TFrmAshow_Recive" นี่ก็เป็นคำสั่งให้เปิดฟอร์มครับ

[mivien20]

จากคำสั่งในปุ่ม ไม่เห็นมีคำสั่ง Visible เลยนะครับ

แต่มี Call Cmd49_Click  (ตรงนี้ให้ไปดูที่คำสั่ง Cmd49_Click ด้วย)

DoCmd.OpenForm "TFrmAshow_Recive" นี่ก็เป็นคำสั่งให้เปิดฟอร์มครับ

ขอบคุณครับ UN
ชุดคำสั่งเป็นชุดนี้ครับ
Private Sub TWRD_AfterUpdate()

Me.TWRDC = DLookup("[WARDCODE]", "QY_ward_FW")

   ''Call Cmd84_Click
Me.TCtlrRCB = DCount("[LABNO]", "QAshow_Recivest2")
    Me.Requery
If Me.TCtlrRCB > 0 Then
    Me.Command81.Visible = True
   Else
   Me.Command81.Visible = False
End If
Me.TWHN.SetFocus
        Me.Refresh
End Sub

[Un]

ผมอ่านคำถามแล้วไม่รู้เข้าใจถูกป่าว
คือปุ่มคำสั่งนี้ ใช้กับคอมพิวเตอร์บางตัวได้ บางตัวไม่ได้
หรือ
ในเครื่องเดียวกัน เดี๋ยวได้เดี๋ยวไม่ได้

ถ้าเป็นอันแรก ก็ต้องดู Access ของเครื่องที่ทำได้ และที่ทำไม่ได้ด้วย
ถ้าเป็นอัน 2 ก็ต้องดูเงื่อนไขด้วย ว่าเป็นไปตามเงื่อนไขรึป่าว
เงื่อนไขนี้ If Me.TCtlrRCB > 0 Then
และคำสั่ง Visible ถ้ามี Focus ที่ปุ่มนั้น มันก็ไม่ทำงานนะครับ

[mivien20]

@UN ขอบคุณครับปัญหาที่เกิดขึ้นคือ ปุ่มคำสั่งนี้ ใช้กับคอมพิวเตอร์บางตัวได้ บางตัวไม่ได้ เป็น Access 2000-2003 ใช้ได้ ส่วนที่ไม่ได้สังเกตุว่าเป็น 2007 ครับ แล้วต้องแก้อย่างไรครับ

[Un]

@UN ขอบคุณครับปัญหาที่เกิดขึ้นคือ ปุ่มคำสั่งนี้ ใช้กับคอมพิวเตอร์บางตัวได้ บางตัวไม่ได้ เป็น Access 2000-2003 ใช้ได้ ส่วนที่ไม่ได้สังเกตุว่าเป็น 2007 ครับ แล้วต้องแก้อย่างไรครับ

มันมีคำสั่งหลายตัวที่เปลี่ยนครับ ต้องแก้ที่โปรแกรม แก้ทีละจุดที่มีการเปลี่ยนครับ

[PNR]

จากโค้ดนี้
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 จริงหรือเปล่า หรือแสดงค่าว่างอยู่
เพราะถ้าแสดงค่าว่าง มันจะไม่เข้าเงื่อนไขด้านล่าง