Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Mở form mới và đóng hết các form đã mở trước đó?
#1
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.60_60
Chữ ký của hianhdung Xin chào, mình là hianhdung, Tham gia http://thuthuataccess.com/forum từ ngày 26-04 -12.
Reply
Những người đã cảm ơn
#2
(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.60_60

Mã:
DoCmd.OpenForm "frmD", acNormal
DoCmd.Close "frmC"
DoCmd.Close "frmB"
DoCmd.Close "frmA"
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Noname
#3
Tham khảo bài này
http://thuthuataccess.com/forum/thread-4791.html
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#4
(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.60_60

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


File đính kèm
.zip   DongForm.zip (Kích cỡ: 16.42 KB / Tải về: 32)
Chữ ký của domfootwear Xin chào Guest, nếu Guest biết thủ thuật nào thì nên chia sẻ cho cộng đồng nhé.
ღღღღღTài sản của domfootwear (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Cafe Via He , jason
#5
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
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
  Hướng Dẫn Tạo số phiếu thu trên form cawboy 9 281 3 Giờ trước
Bài mới nhất: maidinhdan
  Cho mình hỏi về file.ldb khi tắt form tieu_ngao 3 120 14-05-17, 11:55 AM
Bài mới nhất: ongke0711
  Tạo code cho form đăng nhập feeling 1 173 14-05-17, 10:50 AM
Bài mới nhất: nhannt4
  Hướng Dẫn Tạo sub form theo kiểu datasheet cawboy 2 138 11-05-17, 02:38 PM
Bài mới nhất: cawboy
  [Help] Điều khiển form thông qua mạng lan tranthanhan1962 2 78 11-05-17, 09:04 AM
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ơ