Đá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ề: 127)
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
  Chuyển đổi Access 97 sang Access 2007 huuduy.duy 6 341 11-08-17, 08:49 PM
Bài mới nhất: tranthanhan1962
  Tự chọn 1 trong 2 filed Giá theo điều kiện Global_virus 1 98 22-07-17, 03:05 AM
Bài mới nhất: cpucloi
  Nên bắt đầu với Access và VBA như thế nào? lehongduc 17 582 15-07-17, 02:51 AM
Bài mới nhất: tranthanhan1962
  Sửa các VBA và macaro khi chuyển access 2003 sang 2007 thanhtruong 9 515 24-06-17, 01:15 AM
Bài mới nhất: maidinhdan
  thay đổi biểu tượng Access dưới thanh Start từ win 7 đến win 10 thanhtruong 8 939 23-06-17, 03:25 PM
Bài mới nhất: thanhtruong

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ơ