Đá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
  [S.O.S] Điều khiển hiển thị record trên form qua mạng LAN tranthanhan1962 6 183 3 Giờ trước
Bài mới nhất: tranthanhan1962
Photo [Hỏi] Xin giúp đỡ tạo form đăng nhập có liên kết với form Giao diện chính Thiên Hùng 4 110 4 Giờ trước
Bài mới nhất: cpucloi
  Hướng Dẫn Tiến, lùi trong Listbox cawboy 2 67 11-01-18, 02:18 PM
Bài mới nhất: cawboy
  [Help] Form không lưu định dạng sau khi chỉnh sửa toidjtjmtoi 2 115 09-01-18, 09:06 AM
Bài mới nhất: toidjtjmtoi
  Giới hạn chuột di chuyển trên form cpucloi 2 130 26-12-17, 12:26 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ơ