สอบคำสั่ง Visible


0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

02 มี.ค. 65 , 11:28:50
อ่าน 509 ครั้ง

mivien20

  • สมาชิกไท.Access
  • กระทู้: 4

  • ขอบคุณ ไท.Access

    • ดูรายละเอียด

สอบคำสั่ง Visible
« เมื่อ: 02 มี.ค. 65 , 11:28:50 »
@สอบถาม 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


 

02 มี.ค. 65 , 14:05:25
ตอบกลับ #1

Un

: สอบคำสั่ง Visible
« ตอบกลับ #1 เมื่อ: 02 มี.ค. 65 , 14:05:25 »
จากคำสั่งในปุ่ม ไม่เห็นมีคำสั่ง Visible เลยนะครับ

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

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

 
โพสต์นี้ได้รับคำขอบคุณจาก: mivien20

03 มี.ค. 65 , 10:23:49
ตอบกลับ #2

mivien20

  • สมาชิกไท.Access
  • กระทู้: 4

  • ขอบคุณ ไท.Access

    • ดูรายละเอียด

: สอบคำสั่ง Visible
« ตอบกลับ #2 เมื่อ: 03 มี.ค. 65 , 10:23:49 »
จากคำสั่งในปุ่ม ไม่เห็นมีคำสั่ง 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

 

03 มี.ค. 65 , 12:03:11
ตอบกลับ #3

Un

: สอบคำสั่ง Visible
« ตอบกลับ #3 เมื่อ: 03 มี.ค. 65 , 12:03:11 »
ผมอ่านคำถามแล้วไม่รู้เข้าใจถูกป่าว
คือปุ่มคำสั่งนี้ ใช้กับคอมพิวเตอร์บางตัวได้ บางตัวไม่ได้
หรือ
ในเครื่องเดียวกัน เดี๋ยวได้เดี๋ยวไม่ได้

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

 
โพสต์นี้ได้รับคำขอบคุณจาก: mivien20

09 มี.ค. 65 , 14:28:05
ตอบกลับ #4

mivien20

  • สมาชิกไท.Access
  • กระทู้: 4

  • ขอบคุณ ไท.Access

    • ดูรายละเอียด

: สอบคำสั่ง Visible
« ตอบกลับ #4 เมื่อ: 09 มี.ค. 65 , 14:28:05 »
@UN ขอบคุณครับปัญหาที่เกิดขึ้นคือ ปุ่มคำสั่งนี้ ใช้กับคอมพิวเตอร์บางตัวได้ บางตัวไม่ได้ เป็น Access 2000-2003 ใช้ได้ ส่วนที่ไม่ได้สังเกตุว่าเป็น 2007 ครับ แล้วต้องแก้อย่างไรครับ

 

09 มี.ค. 65 , 16:11:11
ตอบกลับ #5

Un

: สอบคำสั่ง Visible
« ตอบกลับ #5 เมื่อ: 09 มี.ค. 65 , 16:11:11 »
@UN ขอบคุณครับปัญหาที่เกิดขึ้นคือ ปุ่มคำสั่งนี้ ใช้กับคอมพิวเตอร์บางตัวได้ บางตัวไม่ได้ เป็น Access 2000-2003 ใช้ได้ ส่วนที่ไม่ได้สังเกตุว่าเป็น 2007 ครับ แล้วต้องแก้อย่างไรครับ
มันมีคำสั่งหลายตัวที่เปลี่ยนครับ ต้องแก้ที่โปรแกรม แก้ทีละจุดที่มีการเปลี่ยนครับ

 
โพสต์นี้ได้รับคำขอบคุณจาก: mivien20

10 มี.ค. 65 , 08:33:27
ตอบกลับ #6

PNR

: สอบคำสั่ง Visible
« ตอบกลับ #6 เมื่อ: 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 จริงหรือเปล่า หรือแสดงค่าว่างอยู่
เพราะถ้าแสดงค่าว่าง มันจะไม่เข้าเงื่อนไขด้านล่าง
Time to stop for me  :dizzy:
 
โพสต์นี้ได้รับคำขอบคุณจาก: sjs, mivien20


บอร์ดเรียนรู้ Access สำหรับคนไทย