ขอโทษค่ะ รูปแรกผิดค่ะ

ช่วยส่งไฟล์ไปให้ดูก่อนได้ไหมครับ จะช่วยดูให้ครับ

ขอโทษทีครับ ลืมบอกเมล์ [email protected] ครับ

ขอบคุณค่ะ

ยังทำไม่ได้เลยค่ะ

Private Sub datediff_BeforeUpdate(Cancel As Integer)
If (Me.end_date Is Not Null) Then
   Me.datediff.Visible = False
    End If
    
End Sub
ใช้คำสั่งนี้ไม่ทราบว่าผิดยังไง หรือว่าต้องใช้คำสั่งอื่น
รบกวนผู้รู้ด้วยค่ะ
ขอบคุณค่ะ

If IsNull(Me.Text2) = False Then
   Me.Text4.Visible = False
End If

ลองแบบนี้ดูครับ

ขอบคุณค่ะ คุณ sjs
แต่ว่าลองแล้วก็ยังไม่ได้ค่ะ
ยังโชว์อยู่เลย

Private Sub datediff_BeforeUpdate(Cancel As Integer)
    If isnull(Me.end_date)=false Then
      Me.datediff.Visible = False
    End If
     
End Sub

แล้วก็ดูว่าเราให้ทำงานตอนไหนด้วยนะครับ

โค้ดนี่จะทำงานตอนที่เปิดฟอร์มเลยค่ะ
ลองเปลี่ยนเป็น
Private Sub Form_Open(Cancel As Integer)
If IsNull(Me.end_date) = False Then
      Me.datediff.Visible = False
    End If
End Sub
ลองรันแล้วก็ยังไม่ได้ค่ะ คือในช่อง datediff จะไม่โชว์เลยค่ะ
ทั้งที่ค่าของ end_date เป็นค่าว่างและไม่ว่างค่ะ
ยังไงรบกวนด้วยนะค่ะ
ขอบคุณค่ะ

ลองรันแล้วก็ยังไม่ได้ค่ะ คือในช่อง datediff จะไม่โชว์เลยค่ะ

ลองทำภาพมาดูหน่อยครับหน้าจอ
หรือทำโปรแกรมเล็ก ๆเฉพาะตรงนี้ส่งมาที่เมล์

[email protected] ครับ

ลองประมาณนี้ดูนะครับ (ยังไม่ได้ test)

Private Sub Form_Current()
   Set_DateDiff_Visible
End Sub

Private Sub end_date_AfterUpdate ()
   Set_DateDiff_Visible
End Sub

Private Sub Set_DateDiff_Visible ()
   If Me.end_date Is Null Then
      Me.datediff.Visible = True
   Else
      Me.datediff.Visible = False
   End If
End Sub

ขอบคุณค่ะ คุณPichaiTC
ลองรันแล้ว ขึ้น
Run-time error 424
object required ที่บรรทัดนี้ค่ะ

Private Sub Set_DateDiff_Visible()
   If Me.end_date Is Null Then
      Me.datediff.Visible = True
   Else
      Me.datediff.Visible = False
   End If
End Sub

น่าจะ Set ที่ appoint date มากกว่าครับ

ตรง appoint date_AfterUpdate
Private Sub Appoint_Date_AfterUpdate()
If isnull(Me.end_date) Then
     Me.datediff.Visible = False
else
     Me.datediff.visible = true
End If



น่าจะประมาณนี้มากกว่านะครับ

ขอโทษครับ copy จาก คำตอบก่อนหน้า ลืมดู ว่าต้องให้ IsNull() แทน Is Null

แก้ตามนี้ครับ

Private Sub Set_DateDiff_Visible()
   If IsNull(Me.end_date) Then
      Me.DateDiff.Visible = True
   Else
      Me.DateDiff.Visible = False
   End If
End Sub