• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Mở form mới và đóng hết các form đã mở trước đó?

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • Mở form mới và đóng hết các form đã mở trước đó?
• Mở form mới và đóng hết các form đã mở trước đó?

• Mở form mới và đóng hết các form đã mở trước đó?

  hianhdung > 30-04-12, 06:51 PM

  Như tiêu đề, mình có thắc mắc: khi mở form mới mình muốn đóng tất cả các form đã mở trước đó để làm việc với 1 form duy nhất nhưng nghĩ mãi chưa ra. Bạn nào giúp hộ với.

• RE: Mở form mới và đóng hết các form đã mở trước đó?

  Xuân Thanh > 01-05-12, 03:34 PM

  (30-04-12, 06:51 PM)hianhdung Đã viết: Như tiêu đề, mình có thắc mắc: khi mở form mới mình muốn đóng tất cả các form đã mở trước đó để làm việc với 1 form duy nhất nhưng nghĩ mãi chưa ra. Bạn nào giúp hộ với.

  
  

  Mã:

  DoCmd.OpenForm "frmD", acNormal
DoCmd.Close "frmC"
DoCmd.Close "frmB"
DoCmd.Close "frmA"

• RE: Mở form mới và đóng hết các form đã mở trước đó?

  Noname > 01-05-12, 04:09 PM

  Tham khảo bài này
  http://thuthuataccess.com/forum/thread-4791.html

• RE: Mở form mới và đóng hết các form đã mở trước đó?

  domfootwear > 02-05-12, 08:55 AM

  (30-04-12, 06:51 PM)hianhdung Đã viết: Như tiêu đề, mình có thắc mắc: khi mở form mới mình muốn đóng tất cả các form đã mở trước đó để làm việc với 1 form duy nhất nhưng nghĩ mãi chưa ra. Bạn nào giúp hộ với.

  
  Dùng vòng lặp duyệt qua thấy form nào thì đóng form đó.
  Bạn chép code sau vào Module:
  
  

  Mã PHP:

  Option Compare Database
Public strFormName As String
Function CloseAllForms()
Dim obj As Object
For Each obj In Application.CurrentProject.AllForms
    If obj.Name <> strFormName Then
        DoCmd.Close acForm, obj.Name, acSaveYes
    End If
Next obj

End Function 


  
  Chép code sau vào các form:
  
  

  Mã PHP:

  Private Sub Form_Load()
strFormName = Me.Name
CloseAllForms
End Sub 


  
  Bạn xem thêm file đính kèm nhé.

• RE: Mở form mới và đóng hết các form đã mở trước đó?

  Minh Tiên > 07-06-13, 10:59 AM

  Tôi có demo khi mở Form mới, đóng tất cả các Form hiện đang mở dùng Function. Code đơn giản:
  1.Tạo Function
  
  Function DongtatcaForm()
  Do While Forms.Count > 0
  DoCmd.Close acForm, Forms(0).Name
  Loop
  End Function
  
  2.Khi mở Form mới:
  Private Sub Moform_Click()
  Call DongtatcaForm
  DoCmd.OpenForm "Form4"
  End Sub
  
  Demo
• Bài trước Bài tiếp