form Chấm công Gồm combo box tháng và combo box năm và nút xem và nút thoát

[zzzz0_zzzz0]

Mình muốn tạo 1 form Chấm công Gồm combo box tháng và combo box năm và nút xem và nút thoát
Mọi người giúp mình viết đoạn code để nút xem nếu tháng đã đc chấm công nút xem sẽ mở ra rptchamcong nếu tháng đó chưa chấm công thì sẽ mở ra frmchamcong . cám ơn mọi người ạ

 

[ongke0711]

Em nói rõ là xem và mở chấm công của 1 nhân viên hay toàn cty? cách xử lý sẽ khác nhau.
Code theo cách tôi làm là mở cái table bảng công, kiểm tra xem cái tháng đó có chưa rồi xử lý tiếp. Table BangCong phải có cột tháng.
Code tạm như sau:

Dim db As DAO.Database
Dim rstBangCong As DAO.Recordset

Set db = CurrentDb
Set rstBangCong = db.OpenRecordset("tblBangCong", dbOpenDynaset)
rstBangCong.FindFirst "Thang = '" & Me.cboThang & "'"
If Not rstBangCong.NoMatch Then '------->Neu tim thay
MsgBox "Bang cong thang nay da co roi"
Docmd.OpenReport "rptchamcong"
Else
Docmd.OpenForm "frmchamcong"
End If