Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
hỏi về code đóng mở form trong access
#1
Question 
xin anh/chị chỉ dùm e cái code đóng mở form trong access. tình hình là em muốn mở cái form này thì cái form trước đó sẽ bị đóng lại, khi đóng cái form hiện tại thì cái form trước đó sẽ tự động đc mở lại ( là mình đag ở form ông nội mà mình mở form cha thì form ông nội sẽ bị đóng lại và mở form con thì form cha sẽ bị đóng lại. còn khi mình đóng form con thì form cha sẽ tự động đc mở lại và đóng form cha thì form og nội sẽ tự động đc mở lại)
e xin cám ơn các anh/chị nhiều nhaStarStarStar
Chữ ký của cuongvan09 Xin chào, mình là cuongvan09, Tham gia http://thuthuataccess.com/forum từ ngày 17-03 -12.
Reply
Những người đã cảm ơn
#2
Bạn chọn hai thuộc tính pop up=yes và Medal= yes.

Mình tin chắc là được. nhưng nhiều khi cũng phiền toái cho người dùng đó.

Chúc Bạn thành công!
Chữ ký của gialilama Xin chào, mình là gialilama, Tham gia http://thuthuataccess.com/forum từ ngày 08-02 -12.
Reply
Những người đã cảm ơn Noname , cuongvan09
#3
Giả sử bạn có hai form là FormChaFormCon. Bạn muốn khi mở FormCon thì tự đóng FormCha, và khi đóng FormCon thì FormCha tự mở lại. Dưới đây là cách thực hiện:

Bạn tạo một module vào copy code sau vào:
Mã:
' Cho âÒn hiêòn form Form
'Write by Noname
'Site thuthuataccess.com
Sub setVisibleForm(myForm As String, Visible As Boolean)
If visible Then
    If Forms(myForm).CurrentView = 0 Then
        DoCmd.OpenForm myForm
     End If
End If
Forms(myForm).Visible = Visible

End Sub
Trong sự kiện Form_Load của form con, bạn cho code sau vào:
Mã:
Private Sub Form_Load()
setVisibleForm "FormCha", False ' thay chu  FormCha bang form truoc do cua ban
End Sub

Trong sự kiện Unload của Form Con, cho code sau vào:
Mã:
Private Sub Form_Unload(Cancel As Integer)
setVisibleForm "FormCha", True
End Sub

Xem demo


File đính kèm
.zip   anhienformchacon.zip (Kích cỡ: 14.47 KB / Tải về: 123)
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn cuongvan09 , gialilama , Cafe Via He , khaccuong , ngocbich_19
#4
Câu lệnh cho nút Đóng của frmCha
Mã:
Private Sub cmdDong_Click()
DoCmd.OpenForm("frmCon", acNormal)
Docmd.Close
End Sub
Tương tự cho frCon
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 Cafe Via He


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Help] Lỗi "A problem occurred while Microsoft Access was communicating with the OLE server thanhoai 1 109 03-11-16, 03:53 PM
Bài mới nhất: maidinhdan
  [Hỏi] Việc set thuộc tính OnClick trong Code toancvp 5 230 31-10-16, 10:14 AM
Bài mới nhất: toancvp
  [Lỗi] Cúp điện ---> lỗi access 2013 biencuong86 3 152 26-10-16, 04:30 PM
Bài mới nhất: maidinhdan
  [Help] Thiết kế form nhập và lưu trữ dữ liệu theo yêu cầu brianhuynh 16 625 20-10-16, 10:54 PM
Bài mới nhất: brianhuynh
  [Hỏi] Cách loại bỏ icon Filter trên Datasheet Form có nguồn là Query. toancvp 2 103 19-10-16, 08:53 PM
Bài mới nhất: toancvp

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ơ