Đá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
  Thiết lập mở file pdf từ form feeling 1 77 10-08-17, 04:57 AM
Bài mới nhất: cpucloi
  Hiện nội dung record của subform lên main form hueqlhc 9 2,704 02-08-17, 04:36 PM
Bài mới nhất: tvn_hut
  Hướng Dẫn Hàm kiểm tra các Textbox Null, Highlight textbox và Custom Calendar ongke0711 2 199 21-07-17, 08:44 PM
Bài mới nhất: thanhtruong
Exclamation [Help] Truy vấn từ 1 list box trong form và điều chỉnh kích thước form tien1505 4 120 01-07-17, 12:34 AM
Bài mới nhất: tien1505
  [Hỏi] form tìm kiếm sản phẩm thanhhao 1 87 30-06-17, 05:04 PM
Bài mới nhất: tranthanhan1962

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ơ