Hệ thống ứng dụng dữ liệu report để chỉnh sửa application

w bu y N O W ! h a n g e Vi e k lic c Report wizard cho phộp ti a mc u tiờn sp xp d liu c ỏnh s t n (hp thoi trờn) Trng no thit lp trc, s c u tiờn sp xp trc Trong trng hp giỏ tr trng ú trựng nhau, Access s chuyn n cỏc mc tip theo sp xp Kiu sp xp (theo chiu tng hoc gim) cú th thit lp nhn nỳt bờn cnh Thit lp xong nhn Next tip tc: Bc 6: Chn b cc (Layout) cho Report: Cú thit lp bc ny: - Chn b cc cho report hp Layout Cú kiu Layout: Columnar, Tabular v Justified- hóy chn mt kiu phự hp (xem hp preview bờn trỏi bit trc kt qu); - Chn hng giy in hp Orientation Cú kiu hng in l: Portrait in theo kh giy dc v Landscape- in theo kh giy ngang; - Chn xong nhn Next tip tc: Bc 7: Chn mu nh dng (Style) cho report: Trang 104 d o m o o c u -tr a c k C m C lic w w w d o w w w XC to N y bu đ k to Giỏo trỡnh hỡnh thnh h thng ng dng d liu Giỏo trỡnh Microsoft Access 2000 Copyright Nguyn Sn Hi report chnh sa application F- er O W w PD h a n g e Vi e ! XC er PD F- c u -tr a c k c ! O W N to k lic c u -tr a c k Hóy chn mt mu nh dng t danh sỏch bờn trỏi hp thoi Chn xong nhn Next tip tc: Bc 8: Hon thin cỏc thụng tin cui cựng: Bao gm cỏc thụng tin sau: - Gừ vo tiờu report cng nh tờn report trờn hp What you want for yu report?; Trang 105 d o o c m C m w o d o w w w w w C lic k to bu Copyright Nguyn Sn Hi w y N đ h a n g e Vi e bu y Giỏo trỡnh Microsoft Access 2000 XC er O W F- w PD h a n g e Vi e ! XC er PD F- c u -tr a c k c ! O W N to k lic c u -tr a c k - Chn Preview the report hin th d liu ca report sau kt thỳc; hoc hin th mn hỡnh thit k sa cu trỳc report chn Modify the reports design; - Cui cựng nhn Finish kt thỳc cỏc cụng vic s dng report wizard Mn hỡnh hin th d liu report nh sau: T mn hỡnh ny cú th thc hin rt nhiu cỏc thao tỏc thụng qua cụng c Print Preview nh sau: Nỳt Print : in ni dung report mỏy in; Nuớt Design : m report ch thit k; Nỳt One page : hin th report mn hỡnh tng trang bỏo cỏo; Trang 106 d o o c m C m w o d o w w w w w C lic k to bu Copyright Nguyn Sn Hi w y N đ h a n g e Vi e bu y Giỏo trỡnh Microsoft Access 2000 XC er O W F- w PD h a n g e Vi e ! XC er PD F- c u -tr a c k c ! O W N to k lic c u -tr a c k Nỳt Two page Nỳt Multi Page : hin th trang bỏo cỏo mt trờn mn hỡnh; : chn nhiu trang bỏo cỏo cú th hin th trờn mn hỡnh; Nỳt Zoom : phúng to, thu nh ni dung report; Nỳt Office Link : kt xut (Export) thụng tin trờn report cỏc loi nh dng khỏc ca MS Office nh Word, Excel, HTML Nỳt Close : úng mn hỡnh preview report Ton b bc s dng report wizard lit kờ trờn, khụng phi lỳc no cng cn thc hin y Vi nhng report n gin nh trờn, ch cn thc hin Bc 1; Bc ó cú th nhn Finish kt thỳc Tuy nhiờn tu vo yờu cu in bỏo cỏo m mun dng li bc no thit lp cỏc thụng tin cho phự hp hóy chuyn nhanh n bc ú Thit k report Phn trc ó trỡnh by cỏc bc dựng Report wizard cú th thit k cỏc mu bỏo cỏo in n d liu t CSDL ú l cỏch lm rt d dng v nhanh chúng Tuy nhiờn, cỏc mu bỏo cỏo c sinh ch gii hn theo mt s mu mó mỏy tớnh ó cung cp sn, khụng th in c nhng biu bỏo cỏo phc theo nh nhng yờu cu a dng ca ngi s dng Report wizard ch cú th to cỏc report in d liu t cỏc bng hoc queries theo cu trỳc n gin; nhng trng hp yờu cu cu trỳc report phc tp, hoc phi in d liu khụng phi hon ton ch t cỏc bng v queries hoc in n bỏo cỏo theo cỏc tiờu chớ, tham s ng no ú thỡ khụng th ỏp ng c Trong trng hp ny phi dựng n Report design view Trong chng mc no ú, cỏch lm vic vi Report design view gn ging cỏch lm vic vi Form design view Sau õy l tng bc hng dn s dng Report design view thit report theo yờu cu nh trờn: Bc 1: Khi ng Report design view: T th Report nhn nỳt New, chn Design view, nhn OK Trang 107 d o o c m C m w o d o w w w w w C lic k to bu Copyright Nguyn Sn Hi w y N đ h a n g e Vi e bu y Giỏo trỡnh Microsoft Access 2000 XC er O W F- w PD h a n g e Vi e ! XC er PD F- c u -tr a c k c ! O W N to k lic c u -tr a c k Hoc nhn ỳp chut lờn biu tng Creat report in Design view trờn ca s d ỏn: Mụi trng lm vic vi Report design view xut hin: Trang 108 d o o c m C m w o d o w w w w w C lic k to bu Copyright Nguyn Sn Hi w y N đ h a n g e Vi e bu y Giỏo trỡnh Microsoft Access 2000 XC er O W F- w PD h a n g e Vi e ! XC er PD F- c u -tr a c k c ! O W N to k lic c u -tr a c k Cú phn quan trng trờn mụi trng lm vic ny: (1) Ca s thit k Report (hỡnh trờn tiờu ca s ny l Report1: Report)ni thit k ni dung cn in n Ni dung c thit k trờn ca s ny l cỏc i tng t cụng c Toolbox sau ó c thit lp cỏc thuc tớnh phự hp vi mc ớch; (2) Thanh cụng c Toolbox- ni cha nhng i tng giỳp a cỏc thụng tin cn thit lờn report Chc nng v cỏch lm vic trờn cụng c ny gn ging vi lm vic trờn cụng c Toolbox ca Form design view; (3) Ca s Properties ni thit lp cỏc thuc tớnh phự hp cho cỏc i tng trờn mn hỡnh thit k report Chỳng ta s c tỡm hiu k hn cỏc thnh phn trờn cỏc bc tip theo lm vic c th vi chỳng Bc 2: Xõy dng ngun d liu in n cho report Trang 109 d o o c m C m w o d o w w w w w C lic k to bu Copyright Nguyn Sn Hi w y N đ h a n g e Vi e bu y Giỏo trỡnh Microsoft Access 2000 XC er O W F- w PD h a n g e Vi e ! XC er PD F- c u -tr a c k c ! O W N to k lic c u -tr a c k Report s in nhng thụng tin gỡ? Phm vi nh th no? L cỏc cõu hi phi c tr li bc ny bng cỏch thit lp thuc tớnh Record Source cho report Thụng thng, report s in d liu t mt hay nhiu bng hoc t kt qu ca mt query, tng quỏt l t mt query Query ú cú th c xõy dng sn t danh sỏch cỏc Queries ca d ỏn (cha trờn th Queries)- ú bc ny ch chn query cn in ti thuc tớnh Record Source ca report: Tuy nhiờn query cn in cú th c to chớnh bn thõn report (khụng hin th tờn query trờn th Queries)- iu ny nờn lm vỡ nh vy s m bo s chc chn ca report Khi ú hóy nhn chut lờn nỳt ca thuc tớnh Record Source: Mt ca s thit k query lm ngun d liu cho report xut hin: Trang 110 d o o c m C m w o d o w w w w w C lic k to bu Copyright Nguyn Sn Hi w y N đ h a n g e Vi e bu y Giỏo trỡnh Microsoft Access 2000 XC er O W F- w PD h a n g e Vi e ! XC er PD F- c u -tr a c k c ! O W N to k lic c u -tr a c k Hóy thit lp cỏc thụng tin cn in report trờn query ny Thit lp xong nhn nỳt úng ca s thit k query (hoc nhn phớm núng Ctrl+W) v chn Yes hp thoi sau: Bc 3: a cỏc thụng tin lờn ca s thit k report: (1) Cú rt nhiu loi thụng tin phi a lờn report Mi cú ý nh a mt thụng tin lờn, bn phi tr li c cõu hi: ú l thụng tin gỡ? l tiờu DANH SCH CN B S t thụng tin ú lờn phn no ca report? t lờn phn Page Header! (2) Theo ngm nh, ca s thit k report ch xut hin phn: Page header, Page footer v Detail Nu report ang thit k yờu cu cú c Report header v Report footer, hóy hin th chỳng bng cỏch: nhn phi chut lờn ca s thit k report v chn: Trang 111 d o o c m C m w o d o w w w w w C lic k to bu Copyright Nguyn Sn Hi w y N đ h a n g e Vi e bu y Giỏo trỡnh Microsoft Access 2000 XC er O W F- w PD h a n g e Vi e ! XC er PD F- c u -tr a c k c ! O W N to k lic c u -tr a c k Hin th li thit k Bt hoc tt phn Page header/Footer Bt hoc tt phn Report header/Footer Nhng phn no khụng dựng n thit k cú th tt i hoc dựng chut thu li din tớch phn ú (3) S dng cụng c Label - Dựng chut nhp nỳt Label trờn cụng c Toolbox th lờn v trớ cn t vo trờn Report; - Gừ vo ni dung tiờu cn in report; - Cú th s dng cụng c Formatting nh dng hp d liu ny (4) S dng cụng c Text box Text box l ụ dựng hin th d liu ca mt trng d liu (Field) no ú, hin th d liu ca mt biu thc (vớ d tớnh Tng tin chng hn) Cỏch s dng Textbox nh sau: - Dựng chut nhp nỳt Textbox trờn cụng c Toolbox th lờn v trớ cn t vo trờn Report; - Gừ vo ngun d liu s hin th lờn Textbox thuc tớnh Control Source Giỏ tr thuc tớnh ny cú th: + Hin th giỏ tr mt trng: Khi ú hóy chn trng mun a thụng tin vo (hỡnh di): Trang 112 d o o c m C m w o d o w w w w w C lic k to bu Copyright Nguyn Sn Hi w y N đ h a n g e Vi e bu y Giỏo trỡnh Microsoft Access 2000 XC er O W F- w PD h a n g e Vi e ! XC er PD F- c u -tr a c k c ! O W N to k lic c u -tr a c k + Hoc hn th kt qu mt biu thc Khi ú gừ biu thc lờn thuc tớnh ny bt u mt du bng = Vớ d: (5) Cú th s dng cụng c Formatting nh dng hp d liu ny S dng ca s Field List Danh sỏch cỏc trng d liu cú th in c report th hin ca s Field List (nu cha thy hin th m thc n View | Field List) Mun in giỏ tr ca trng no lờn v trớ no ca report cú th dựng i tng Textbox nh gii thiu trờn hoc cú th dựng ca s Field List ny bng cỏch: dựng chut kộo trng cn in t ca s Field List th lờn v trớ cn in trờn ca s thit k report (nờn lm theo cỏch ny thay vỡ dựng Textbox) (6) S dng cụng c Image Cụng c Image trờn cụng c Toolbox giỳp a nh t cỏc tin nh in report Sau dựng chut nhp nỳt nỳt Image t cụng c t lờn report, mt hp thoi xut hin cho phộp tỡm n tin nh cn a lờn report: Trang 113 d o o c m C m w o d o w w w w w C lic k to bu Copyright Nguyn Sn Hi w y N đ h a n g e Vi e bu y Giỏo trỡnh Microsoft Access 2000 XC er O W F- w PD h a n g e Vi e ! XC er PD F- c u -tr a c k c ! O W N to k lic c u -tr a c k mt c thc s u tiờn, kt lun khụng phi s nguyờn t bi lnh nguyento = False v thoỏt vũng lp bng lnh Exit For; trng hp xột ton b cỏc c cú th m khụng tỡm c mt s no l c thc s, kt lun õy l s nguyờn t (bin nguyento = True nh giỏ tr ban u) 3.4 Cu trỳc WHILE WEND While Wend l mt cu trỳc lp khụng bit trc s ln lp VBA.Cỳ phỏp cu trỳc WhileWend nh sau (Wend - vit tt ca cm t While End): While Wend Trong ú: - While, Wend l cỏc t khoỏ ca lnh lp; - Nu = True, cỏc lnh s c thc hin Thc hin xong li quay lờn dũng lnh While kim tra tip ; - Nu = False, s thoỏt vũng lp v thc hin lnh tip theo t khoỏ Wend Chỳ ý: Luụn phi chng minh c rng, sau mt s hu hn ln thc hin , giỏ tr ca phi l False thoỏt vũng lp Trong trng hp khụng th thoỏt vũng lp, cú ngha ngi lp trỡnh ó mc phi li lp vụ hn Cú th dn n chng trỡnh b treo Cỏc vớ d: Vớ d 1: Tớnh tng cỏc s chia ht cho khong t n 50 Dim i As Byte Dim tong As Integer tong = i = While i Then For uoc = To Int(Sqr(so)) If so Mod uoc = Then laNguyenTo = False Exit For End If Next End If End Function Vớ d trờn cú s dng n: - hm Int(number) hm ly phn nguyờn ca mt s; - hm Sqr(number) hm ly cn bc hai mt s Vớ d 3: hm tỏch tờn xõu h v tờn õy l mt bi toỏn gp phi rt nhiu thc t C th bi toỏn gii quyt sau: Nu bit h tờn l Nguyn Sn Hi, hm s tỏch c tờn l Hi Ton b mó lnh hm nh sau: Function GetTen(hoten As String) As String Dim pos As Integer pos = If InStr(pos, Trim(hoten), " ") = Then GetTen = hoten Exit Function End If While InStr(pos + 1, Trim(hoten), " ") > Trang 145 d o o c m C m w o d o w w w w w C lic k to bu Copyright Nguyn Sn Hi w y N đ h a n g e Vi e bu y Giỏo trỡnh Microsoft Access 2000 XC er O W F- w PD h a n g e Vi e ! XC er PD F- c u -tr a c k c ! O W N to k lic c u -tr a c k pos = InStr(pos + 1, Trim(ten), " ") Wend GetTen = Mid(hoten, pos) End Function Vớ d 4: Hm dựng so sỏnh xõu kiu ch TCVN3 chỳng tụi a di õy l mt tham kho rt tt Trong Word, Access cng nh cỏc bng d liu ting Vit cú du trờn mỏy tớnh, vic sp xp xõu ký t l mt bi toỏn m ngi Vit phi gii quyt Vớ d, di õy l mt danh sỏch trờn Word: STT Tờn Quang c on Bng Bang An n Sau s dng tớnh nng sp xp (Sort) ca Word theo ct Tờn theo th t tng dn, c danh sỏch kt qu nh sau: STT Tờn Ân Đoàn Đức An Băng Trang 146 d o o c m C m w o d o w w w w w C lic k to bu Copyright Nguyn Sn Hi w y N đ h a n g e Vi e bu y Giỏo trỡnh Microsoft Access 2000 XC er O W F- w PD h a n g e Vi e ! XC er PD F- c u -tr a c k c ! O W N to k lic c u -tr a c k Bang Quang M danh sỏch sp xp ỳng phi l: STT Tờn An n Bang Bng on c Quang Hm Mahoa di õy s giỳp qui i mt xõu ting Vit chun TCVN3 (b phụng ABC) v dng khụng du Mun sp xp hay so sỏnh v th cỏc xõu, hóy so sỏnh cỏc xõu khụng du c chuyn i bi hm Mahoa ny Private Dim Dim Dim Function MahoaTCVN3(Ckt As String) kq, kti As String vt1, vt2, i As Integer Cgoc1, Cma1 As String, Cgoc2, xd, Cma2 As String Cgoc1 = "aàảãáạăằẳẵắặâầẩẫấậeèẻẽéẹêềểễếệiìỉĩíịoòỏõóọôồổỗốộơờởỡớợuùủũúụừửữứ ựyỳỷỹýỵ" Cma1 = "abadafaparazblbnbpcbcdcl1b1c1d1e1f1a" Cgoc2 = "AaĂăÂâBbCcDdĐđEeÊêFfGgHhIiJjKkLlMmNnOoÔôƠơPpQqRrSsTtUuƯVvWwXxYyZ z" Cma2 = "aaabacadaeafagahaiajakalamanaoapaqarasatauavawaxayazbabbbcbdbebfb gbhbibjbkblbmbnbobpbqbrbsbtbubvbwbxbybzcccbcccdcecfcgchcicjckclcmc n" Trang 147 d o o c m C m w o d o w w w w w C lic k to bu Copyright Nguyn Sn Hi w y N đ h a n g e Vi e bu y Giỏo trỡnh Microsoft Access 2000 XC er O W F- w PD h a n g e Vi e ! XC er PD F- c u -tr a c k c ! O W N to k lic c u -tr a c k kq = "" xd = "" For i = To Len(Ckt) kti = Mid(Ckt, i, 1) vt1 = InStr(Cgoc1, kti) If vt1 Then kq = kq & Mid(Cma1, + ((vt1 - 1) \ 6) * 2, 2) xd = xd & Mid(Cma1, 25 + ((4 + vt1) Mod 6) * 2, 2) Else vt2 = InStr(Cgoc2, kti) If vt2 Then kq = kq & Mid(Cma2, (vt2) * - 1, 2) Else kq = kq + kti End If End If Next i MahoaTCVN3 = kq & xd End Function Function Mahoa(Ckt As String) As String Dim vt1 As Integer Dim kq, Ctam As String Ckt = Ckt & " " kq = "" vt1 = InStr(Ckt, " ") Do While vt1 Ctam = Trim(Left(Ckt, vt1 - 1)) Ckt = Right(Ckt, Len(Ckt) - vt1) kq = MahoaTCVN3(Ctam) & " " & kq vt1 = InStr(Ckt, " ") Loop Mahoa = kq End Function 4.2 Chng trỡnh dng th tc Cỳ phỏp [Public] [Private] Sub ([]) End Sub Trong ú: Trang 148 d o o c m C m w o d o w w w w w C lic k to bu Copyright Nguyn Sn Hi w y N đ h a n g e Vi e bu y Giỏo trỡnh Microsoft Access 2000 XC er O W F- w PD h a n g e Vi e ! XC er PD F- c u -tr a c k c ! O W N to k lic c u -tr a c k - Sub, End Sub l cỏc t khoỏ bt buc khai bỏo cu trỳc mt chng trỡnh dng th tc; - l tờn gi th tc nh khai bỏo Tờn khụng c cha du cỏch (space) v cỏc ký t c bit; - - danh sỏch cỏc tham s cn thit cho th tc Cú hay khụng cú danh sỏch ny tu thuc vo th tc cn to - - thõn chng trỡnh Nu khụng cú t khoỏ Public trc Sub, th tc ú ch cú tỏc dng cc b: mt module, mt report hoc mt form Khi cú t khoỏ Public trc Sub, th tc s cú tỏc dng ton cc Tc l cú th s dng bt k ni no trờn Access ú Tt nhiờn, tt c nhng gỡ khai bỏo l Public phi c khai bỏo phn Decralations ca mt Module no ú Cỏc vớ d: Vớ d 1: Th tc tớnh tng hai s Sub tong2so(a, b As Double) tong = a + b chỳ ý: tong- l bin c khai bỏo ton cc End Sub Vớ d 2: Cng l tớnh tng, nhng th tc sau õy khụng cú ý ngha gỡ! Sub tong2so(a, b As Double) Dim tong As Double tong = a + b chỳ ý: tong- l bin c khai bỏo ton cc End Sub Vỡ sao? Vỡ bin tong c khai bỏo cc b CTC tong2so, nờn CTC ny kt thỳc, bin tong cng b gii thoỏt b nh luụn Khụng gõy nh hng gỡ n d liu cng nh th hin ca chng trỡnh Trang 149 d o o c m C m w o d o w w w w w C lic k to bu Copyright Nguyn Sn Hi w y N đ h a n g e Vi e bu y Giỏo trỡnh Microsoft Access 2000 XC er O W F- w PD h a n g e Vi e ! XC er PD F- c u -tr a c k c ! O W N to k lic c u -tr a c k K thut x lý li X lý li l k thut rt quan trng lp trỡnh ó lp trỡnh thỡ khú trỏnh li (Errors) Cú rt nhiu nguyờn nhõn gõy li; cỏc nguyờn nhõn ny cú th c lng trc hoc khụng c lng trc K thut x lý li bao gm cỏc k nng phỏt hin v x lý cỏc tỡnh chng trỡnh gõy li 5.1 X lý li L vic x lý ang lp trỡnh gp phi li Thụng thng chy th chng trỡnh lỳc ang xõy dng phn mm nu gp phi li, s xut hin hp thoi thụng bỏo li cú dng: Thụng thng mt hp thoi thụng bỏo li gm thnh phn: - Thnh phn bỏo li bao gm: + Mó s li - Mi li m VBA cú th kim tra c u cú mt mó s, c hin th dũng thụng bỏo: Run-time error 'mó s li': Vớ d trờn l : Run-time error '11': + Tờn li vớ d trờn tờn li l: Division by zero - li sai kiu d liu - Thnh phn x lý li gm nỳt lnh: + Nỳt - dng chng trỡnh, chuyn v ch Design - thit k bỡnh thng; + Nỳt - dng chng trỡnh chuyn v ch Break - sa li trc tip Khi ú cõu lnh li s c tụ bi mu nn vng cho phộp ngi lp trỡnh cú th s c mó chng trỡnh: Trang 150 d o o c m C m w o d o w w w w w C lic k to bu Copyright Nguyn Sn Hi w y N đ h a n g e Vi e bu y Giỏo trỡnh Microsoft Access 2000 XC er O W F- w PD h a n g e Vi e ! XC er PD F- c u -tr a c k c ! O W N to k lic c u -tr a c k Khi dch chut lờn mt bin no ú, giỏ tr bin s c hin th di dng Tool tip Hỡnh trờn di chut lờn bin b, giỏ tr bin b xut hin di dng Tool tip (giỏ tr b = 0) Sau chn nỳt Debug, bn hon ton cú th thc hin sa mó lnh chng trỡnh Tuy nhiờn, mt s trng hp sa mó lnh VBA s hi: Trang 151 d o o c m C m w o d o w w w w w C lic k to bu Copyright Nguyn Sn Hi w y N đ h a n g e Vi e bu y Giỏo trỡnh Microsoft Access 2000 XC er O W F- w PD h a n g e Vi e ! XC er PD F- c u -tr a c k c ! O W N to k lic c u -tr a c k iu ny cú ngha: vic sa i mó lnh va ri, VBA yờu cu phi tr v ch thit k bỡnh thng nu nhn Ok; trỏi li nhn Cancel- vic thay i mó lnh s khụng c chp nhn Sau thc hin sa mó lnh, bn cú th yờu cu VBA thc thi tip chng trỡnh Vic thc thi s c tin hnh tip tc ti v trớ vt sỏng ang tr Bn cú th dựng chut dch chuyn vt sỏng v lnh cn thc thi (ch cựng mt chng trỡnh con) thc thi tip nhn phớm F5 hoc nỳt Continue cụng c; hoc nhn nỳt Stop trờn nu mun dng vic sa mó lnh ch Break, chuyn v ch Design Trang 152 d o o c m C m w o d o w w w w w C lic k to bu Copyright Nguyn Sn Hi w y N đ h a n g e Vi e bu y Giỏo trỡnh Microsoft Access 2000 XC er O W F- w PD h a n g e Vi e ! XC er PD F- c u -tr a c k c ! O W N to k lic c u -tr a c k Ca s Immediate L cụng c hu hiu h tr vic dũ li bi: hp thoi ny cho phộp thc thi tng cõu lnh trờn ch hi thoi Gi s vớ d trờn sau gừ lnh: ? b Xem giỏ tr ca bin b Sau nhn Enter s nhn c kt qu Hoc nu gừ: Trang 153 d o o c m C m w o d o w w w w w C lic k to bu Copyright Nguyn Sn Hi w y N đ h a n g e Vi e bu y Giỏo trỡnh Microsoft Access 2000 XC er O W F- w PD h a n g e Vi e ! XC er PD F- c u -tr a c k c [...]... box một form như sau: Sau khi chọn tên một phòng ban từ danh sách, nhấn nút In danh sách Danh sách cán bộ phòng đã chọn sẽ được in ra một report Cách làm: Bước 1: Tạo Report đáp ứng thông tin cần in Có thể sử dụng report Wizard hoặc Report Design View để tạo ra một Report in danh sách cán bộ với các thông tin như sau: Trang 116 d o o c m C m w o d o w w w w w C lic k to bu Copyright Nguyễn Sơn Hải w... người dùng máy tính trên toàn thế giới Không dừng ở mức ứng dụng có sẵn, bộ phần mềm này còn có một ngôn ngữ lập trình đi kèm VBA – Visual Basic for Application để giúp người dùng có thể tạo ra các tuỳ biến mạnh hơn, thân thiện hơn với trong công việc của mình Với Word, Excel bạn hoàn toàn có thể tự tạo ra các macro để tăng tốc độ sử dụng ứng dụng; hơn thế nữa VBA trên Access đã thể hiện tính chuyên... a c k Phần khai báo Thủ tục đáp ứng sự Chương trình con (4) Cửa sổ Intermediate Cửa sổ Intermediate là nơi giúp thi hành trực tiếp một câu lệnh nào đó, rất hữu dụng trong việc gỡ lỗi phần mềm (sẽ quay trở lại vấn đề gỡ rối phần mềm ở cuối chương) 2 Các kiểu dữ liệu và khai báo 2.1 Các kiểu dữ liệu cơ bản Cũng như các ngôn ngữ lập trình khác, VBA đều hỗ trợ các kiểu dữ liệu cơ bản Dưới đây giới thiệu... =Count([hoten]), để ở phần Report footer - Textbox để tự động đánh số thứ tự phải thiết lập như sau: Control Source là =1; thuộc tính Running sum là Over Group - Các hộp chữ còn lại dùng đối tượng Label; - Toàn bộ bảng biểu sử dụng đối tượng Line Chú ý các đường kẻ phải được nối khít với nhau Nếu không khít sẽ tạo ra các khe hở và nét đứt (không liền nét) 4 Report chứa tham số Report có tham số thực chất là loại Report. .. như Forms, Report, Macros và đặc biệt là ngôn ngữ lập trình VBA – Access sẽ còn là một công cụ phát triển phần mềm rất mạnh, dễ sử dụng cho các ứng dụng quản lý vừa và nhỏ Nội dung chương này sẽ trình bày căn bản về ngôn ngữ lập trình VBA (Visual Basic for Application) - một ngôn ngữ khá quen thuộc đối với những người sử dụng chuyên sâu sản phẩm Microsoft Office Đây chính là cơ sở quan trọng để các bạn... 2: Tạo form theo yêu cầu bài toán - Có thể sử dụng Combo Wizard để tạo Combobox lấy ra danh sách các phòng ban từ bảng phongban; - Có thể sử dụng Command button Wizard để tạo các nút lệnh Đóng và In danh sách; Cuối cùng được form như sau: Bước 3: Thiết lập tham số cho Report Ở đây trình bày phương pháp thiết lập tham số vào thuộc tính Record Source của Report Cách làm như sau: Trang 117 d o o c m C... k c ! O W N to k lic c u -tr a c k Trong đó: (1) Hệ thống thực đơn và thanh công cụ Cũng như bất kỳ môi trường làm việc nào đều có hệ thống thực đơn và thanh công cụ đi kèm Trên đó có chứa các lệnh để gọi, thi hành hoặc thiết lập các điều khiển cần thiết (2) Cửa sổ Project Explorer; Có rất nhiều các thành phần có thể lập trình được bởi VBA như: Forms, Reports, Modules Cửa sổ Project Explorer là cây... -tr a c k Hãy tìm và chọn tệp ảnh, chọn xong nhấn OK để hoàn tất công việc (7) Sử dụng công cụ Line Công cụ Line dùng để vẽ các đường thẳng lên Report Rất hữu hiệu trong việc kẻ bảng biểu Sau khi nhập nút Line trên thanh công cụ, hãy thực hiện kẻ bằng cách di chuột Với yêu cầu như trên, bằng cách sử dụng các công cụ như đã hướng dẫn hãy thiết kế một report như sau: Trang 114 d o o c m C m w o d o w w... mỗi biến sau khi được khai báo nó sẽ nhận một kiểu dữ liệu và có một phạm vi hoạt động, tức là lời khai báo biến chỉ có tác dụng trong những vùng đã được chỉ định; ngoài vùng chỉ định đó biến sẽ không có tác dụng, nếu có tác dụng sẽ theo nghĩa khác (biến cục bộ kiểu Variant chẳng hạn) Biến cục bộ: Biến cục bộ được khai báo sau từ khoá Dim, nó chỉ có tác dụng trong một chương trình con, cục bộ trong một... biến cục bộ vẫn có thể trùng tên biến toàn cục, trong trường hợp đó VBA sẽ ưu tiên sử dụng biến cục bộ trong phạm vi của nó 2.3 Hằng và cách sử dụng hằng a Khai báo hằng Hằng (Constan) là đại lượng có giá trị xác định và không bị thay đổi trong bất kỳ hoàn cảnh nào Tương ứng với từng kiểu dữ liệu, sẽ có những hằng tương ứng Khai báo hằng số bởi từ khoá Const Sau đây là các ví dụ về khai báo các loại hằng: ... Preview the report hin th d liu ca report sau kt thỳc; hoc hin th mn hỡnh thit k sa cu trỳc report chn Modify the reports design; - Cui cựng nhn Finish kt thỳc cỏc cụng vic s dng report wizard... thit k report ch xut hin phn: Page header, Page footer v Detail Nu report ang thit k yờu cu cú c Report header v Report footer, hóy hin th chỳng bng cỏch: nhn phi chut lờn ca s thit k report. .. sỏch Danh sỏch cỏn b phũng ó chn s c in mt report Cỏch lm: Bc 1: To Report ỏp ng thụng tin cn in Cú th s dng report Wizard hoc Report Design View to mt Report in danh sỏch cỏn b vi cỏc thụng tin