Đánh giá chủ đề:
  • 7 Votes - 3 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Kiểm tra 1 form trong chương trình đã được mở hay chưa!
#1
Trong access, đôi khi bạn cần kiểm tra một form có đang load hay chưa để lấy về thông số, tránh động tác thừa vì đôi khi load lên một form dạng bảng, có nhiều đối tượng là rất lâu.
Function dưới đây sẽ giúp bạn giải quyết vấn đề đó một cách dễ dàng

Code:

Mã:
Function fIsLoaded(ByVal strFormName As String) As Boolean
'Giá trị trả về là 0 nếu chưa mở, -1 là đã mở rồi
    If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> 0 Then
        If Forms(strFormName).CurrentView <> 0 Then
            fIsLoaded = True
        End If
    End If
End Function
'****** Code End ********
===================================================
Cách 2:
Đơn giản hơn ta xét Function :

Mã:
If CurrentProject.AllForms("YourFormName").IsLoaded = True Then
do something
Else:
do something else
End If
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn ZUNGNN , haquocquan , Minh Tiên
#2
Smile 
Trời! mình chỉ mới học c# thôi nên nói tuyệt chiêu thì còn xa quá. cái code của bạn mình thật sự không biết làm. ah của mình kết nối cơ sỡ dữ liệu sql mà hôm trước mình tham khảo thử access. nhưng vẫn chẳng làm được. dù sao cũng cảm ơn bạn rất nhiều!!
Chữ ký của tieulongnu_tt Xin chào, mình là tieulongnu_tt, Tham gia http://thuthuataccess.com/forum từ ngày 25-09 -11.
Reply
Những người đã cảm ơn
#3
(09-08-10, 01:39 AM)Noname Đã viết: Trong access, đôi khi bạn cần kiểm tra một form có đang load hay chưa để lấy về thông số, tránh động tác thừa vì đôi khi load lên một form dạng bảng, có nhiều đối tượng là rất lâu.
Function dưới đây sẽ giúp bạn giải quyết vấn đề đó một cách dễ dàng

Code:

Mã:
Function fIsLoaded(ByVal strFormName As String) As Boolean
'Giá trị trả về là 0 nếu chưa mở, -1 là đã mở rồi
    If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> 0 Then
        If Forms(strFormName).CurrentView <> 0 Then
            fIsLoaded = True
        End If
    End If
End Function
'****** Code End ********
===================================================
Cách 2:
Đơn giản hơn ta xét Function :

Mã:
If CurrentProject.AllForms("YourFormName").IsLoaded = True Then
do something
Else:
do something else
End If

Noname ơi ! Code chuyển quyền ưu tiên màn hình về form như thế nào ? Nhờ Pro chỉ giáo luôn nhé !
Chữ ký của Minh Tiên -----------------------------------------------
Đường tuy ngắn, không đi không đến
Việc tuy nhỏ, không làm không nên.
                                           Tuân Tử
-----------------------------------------------
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Hỏi] Mở form có điều kiện. Các bác giúp em với! cannguyen 3 150 23-02-17, 09:46 AM
Bài mới nhất: dutuan80637
  Lấy dữ liệu từ 2 subform trong Mainform thanhtruong 3 112 19-02-17, 09:59 AM
Bài mới nhất: tranthanhan1962
  code chuyển đổi Hex sang ASCII trong access thanhtruong 9 324 13-02-17, 10:34 PM
Bài mới nhất: ongke0711
  [Help] Truy vấn nhiều giá trị, nhập trong 1 textbox duy nhất ở form ckno1no 11 713 23-01-17, 01:32 PM
Bài mới nhất: ckno1no
  [Help] khoanh vùng tìm kiếm trong Search Form Godspear 3 154 19-01-17, 05:31 AM
Bài mới nhất: Godspear

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ