Đá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
  [Lỗi] Access không chạy được code minhminh25767 5 220 15-12-18, 06:57 AM
Bài mới nhất: khải nguyên
  [Help] Đánh số thứ tự các dòng lệnh trong VBA Cuong Servenet 5 198 07-12-18, 08:20 AM
Bài mới nhất: Cuong Servenet
  [Hỏi] Gán macro vào form là form bị lỗi cannguyen 1 121 01-12-18, 10:03 AM
Bài mới nhất: cannguyen
  [Hỏi] Cách tạo form chấm công theo tháng vuthaiha90 4 257 29-11-18, 07:41 PM
Bài mới nhất: tranthanhan1962
  [Hỏi] Textbox Search và sửa ngay trên Form vuthaiha90 1 247 22-11-18, 04:28 PM
Bài mới nhất: lamvankhanh

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ơ| PMA Nha Trang| Gỗ Acrylic Không Đường Line| Phần mềm quản lý bán hàng, công nợ- tồn kho- nhà phân phối