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

[hianhdung]

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.

[Xuân Thanh]

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"

[Noname]

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

[domfootwear]

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é.

[Minh Tiên]

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