Các khái niệm event

Sự kiện (event) là một hành động xác định xảy ra trên hoặc với một đối tượng nào đó. MS Access có thể đáp lại nhiều sự kiện: nhấn chuột, thay đổi dữ liệu, mở hoặc đóng form, ... Sự kiện thường là kết quả tạo ra bởi một hành động của người sử dụng.
Nội dung trích xuất từ tài liệu:
Các khái niệm event CÁC KHÁI NI MS ki n là gì?S ki n (event) là m t hành ng xác nh x y ra trên ho c v i m t i tư ng nào ó. MS Access có th áp l i nhi u s ki n: nh n chu t, thay i d li u, m ho c óng form, ... S ki n thư ng là k t qu t o ra b i m t hành ng c a ngư i sd ng.Th t c là gì?Th t c (procedure) là m t ơn v code c a VB. M t th t c bao g m m t dãy cácl nh (statement) ho c các phương th c (method) th c thi m t hành ng ho ctính toán m t giá tr .Th t c s ki n là gì?Th t c s ki n (event procedure) là m t th t c t ng th c thi áp l i m t ski n ư c kh i xư ng t m t hành ng c a ngư i dùng ho c t code c a chươngtrình.VD: Th t c s ki n sau ây s th c thi m t l nh m câu thông báo chàokhi form ư c m ra:Private Sub Form_Load()MsgBox Xin chào các b n.End SubM TS S KI N THƯ NG G P VÀ CÁCH ĐI U KHI N SKI NCác s ki n x y ra v i i tư ng Form:1. S ki n Open:S ki n x y ra khi form ư c m , nhưng trư c khi record u tiên ư c hi n th .(Ghi chú: i tư ng Report cũng có s ki n Open, trong report s k n Open x y ratrư c khi report ư c preview ho c ư c in)T khi g i form cho n khi form xu t hi n l n u trên màn hình, m t lo t các ski n x y ra, trong ó s ki n Open là s ki n ư c x y ra u tiên. Các s ki n nàyvà th i i m x y ra c a nó ư c th hi n b ng chu i sau:Open --> Load --> Resize --> Activate --> CurrentThu c tính g n v i s ki n Open có tên là OnOpen. (Các b n lưu ý: v i nh ng thu ctính b t u b ng On có nghĩa là s ki n ó ang di n ti n,Before là trư c khi ski n x y ra, After là sau khi s ki n x y ra).Th t c s ki n g n v i s ki n này là Form_Open. S ki n có m t tham s có tên làCancel ki u Integer (th c ch t nó ch nh n hai giá tr True và False). Tham s nàycác b n có th nh l i giá tr cho nó.N u nh là True, s ki n s b hoãn, nghĩa là s ki n s không hoàn t t, nhưngkhông x y ra l i. M c nhiên là False.VD: B n mu n r ng khi form A m ra thì form B s m ra n u ngư i s d ng ng ý,b n có th code cho th t c s ki n như sau:Private Sub Form_Open(Cancel As Integer)If MsgBox(Ban co muon form B mo ra dong th oi luon khong?, vbYesNo) =vbYes ThenDoCmd.OpenForm form BElseCancel = TrueEnd IfEnd SubGhi chú: B t kỳ m t th t c s ki n nào nó thông s là Cancel, thì ski n tương ng u có th cho ngưng không cho hoàn t t. Trong trư ngh p b n s d ng m t macro ho c m t phương th c c a DoCmd thì n u hoãnm t s ki n, s có m t error tr v . tránh xu t hi n l i thì n dùngmacro, b n có th t trư c macro ó m t macro SetWarnings và gán chothu c tính WarningOn là No, dùng DoCmd trong code thì trư c ó b n tcâu On Error Resume Next.2. S ki n Load:S ki n Load x y ra b i tác ng c a ngư i dùng như:-B t u m t ng d ng.- M m t form b ng cách nh p vào Open trên c a s Database.- Th c thi m t hành ng OpenForm trong macro.- G i form b ng DoCmd.OpenForm trong th t c.Thu c tính s ki n tương ng có tên là OnLoad.Th t c s ki n tương ng có tên là Form_Load, không có tham s .Khi i u khi n s ki n này, b n có th th c hi n nh ng công vi c sau:Thi t l p các giá tr m c nh cho các control ho c th hi n các giá tr tính toán tùythu c vào d li u có trên form.VD: Trong public module b n có m t bi n language. N u bi n này là V thì b n chohi n th các caption c a các Label là ti ng Vi t, E thì hi n th là ti ng Anh. Bi n nàys tùy thu c vào vi c ngư i ta ch n trong m t th t c nào ó trư c khi form b n ư c g i vào.Trư c tiên, khi thi t k form, các label, b n t các t ính l t tương ngproperty Tag c a nó.Sau ó b n thi t k th t c Form_Load như sau:Private Sub Form_Load ()Dim ctl As ControlFor Each ctl In Detail.Controls or FormHeader.Controls,FormFooter.ControlsIf TypeOf ctl Is Label Thenx = ctl.Captionctl.Caption = ctl.Tagctl.Tag = xEnd IfNextEnd Sub3. S ki n Resize:S ki n x y ra khi form ư c g i và b t c khi nào kích thư c c a form thay i.Thu c tính s ki n tương ng có tên là OnResize.Th t c s ki n tương ng có tên là Form_Resize. Th t c này không có tham s .Khi i u khi n s ki n này, b n có th :- Di chuy n ho c nh l i kích thư c c a m t control.- Tính toán l i các bi n.- Reset l i các thu c tính có liên quan n kích thư c c a form.VD: Khi có s thay i kích thư c c a form s cho hoàn t t nh ng c p nh t màn hìnhcòn ang treo ho c nh ng tính toán chưa th c hi n xong trên các control b ngphương th c Repaint.Private Sub Form_Resize()Me.RepaintEnd Sub4. S ki n Activate:S ki n x y ra khi m t form (cũng úng v i report) nh n m t focus (cái này khôngdám d ch ra ti ng vi t, b i d ch ra thì h ng ai hi u, còn nguyên thì ai cũng hi u !!! ) và tr thành c a s ho t ng.Thu c tính s ki n tương ng có tên là OnActivate.Th t c s ki n tương ng có tên là Form_Activate. Th t c không có tham s .VD: Bây gi b n có thi t k m t cái toolbar ch dành riêng cho form A. Như v y n ...