ตรวจสอบว่าอ๊อปเจ็คเปิดอยู่หรือไม่
กระทู้เก่าบอร์ด อ.Yeadram

 1,231   4
URL.หัวข้อ / URL
ตรวจสอบว่าอ๊อปเจ็คเปิดอยู่หรือไม่

จะเขียนโค้ด vba ยังไงที่ใช้ในการตรวจสอบว่า ฟอร์ม รายงาน เปิดอยู่หรือไม่

4 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R01931
ค้นของเก่า ทั้งในบอร์ดใหม่นี้ และ/หรือในบอร์ดเก่าของ อ.สุภาพก็ได้
ลองใช้คำเหล่านี้ไปค้นดูครับ
Exist
Isload
2 @R01960
แบนนี้ครับ
ท่อนบน check form is open
ท่านล่าง check report is open


Option Compare Database
Option Explicit

'******************** Code Start ************************
Function fIsLoaded(ByVal strFormName As String) As Integer
'Returns a 0 if form is not open or a -1 if Open
    If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> 0 Then
        If Forms(strFormName).CurrentView <> 0 Then
            fIsLoaded = True
        End If
    End If
End Function
'******************** Code End ************************

Function fnIsReportLoaded(ByVal strReportName As String) As Integer
    If SysCmd(acSysCmdGetObjectState, acReport, strReportName) <> 0 Then
        If Forms(strReportName).CurrentView <> 0 Then
            fnIsReportLoaded = True
        End If
    End If
End Function

3 @R01963
CurrentProject.AllForms("ชื่อฟอร์ม").IsLoaded ให้่ค่า True เมื่อฟอร์มนั้นเปิดอยู่
CurrentProject.AllReports("ชื่อรายงาน").IsLoaded ให้่ค่า True เมื่อรายงานนั้นเปิดอยู่
4 @R01964
ขอบคุณมากคับ
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.2521s