វទិ ្យាស្ថា ន ភវិ ឌ្ឍនអ៍ ាសស៊ី ច្ៈច (SADI) Sachak Asia Development institute ជពំ ូកទ១ី ណែនអំ ោយស្ាគល់ អពំ Eី xcel VBA I. នយិ មន័យ VBA (Visual Basic for Application) ភាសារបញ្ាជកន់ ៃកម្វម ធិ ដី ែលអាចអអាយអយងើ យកវាអៅអ្ប្ើ ាស់ អៅអលើពពួក Application ាៃែូចជា MS. Word, MS. Access, ៃងិ Forpro ជាអែមើ ្ ការអ្ប្ើ ាស់ភាសារ VB កែ៏ ូចជា Macro ដែ កប៏ ដ៉ុ ៃែវាមាៃភាពងាយ្សលួ ៃិងទូលំទូលាយកុ៉ងន កិចែច ំអ ើ រការអៃុ៉វឌ្ឍែូចជាការចង Object បញ្ូច លគ្នន អៅក៉ុងន Application របស់អយងើ អែើម្បអី អាយកាា យអៅជា្បពៃ័ មធ ្យួ ដែលទនំ ាកទ់ ំៃងគ្ននែូចជា ការបអងតកើ Form ឬការបអងតកើ អអាយមាៃ្បតបិ តិកត ារអសេង សកម្ភម ាព្ពម្ទងំ ឃ្លា បញ្ាជរអសេងៗគ្ននសងដែរ។ អលើសពអី ៃេះអៅអទៀតអយងើ កអ៏ ាចអ្ប្ើ ាស់ VBA អែើម្បសី រអសរកូែបអងតកើ អៃ៉ុគម្ៃ(៍ Function) អោយខ្ួៃា ឯង។ II. ការចាប់ អ្មើដ កមមវធិ ី VBA ែំបងូ អយងើ ្តវូ Run ចូលកម្មវធិ ី MS. Excel ជាម្ុ៉ៃសិៃ។ ចុ៉ចអលើ Visual Basic (ឬចុ៉ច Alt+F11)(Alt ខាងអវងេ )។ អាច Right click អលើ Home tab=> Customize Quick Access Toolbar=>Customize Ribbon => Tick()យកពាកយថា: Developer។អនាេះវាៃិងបងាា ញផ្ទ ងំ ម្យួ ដបបអៃេះ៖ របូ ភាព២.១ កកសំរ្ួល និរ ងរ្ៀបងរ្ៀរងោយៈ ដូរ ងដត 1 បង្រៀនងោយងោក្រសូ ាស្ត្សាា ចារ្យៈ មុត វាសនា
វទិ ្យាស្ថា ន ភិវឌ្ឍន៍អាសស៊ី ច្ចៈ (SADI) Sachak Asia Development institute III. ការចាប់ អ្មដើ ការងារជាមយួ នងិ Excel VBA ការចាបអ់ សើែម្ជាម្យួ VBA អៅអពលអៃេះរមួ ្មាៃ3្បអេទធៗំ ដែលអយងើ ្តវូ ដតែឹងគឺ៖ Module: គឺជាទីកដៃងា ដែលអាចអអាយអយងើ សរអសរកូែ បអងើតក Functionាៃអោយត្ម្ូវឲ្យ អយងើ អ្ប្ើ ាស់រចនាសម្ៃព័ ធ VBA ។ Class Module: ស្មាបអ់ ធកើេ ារបំដបក Module អ្ចើៃអអាយអៅែុ៉ំៗឬដតម្យួ ឬជាដសកន អសេ ងៗគ្នន (ដែលអគអៅថា Class) អ យើ អាចអអាយអយងើ អធើកេ ារ្បម្លូ សុ៉ំតClass ទងំ អស់ បញ្ូច លគ្ននដតម្យួ វញិ អែមើ ្បងី ាយ្សួលែល់អយងើ ទញយកអ្ម េះ Class ណាម្យួ អៅអ្បើ ្ាស់។ User form/user Interface: ស្មាបអ់ ធកេើ ាររចនាផ្ទ ងំ Mode Interface អអាយមាៃ អសាេ័ ភាពទកទ់ ញអែើម្បអី អាយ User មាៃការចាបអ់ ារម្ម ៍ អៅអលើកម្មវធិ ីដែលអយងើ ាៃបអងតកើ ។ របូ ភាព៣.១ IV. សិកាពកី អនាមគែនប្បមាែវធិ នី ងិ សអំ ែើ រ VBA ក/. Expression Expression គឺជាការគ នាកអៃោម្អែើម្បអី អាយអចញជាលទធិសលម្យួ អោយដសកែ អលើវធិ ាៃ គ ិ តវទិ ាអៅក៉ុងន VBA Expression ្តវូ ាៃអគដបងដចកអចញជា២្បអេទគឺ៖ អញ្ញ តិត (Operand) កកសរំ ្ួល នរិ ងរ្ៀបងរ្ៀរងោយៈ ដូរ ងដត 2 បង្រៀនងោយងោក្រសូ ាស្ត្សាា ចារ្យៈ មុត វាសនា
វទិ ្យាស្ថា ន ភិវឌ្ឍន៍អាសស៊ី ច្ៈច (SADI) Sachak Asia Development institute ្បមា វធិ ី (Operator) ្បមា វធិ ី ឧទ រ ៍ 3x2 - y ≥ 20 អញ្ញ តតិ ខ្/Statement Statement ជាបណាែ បញ្ាជ ឬអាចជាឃ្លា កអៃោម្ពិជគ ិ ត។ ជាទូអៅ Statement អាចម្ៃិ ចាាំ ចម់ ាៃបណាែ រ Operator (Arithmetic Relational ឬ Logic)អទ។ ឧទ រ ៍ ៖ Dim Amt as Integer Rem Amt: Amount Amt: 2000 Dim txt as string Txt= “Hello” Constfee=20 បណាែ រ Statement ដែលជា Keyword របស់កម្វម ធិ ។ី បណ្ាដអនគុ មនម៍ យួ ដែលគគឧស្សាគ្រើញឹកញាប់ 1. បណាែ រ Function ដែលអគៃិយម្អ្បអើ ែើម្បគី នាចៃំ ៃួ តអួ កេរ Function Data Type Description Ucased (String) String ស្មាបប់ ំដលងពីតួរអកេរតូចអៅតអួ កេរធទំ ងំ អស់ Lcased( String) String ស្មាបប់ ំដលងពតី អួ កេរធអំ ៅតអួ កេរតូចទងំ អស់។ Rtrim(String) String ស្មាបក់ ាត់ Space អៅខាងសាែ ំអចាល។ Trim (String) String ស្មាបក់ ាត់ Space អៅខាងអវេងអចាល។ Tring (string) String ស្មាបក់ ាត់ Space សងខាងអចាល។ Left (Stringlength) String ស្មាបក់ ាតយ់ កតួអកេរពដី សនកខាងអវងេ ។ Right (Stringlength) String ស្មាបក់ ាតយ់ កតអួ កេរពដី សកន ខាងសាែ ំ។ Mid(stringLength) String ស្មាបក់ ាតយ់ កតួអកេរអៅតាម្ការកំ តច់ ៃំ ៃួ តួ អកេរ។ កកសំរ្លួ នរិ ងរ្ៀបងរ្ៀរងោយៈ ដូរ ងដត 3 បង្រៀនងោយងោក្រូសាស្ត្សាា ចារ្យៈ មតុ វាសនា
វទិ ្យាស្ថា ន ភវិ ឌ្ឍនអ៍ ាសស៊ី ច្ចៈ (SADI) Sachak Asia Development institute គ. VBA Statement គឺជាកាកំ តក់ ារងារឬជាការោកប់ ញ្ាជអែើម្បឲី ្យកម្វម ធិ ីយកអៅអៃុ៉វតតកុ៉នងអគ្នលបំ ងគ នាទៃិ ៃន ័ យ។ Statement អៅក៉ុងន ភាសា VBA មាៃពរី ធៗំ គ៖ឺ សំអ ើ រអទល (Single Statement) កអៃោម្សំអ ើ រ (Compound Statement) ឧទ រ ៍ ទី១៖ Single Statement Dim a As Integer Dim b As Integer Dim c As Integer ឧទ រ ៍ ទី២៖ Compound Statement Dim a, b, c as Integer Statement សរអសរយងណាឲ្យចបម់ ្យួ បនាទ ត់ ម្ៃិ អាចច៉ុេះបនាទ តា់ ៃអទ ម្ៃិ អាចោកជ់ ាអលខ្ស៉ុទធ ែកឃ្លា ាៃអទ ដតអាចអ្បសើ ញ្ញជ( _ ) Underscore ាៃ។ សមាា ល់:តាម្អគ្នលការ ៍ របស់ VBA ាៃបញ្ាជកថ់ ា អបអើ យងើ សរអសរ Statement អនាេះអយងើ ្តូវសរ អសរវាឲ្យចបក់ ៉ុនងម្យួ បនាទ ត់ អបមើ ាៃការច៉ុេះបនាទ ត់ អនាេះ្តវូ ភាា បៃ់ ិម្មតិ សត ញ្ញជ Underscore (_)។ អបអើ យងើ ចងស់ រអសរ Statement ដែលមាៃអ្ចៃើ ជរួ ឲ្យកាា យម្កជាម្យួ ជរួ វញិ អនាេះអគអ្បៃើ មិ ្តមិ តសញ្ញជ ( : ) អែមើ ្បតី ភាា បព់ ី Statement ម្យួ អៅ Statement ម្យួ អទៀត។ ឃ/សិកោអពំ ី Comment ( ឬ Remark ( ‘ ) ) នៅក្ុនងការសរនសរក្ម្វម ធិ ីន ោះបីជាក្ម្មវធិ ីអ្កីវ ្ន៏ ោយ (C-Program, C++, C#, VC, VC++, VB, Pascal, VB.Net, HTML, ASP,… ។ល។ ) នេតែងតែនធវកី ារក្ំណែស់ ម្គា លច់ នំ ោះ Code ឬ Statement តែលនេបាន សរនសរនែមី ្បនី ធកវី ារក្ំណែច់ ំណទំ ុក្នៅថ្ងៃនរកាយ ថានែី statement ឬ Codeម្ួយឃ្លា ននោះម្គននយ័ យា៉ ងណ? ន យី នរបីរបាសន់ ធវីអ្?វី ចនំ ោះ Comment ឬ Statement ងំ ឡាយណតែលនេបាននធកីវ ារក្ំណែស់ ម្គា ល់ែល់វាន ោះនេនៅថា Comment ។ នៅក្ុងន ភាសារ VBA នេនរបរី បាស់នមិ ្ិែម តសញ្ញា Apostrople (‘) នៅពីម្ុន Statement ឬ Code ក្ំណែច់ ណំ នំ ោះ។ ង/ របម្គណវធិ អី ្នុវែរត បស់ Operators លោំ បអ់ ្នុវែរត បស់ Operators រមួ ្ម្គនែូចខាងនរកាម្៖ a). Comparison Operator (របម្គណវធិ ីនរបៀបនធៀប) Operators Meaning Example កកសំរ្ួល និរ ងរ្ៀបងរ្ៀរងោយៈ ដូរ ងដត 4 បង្រៀនងោយងោក្រូសាស្ត្សាា ចារ្យៈ មុត វាសនា
វទិ ្យាស្ថា ន ភិវឌ្ឍនអ៍ ាសសី៊ ច្ចៈ (SADI) Sachak Asia Development institute ្បមា វធិ ី អតៃថ យ័ ឧទ រ ៍ សញ្ញជអសើម X=Y = (Equal to ) សញ្ញជធជំ ាង X>Y សញ្ញជតូចជាង X<Y > (Greater to) សញ្ញជធជំ ាងឬអសើម X>=Y < (Less to) សញ្ញជតូចជាងឬអសើម X<=Y >= (Greater Than or Equal) <= (less than or Equal) <> (Not Equal) សុ៉ទយពីឬខ្ុ៉សពី X<>Y b). Arithmetic Operators (្បមា វធិ ីពជិ គ ិ ត) Example Operator Meaning X+Y X-Y +(Addition) ្បមា វធិ បី ូក X*Y -(Substraction) ្បមា វធិ ីែក X/Y *(Multiplication) ្បមា វធិ ីគុ៉ X\\Y /(Division) ្បមា វធិ ដី ចក X”2 \\(Integer Division) ្បមា វធិ ដី ចកមាៃអកបៀស 5 mod 2 (Exponential) គ នាតនម្ាស័យេ គុ៉ X&Y Mod (Modules Division) ្បមា វធិ ដី ចកយកសំ ល់ X:Y &(Concatenation) ្បមា វធិ ដី ចកតភាា បព់ 1ី អៅ 1 : (Colon) ស្មាបត់ ភាា ប់ Statement “” ឬ Null ទអទ ឬ គ្មនៃ សិកាអពំ ី Procedure នងិ Modules 1. PROCEDURE Procedure អយងើ អាចសរអសរ EBC (Excel Basic Code) អៅក៉ុនង Unit ម្យួ ដែលមាៃអ្ម េះថា Procedure អ ើយ Procedure សិតថ អៅកុ៉ងន Modules ។ Procedures សុ៉កទ អៅអោយអស៊េរ ី (Series) Excel Basic Statement ដែលសំដែង្បតបិត តកិត ារ (Preform Operation) គ នាតនម្អា លខ្ (Calculate Value) Procedures មាៃពរី យងគឺ៖ Function Procedure (សរអសរកុ៉នង Module) Sub Procedure (សរអសរកុ៉នង Form) a) Function Procedure Function Procedure: ជាៃិចចកាលាៃលទធសលជាតនម្ា (Return a Value) ែូចជាលទសធ ល ដែលាៃម្កពីការគ នា ៃងិ អ្ប្ើ ាសវាអែើម្បបី អងើកត្បតិបត តកតិ ារ។ កកសរំ ្លួ នរិ ងរ្ៀបងរ្ៀរងោយៈ ដូរ ងដត 5 បង្រៀនងោយងោក្រសូ ាស្ត្សាា ចារ្យៈ មតុ វាសនា
វទិ ្យាស្ថា ន ភវិ ឌ្ឍន៍អាសសី៊ ច្ៈច (SADI) Sachak Asia Development institute b) Sub Procedure Sub Procedure: សំដែង្បតិតបតកិត ា (Perform Operation) ដតលទធសលម្ៃិ សលែ ់ជាតនម្ា (Don’t Return a Value) (EX: Sub: st) o Sub Procedure: ម្ៃិ អាចអ្បអើ ៅក៉ុងន Expression ាៃអទគឺវាភាា ប់ Form ឬ report ដតម្ែង ឬ អ្បើ Statement កុ៉ងន Sub Procedure អសេងៗ។ 2. MODULES អៅកុ៉នង modules ដបងអចកជា Scope ពីរយង៖ Public (Global Modules) Private PUBLIC (Global Modules) អយងើ អាចបអងកើត Public Modules អៅោចអ់ ោយដែកពីគ្នន គឺ Object អៅក៉ុងន Database អយងើ អ្បវើ ាស្មាបស់ ុ៉កទ Code (Store Code) ។ PRIVATE Private ដែលសិតថ អៅអលើ Form ឬ Report Modules ដែលអយងើ សរអសរសុ៉កទ អៅអលើ Form ឬ Report ផ្ទ ល់ដតម្ងែ ដែលស៉ុកទ អៅអោយ Procedure ។ សិកាអពំ ី Data Type នងិ ការប្បកាសអអេរ (Variable) Data Type Data Type នៅក្ុងន VBA នេតបងតចក្នចញជា២េឺ Variable (អ្នងរ) Constant(នងរ) a. Variable ជាអ្ញ្ែា ិតអ្នងរេជឺ ាែថ្ម្ាអាចតរបរបលួ បាន (នេនៅថាអ្នងរ) តាម្ការបញ្ូច លែថ្ម្ា របស់ User (អ្កន ្នរបរី បាស់) ។ b. Constant ជាអ្ញ្ែា តិនងរេឺជាអ្ញ្ាែតតិ ែលម្ិនម្គនែថ្ម្តា របរបលួ (ែថ្ម្នា ងរ) ននោះម្គននយ័ ថា នបីនយងី ក្ំណែែ់ ថ្ម្ាទុក្នអាយវាបុ៉ា ម នន ោះវាចាបយ់ ក្ែថ្ម្ាបុន៉ា ណណ ោះតែ។ 1.1 អនុគមន៍ (Function) Function ម្គនពរី របនេទេឺឺ ៈ Pre_Built function (សែថិ នៅក្ុងន Built-in-function) Writing Function(សែិថ នៅក្ុនងន្ម ោះរបស់ Database នយងី ផ្ទា ល)់ A. Built-in-function េឺជា Function តែលម្គនរសាបន់ ៅក្ុនងក្ម្មវធិ ី Ms.Excel VBA តែលនិងនលីក្យក្ម្ក្នូវ Fun ction សំខានៗ់ ម្ក្បង្ហា ញែូចខាងនរកាម្៖ Data Now() Hour() Minute() Day(Date) កកសរំ ្ួល និរ ងរ្ៀបងរ្ៀរងោយៈ ដរូ ងដត 6 បង្រៀនងោយងោក្រសូ ាស្ត្សាា ចារ្យៈ មុត វាសនា
វទិ ្យាស្ថា ន ភិវឌ្ឍន៍អាសស៊ី ច្ៈច (SADI) Sachak Asia Development institute Week(Date) Mouth(Date) Year(Date) Text Function រណ៍ ៖ Dim Lowercase,uppercase Ucase (String) បំតលងនៅជាអ្ក្សរធំ(ឧ -LowerCase= “Hello Word 1234” ’String to Conver -UpperCase=ucase(LowerCase) ‘Return “HELLO WORD 1234” -Lcase(String)សរម្គបប់ ំតលងអ្ក្សរឲ្យជាអ្ក្សរែូច -Ex: Dim uppercase,LowerCase -upperCase= “Hello Word1234” ‘String to convert -LowerCase=Lcase(uppercase) ‘Return “hello word 1234” RTrim (String) ែរម្ឹម្ Space ខាងសាត ថំ ្ន ក្យឬឃ្លា LTrim(String) ែរម្មឹ ្ Space ខាងនវងវ ថ្ន ក្យឬឃ្លា Trim(String) ែរម្ឹម្ Space សងខាងថ្ន ក្យឬឃ្លា ។ កកសំរ្ួល នរិ ងរ្ៀបងរ្ៀរងោយៈ ដូរ ងដត 7 បង្រៀនងោយងោក្រសូ ាស្ត្សាា ចារ្យៈ មតុ វាសនា
វទិ ្យាស្ថា ន ភវិ ឌ្ឍន៍អាសស៊ី ច្ចៈ (SADI) Sachak Asia Development institute ជពំ ូកទ២ី ការសិកាអៅអលើ កមមវធិ ី (STUDY OF PROGRMMING) I. មូលដ្ឋា នននការសិកា VBA េឺែូចនៅនិងការនរបី Macro តែតែវាម្គនភាពង្ហយរសលួ នងិ ទូលំទូលាយក្ុងន ការែនំ ណី រការអ្នុវែត ន៍ ែូចជាការចង Object បញ្ូច លគ្នន នៅក្ុងន Application របស់នយងី នអាយនៅជារបពន័ មធ ្ួយតែលម្គនការ ក្ទ់ ងគ្នន នៅវញិ នៅម្ក្បនងែីក ជា Button, Operation, Action នងិ Command នសសងៗនទៀែ។ល។ នយងី អាចនរបី VBA នែីម្បសី រសរបនងែកី Function នោយខ្ួានឯងបាន។ II. កែំ ត់ បញ្ា ហននការសិកា ជាការពិែការសកិ ្ា Excel VBA User តែងតែជួបបញ្ញា ម្យួ ចំននួ តែលនធនវី អាយរអាក្រ់ អ្លួ ក្ុងន ការនធីវ ការង្ហររបស់ User។ តែលនធវីនអាយ Function ម្និ ែនំ ណី រការ Code Error នោយម្ិនែឹងម្ូលន ែុ Save ម្និ ម្គនសុវែភតិ ាព Save រចួ នបីក្ម្ងដ នទៀែម្ិនែំនណី រការ។ល។ ែូចននោះនយងី និងម្គនែនំ ណោះរសាយថ្នការចាបន់ សដីម្នធកីវ ារក្ុនង Excel VBA ែូចែនៅ។ ែំបូងេឺនយងី រែូវចូលនៅកានក់ ្ម្មវធិ ី Microsoft Excel ចូលនៅកាន់ File => Option => Trust Center => Trust center setting => Macro Setting => Disable all macro notification នៅក្ុងន Developer Macro Setting => Trust access to the VBA Project object model. រចួ ចុចនៅនលី Ok=>Ok៕ ចំន ោះការ Save រែវូ Save as នរជសី នរសី Browser ណម្ួយតែលអ្កន ្ចងរ់ ក្ាទុក្ រចួ នធកីវ ារផ្ទា ស់បូរដ នៅ ក្ុងន Save as Type រែវូ នរជសី នរសី ជា Excel Macro-Enable Workbook => Save។ កកសំរ្ួល នរិ ងរ្ៀបងរ្ៀរងោយៈ ដរូ ងដត 8 បង្រៀនងោយងោក្រសូ ាស្ត្សាា ចារ្យៈ មតុ វាសនា
វទិ ្យាស្ថា ន ភវិ ឌ្ឍន៍អាសសី៊ ច្ចៈ (SADI) Sachak Asia Development institute III. អោលបែំ ងននការសិកា ែូចតែលនយងី បានតសងវ យលន់ ងិ បានែងឹ រចួ ម្ក្ន យី អ្ពំ កី ្ម្មវធិ ី VBA នៅក្ុនង Microsoft នៅក្ុនងជំ ពួក្ននោះតែ នយងី នងិ អំ ្កន ្នៅកាន់ នគ្នលបណំ ងថ្នការសកិ ្ាអ្ំពី VBA បតនមថ ្នទៀែ។ VBA បនងីកែន ងី នោយរក្ុម្ ុន Microsoft វាម្គនរេបក់ ្ម្មវធិ ីម្ិនរែមឹ ្តែ Excel បុន៉ា ណណ ោះនទ រមួ ្ បញ្ូច ល ងំ Word, Excel, PowerPoint … សងតែ។ VBA បនងែកី ន ងី ក្ុងន នគ្នលបណំ ងចងន់ អាយ User ង្ហយរសលួ ក្ុងន ការរេបរ់ េងទិននន យ័ នងិ ក្ម្វម ធិ ី ម្ិនថា រក្ុម្ ុន, សាលា, តសកន ្ទសី ារ, នងិ រាល់ Function ជានរចនី តែលជាទរម្ង់ Form។ល។ នៅក្ុនងការសរនសរក្ម្មវធិ នី ោះ ក្ម្មវធិ ីអ្កវី ្ន៏ ោយ(Pascal, C++, ForPro, Ms-Access…) នេតែង តែនធកវី ាក្ណំ ែស់ ម្គា ល់ (Remark) ចនំ ោះ Code ឬ Statement តែលនេបានសរនសរនែមី ្បចី ំណទំ ុក្ថា នែី statement ឬ Code ងំ ន ោះម្គននយ័ យ៉ា ងណសរម្គបន់ របរី បាសន់ លីក្ិចកច ារអ្មីវ ្យួ ? ឃ្លា តែលនេសរនសរសរម្គបន់ ធីកវ ារក្ណំ ែស់ ម្គា ល់ននោះនអាយន្ម ោះថា “Comment” នៅក្ុងន Ms- Excel នេនរបីសញ្ញា (Apostrophe’) នៅពីម្ុខ្ ក្យក្ំណែច់ ំណំ (Comment)។ ឧ រណ៍ ៖ This is a comment beginning at the left edge of the windows. ឧ រណ៍ ២៖ X=Spr(4) ‘X= √4 Visual Basic Statement អ្នុញ្ញា ែិនអាយសរនសរបានតែម្យួ ប ា ែប់ ុនា៉ ណណ ោះ។ ែូនចនោះ Statement រែូវតែសរនសរនអាយចបក់ ្ុងន ម្យួ ប ា ែ់ (one Line) ។ ឧ រណ៍ ៖ [Message]= “Welcome to the Sachak Asia Development Institute” ម្ិនអាចសរនសរ៖ [Messafe] “Welcome to the Sachak Asia Development Institute” [Messafe] “Welcome to the Sachak Asia Development Institute” តែេអាចនរបសី ញ្ញា Underscore “_” នោយែក្ឃ្លា ម្យួ ពខី ាងនវវងថ្ន Underscore។ [Messafe]_ “Welcome to the Sachak Asia Development Institute” កកសរំ ្លួ នរិ ងរ្ៀបងរ្ៀរងោយៈ ដូរ ងដត 9 បង្រៀនងោយងោក្រសូ ាស្ត្សាា ចារ្យៈ មតុ វាសនា
វិទ្យាស្ថា ន ភវិ ឌ្ឍន៍អាសស៊ី ច្ៈច (SADI) Sachak Asia Development institute ទនាឹម្នឹងននោះនយងី ក្អ៏ ាចសរនសរ Statement នរចីននៅក្ុនងប ា ែត់ ែម្ួយនោយនរបី Code (:) បាន សងតែ។ Mytb.Text= “Hi”: Mytb.FontSize=10 :Mytb.Fontltalic=Yes v.ទហំ រំ បស់ ការងារ ជាទូនៅការបនងីែក ការង្ហរឬក្ម្មវធិ ី VBA ម្យួ នេរែវូ ការទំ សំ ុកា ្ចាបព់ ី 10KB ន ងី នៅតែម្គន Memory (RAM) ចាបព់ ី 512MB ។ ការង្ហរ VBA ជាការង្ហរសាម្ញ្ាម្ួយតែលអាចជយួ សរម្លួ ែល់ក្ិចច ការ Database ឬ សរម្បសរម្លួ នៅនលី Accountant ម្យួ ចនំ ួនសងតែ អារស័យនៅនលីបណំ ងរបាថាន របស់នលាក្អ្នក្។ ក្ំតណ 64Bit ថ្នការយិ លយ័ អាចឱ្យអ្កន ្ផ្ទា សទ់ ីទិនននយ័ បាននរចនី សរម្គបប់ នងីកនសម្ែថភាព ឧ រណ៍ នៅ នពលអ្កន ្នធកវី ារជាម្យួ នលខ្ធំ ៗ នៅក្ុនង Microsoft Excel ។ នៅនពលសរនសរក្ូែ 32Bit អ្កន ្អាចនរបី ការយិ ល័យទំ ំ 64bit នោយម្និ ចាបំ ាចន់ រប។ី ន ោះយ៉ា ងណនៅនពលអ្នក្សរនសរក្ូែ 64bit អ្កន ្េរួ តែធា ថា នលខ្ក្ូែរបស់អ្នក្ម្គន ក្យេនាោឹ ះជាក្ល់ ាក្ន់ ងិ ការចងរក្ងតាម្ល័ក្ខខ្ណ័ ឌ នែីម្បធី ា ថាក្ូែន ោះងយនរកាយអាច នរបីបានជាម្យួ ការយិ ល័យជំ នម់ ្ុនន យី នលខ្ក្ូែរែមឹ ្រែវូ រែូវបានរបែិបែរតិ បសិននបីអ្កន ្បញ្ូច លនលខ្ 32 Bit នលខ្ក្ូែបែី នងិ 64 Bit។ Visual Basic សរំ ាបក់ ្ម្វម ធិ ី 7.0 (V.B 7) រែវូ បាននចញសាយជា 64BBit សំរាបក់ ារយិ ល័យន យី វា ែំនណី រការបាន ងំ ក្ម្មវធិ ី ងំ 32Bit និង 64Bit។ ការផ្ទា ស់បូតរតែលបានពិពណ៌ នៅក្ុនងអ្ែថបទននោះអ្នុវែតតែ ចំន ោះក្តំ ណការយិ ល័យ 64Bit បុនា៉ ណណ ោះ។ ការនរបីរបាស់ Microsoft Office 32Bit អាចឱ្យអ្នក្នរបែី ំនណោះរសាយ តែលបានបនងែកី នៅក្ុងន ការយិ ល័យជំ នម់ ្ុននោយគ្នម នការតក្តរបបតនថម្។ កកសរំ ្ួល នរិ ងរ្ៀបងរ្ៀរងោយៈ ដរូ ងដត 10 បង្រៀនងោយងោក្រសូ ាស្ត្សាា ចារ្យៈ មតុ វាសនា
វិទ្យាស្ថា ន ភិវឌ្ឍន៍អាសស៊ី ច្ចៈ (SADI) Sachak Asia Development institute ជពំ ូកទ៣ី វធិ សី ្គស្តសរ ប្ស្គវប្ជាវ នងិ រចនសមព័នធននការសិកា ១.នយិ ាយពកី ារបអងើកតកមមវធិ ី (Make Program) I. ការកស្គងគអប្មាងរបស់ កមមវធិ ី ការកសាងគអ្មាងរបស់កម្វម ធី ីគជឺ ាការដសេងយល់ កែ៏ ូចជាសិកោអំពីការបអងើតក ទ្ម្ងឬ់ Pro gram ម្យួ ដែលមាៃលកខ ៈជាទ្ម្ង់ (Form) អ ើយអធអេើ អាយម្ៃ៉ុសេមាៃភាពងាយ្សួលអៅអលើម្៉ុខ្ ងារណាម្យួ ដែលពកួ អគចងា់ ៃ។ ជាកដ់ សងែ អៅកុ៉ងន ជំពូកអៃេះអយងើ ៃិងនាអំ នកអអាយសាា ល់ថាអតអើ អេី ៅជា Form កម្វម ធិ ី? អតើ Form កម្មវធិ ីម្យួ អគអធេើែូចអម្ចែ ? Form កម្វម ធិ ឬី អយងើ អាចអៅាៃថា Program គឺជាផ្ទ ងំ កិចកច ារម្យួ ដែលជាដសកន ជយួ ស្ម្លួ ែល់អយងើ ក៉ុនងការងារឬការ្បកបម្ុ៉ខ្របរអាជវី កម្មខាន តតូចៃងិ ខាន តធដំ ែលអៅក៉ុនងអនាេះអនកអាចកំ តក់ ូ អោៃ ឬបតូ៊េ ៉ុងអសេងៗាៃអ យើ អអាយវាែអំ ើ រការៃិងស៉ុទកការងារអនាេះអៅកាៃ់ link ណាម្យួ ដែលអនក ចងា់ ៃ។ ក៉ុងន ការបអងើតក កម្វម ធិ មី ្យួ ាៃលុ៉េះ្តាដតអយងើ ដសេងយល់អពំ កី ារអ្ប្ើ ាស់ Tools ដែលមាៃជាក់ ដសងែ អៅកុ៉នង VBA អៃេះ។ II. ការអរៀបចFំ orm អៅកុ៉នងជពំ ូកអៃេះអយងើ ៃងិ នាអំ កន ទងំ អស់គ្ននម្កសាា ល់អំពីការបអងកើតទ្ម្ង្់ គប្់ គង ហាងទៃំ ញិ ម្យួ ដែលអយងើ អអាយអ្ម េះថា Online Order System(SADI) ែំណាកក់ ាលែំបូងអយងើ ្តវូ ចូលអៅកាៃក់ ម្វម ធិ ី Excel របស់អយងើ រចួ អធើេការចុ៉ចអៅកាៃ់ Development (Alt +F11) រចួ អ្ជអើ រសើ ក៉ុងន Insert => UserForm កកសំរ្ួល នរិ ងរ្ៀបងរ្ៀរងោយៈ ដូរ ងដត 11 បង្រៀនងោយងោក្រូសាស្ត្សាា ចារ្យៈ មុត វាសនា
វិទ្យាស្ថា ន ភិវឌ្ឍនអ៍ ាសស៊ី ច្ៈច (SADI) Sachak Asia Development institute ទរម្ងថ់ ្ន Form របសន់ យបី ានជាទរម្ងត់ បបននោះ៖ រចួ នយងី នធីកវ ារបនងែីក នោយនរបី TextBox, Label, CommandButton, Fram តែលម្គនបូែុងជានរចីន ែូចជា៖ Customer Name, Sex, Address, Customer Phone, Customer E-mail, Data of orther, Time of orther, Customer RefNo. Label Textbox Label Label អធេើការបូរត អ្ម េះ (Name) កុ៉នង Customer Name, Phone, Sex, Address, Customer E-Mail រចួ សរ អសរ txtName, txtPhone, txtSex, txtAddress, txtEmail អៅកុ៉ងន Label កែ៏ ូចគ្ននដែ អធកើេ ារបូរត អ្ម េះ Date of Order,Time…,Customer…,Subtotal…,ោកអ់ ្ម េះថា lbData,lbTime,lbRef,…។អធេើដបបអៃេះអែើម្បអី អាយ អយងើ ងាយ្សួលសរអសរកូែចូល។អៅក៉ុនង Unit Price , Subtotal, Tax, Totalកែ៏ ូចគ្នន ្តូវបូតថា txtUnitprice1, កកសំរ្លួ នរិ ងរ្ៀបងរ្ៀរងោយៈ ដរូ ងដត 12 បង្រៀនងោយងោក្រូសាស្ត្សាា ចារ្យៈ មុត វាសនា
វិទ្យាស្ថា ន ភវិ ឌ្ឍនអ៍ ាសស៊ី ច្ចៈ (SADI) Sachak Asia Development institute txtUnitprice2,…។ BackStyle សរម្គប់ោក្ឬ់ lblsubtotal,…។ នោោះពណ៌ ក្ុនងtools របស់នយងី (0=No color, 1= Color) ក្តនងា ក្ណែរ់ បនេទនិងទំ អំ ្ក្សរ& Color កំ តអ់ ៅអលើ QTY ច៉ុចអលើ QTY រកពាកយថា Text សរនសរនលខ្សូនយចូលរចួ នធីកវ ារបូតរFont។ TextAlign នធវកី ារក្ណំ ែ់ Lift Center Right តែល នយងី ចងប់ ាន កកសរំ ្លួ និរ ងរ្ៀបងរ្ៀរងោយៈ ដូរ ងដត 13 បង្រៀនងោយងោក្រសូ ាស្ត្សាា ចារ្យៈ មតុ វាសនា
វទិ ្យាស្ថា ន ភិវឌ្ឍន៍អាសស៊ី ច្ចៈ (SADI) Sachak Asia Development institute សូមអរ្រណុ ទនិ នន យ័ តែលបានបង្ហា ញ ចងំ ោះអតិថិ ជន lblTax lblSubtotal lblTotal lblIndicator សរនសរក្ុងន (Name) Unitprice1 Unitprice 2 Unitprice 3 Unitprice 4 Unitprice 5 Toolbox ម្គន Lable សរម្គបន់ របីរបាស់ោក្់ Caption នអាយនៅ Form (ឧ រណ៍ Customer Name) ។ Textbox សរម្គបន់ ងែីក របអ្បត់ ែលអាចនអាយ User បំនពញន្ម ោះជានលខ្ឬអ្ក្សរបាន។ Command សរម្គបប់ នងកីែបូែុងណម្យួ នអាយនៅ Form (ឧ រណ៍ ADD TO SHEET)។ និងម្គ Tool ជានរចីននទៀែ។ III. ការសរអសរកូ ដកុនងForm ណដលអយើ ងបានបអងើកត កកសរំ ្ួល នរិ ងរ្ៀបងរ្ៀរងោយៈ ដរូ ងដត 14 បង្រៀនងោយងោក្រសូ ាស្ត្សាា ចារ្យៈ មតុ វាសនា
វទិ ្យាស្ថា ន ភវិ ឌ្ឍនអ៍ ាសសី៊ ច្ចៈ (SADI) Sachak Asia Development institute កុ៉នងការសរអសរ Code កុ៉ងន ភាសា VBA មាៃៃយ័ ថាអយើងកំ តប់ ញ្ាជអៅអលើ Button ណាម្យួ ដែលអយើងាៃ បអងតើក អអាយអចញជារូបរាងឬ Link ចូលអៅកាៃក់ ម្វម ធិ ីណាម្យួ អសេងអទៀត។ ឧទ រ ៍ ថា Button Add to Sheets មាៃៃយ័ ថាអៅអពល User បអំ ពញទ្ម្ងព់ ត័ មិ ាៃ រចួ ្តវូ ការ Save ពត័ ម៌ ាៃអនាេះអៅកាៃ់ Sheet ណាម្យួ អៅកុ៉នងកម្វម ធិ ី Excel (Sheet1) ្តវូ ច៉ុចអលើ Button Add to Sheet អៅរាយការ ៍ ពត័ ម៌ ាៃៃឹងអលាតចូលអៅកុ៉នង Sheet1។ Exit Code: (បូតេ៊ ុ៉ងបតិ កម្វម ធិ ី)អធេើការ Click ពីរែងអៅកុ៉ងន បតូេ៊ ៉ុងអៃេះឬច៉ុច Mouse សាែ ំរកពាកយថា View Code អែមើ ្បអី ធេកើ ារសរអសរ Code ចូល។ Code ដែល Auto មាៃ Private Sub cmdExit_Click() អីេ ដែល User អធើកេ ារសរអសរគឺពាកយ Unload Me មាៃៃយ័ ថាបតិ Form ទ៉ុកដត Wooksheet។ Application.Quit មាៃៃយ័ ថាបិតទងំ Form បតិ ទងំ Wooksheet។ MsgBox គឺជាការោក់ Massage អអាយអៅ Form អៅអពលដែល User ចងប់ អងតកើ ពត័ ម៌ ាៃកុ៉ងន ការ Save ឬ Exit (MsgBox “Do you want to Exit!!!?”,vbYesNo, “Yes”) Codeតែលរែូវសរនសរម្គន៖ Reset (បូែុងបញ្ញា នអាយសម្គា ែទិននន យ័ ) នៅនពលតែល User ចងស់ ម្គា ែទនិ នយ័ នៅនពល តែលបំនពញពែ័ ម៌ ្គនចប។់ SADI MART កកសំរ្លួ និរ ងរ្ៀបងរ្ៀរងោយៈ ដរូ ងដត 15 បង្រៀនងោយងោក្រូសាស្ត្សាា ចារ្យៈ មុត វាសនា
វិទ្យាស្ថា ន ភិវឌ្ឍនអ៍ ាសសី៊ ច្ចៈ (SADI) Sachak Asia Development institute សរនសរក្ូែក្ុងន បូែុង Reset ែូចែនៅ៖ កកសំរ្ួល នរិ ងរ្ៀបងរ្ៀរងោយៈ ដូរ ងដត 16 បង្រៀនងោយងោក្រសូ ាស្ត្សាា ចារ្យៈ មតុ វាសនា
វទិ ្យាស្ថា ន ភវិ ឌ្ឍន៍អាសសី៊ ច្ៈច (SADI) Sachak Asia Development institute លហំ ាត់ នងិ ែគំ ណ្ដោះ្ាយ លហំ ាែទ់ ី១: ចូរនធីវការបនងីកែ Form តែលម្គនន្ម ោះថា Form Login តែលអាចឲ្យ User Login ចូលនៅកាន់ Form ម្ួយនសសងនទៀែ ឬចូលនៅកានទ់ ិននយ័ ឬក្ម្មវធិ នី សសងៗនទៀែរបស់ User ។ ែនំ ណោះរសាយ ចាបន់ សីដម្នធីវការ Design Form ែូចរបូ ខាងនល៖ី ែំបូងអយងើ ្តវូ Run ចូលកម្វម ធិ ី MS. Excel ជាម្ុ៉ៃសិៃ។ ច៉ុចអលើ Visual Basic (ឬចុ៉ច Alt+F11)(Alt ខាងអវងេ )។ អាច Right click អលើ Home tab=> Customize Quick Access Toolbar=>Customize Ribbon => Tick()យកពាកយថា: Developer។អនាេះវាៃងិ បងាា ញផ្ទ ងំ ម្យួ ដបបអៃេះ៖ កកសំរ្ួល នរិ ងរ្ៀបងរ្ៀរងោយៈ ដូរ ងដត 17 បង្រៀនងោយងោក្រសូ ាស្ត្សាា ចារ្យៈ មុត វាសនា
វិទ្យាស្ថា ន ភិវឌ្ឍន៍អាសស៊ី ច្ៈច (SADI) Sachak Asia Development institute រចួ ចុចនលី Insert -> User Form រចួ វាបង្ហា ញផ្ទា ងំ ែូចរូបខាងនរកាម្ រចួ នយងី យក្ Label ម្ក្េូសនលី Form នយងី ចនំ នួ 3 រចួ េូស Text Box ចនំ នួ 2 និងេូស Button ចនំ នួ 2 ែូចរបូ ខាងនរកាម្ កកសរំ ្ួល និរ ងរ្ៀបងរ្ៀរងោយៈ ដរូ ងដត 18 បង្រៀនងោយងោក្រូសាស្ត្សាា ចារ្យៈ មតុ វាសនា
វិទ្យាស្ថា ន ភវិ ឌ្ឍនអ៍ ាសស៊ី ច្ចៈ (SADI) Sachak Asia Development institute Command Button Label Text Box ប ា បម់ ្ក្សរនសរ ក្យថា Login នៅក្ុនង Label1 សរនសរ ក្យថា User Name នៅក្ុនង Label2 និងសរ នសរ ក្យថា Password នៅក្ុនង Label3 ។ កកសរំ ្ួល និរ ងរ្ៀបងរ្ៀរងោយៈ ដូរ ងដត 19 បង្រៀនងោយងោក្រសូ ាស្ត្សាា ចារ្យៈ មុត វាសនា
វិទ្យាស្ថា ន ភវិ ឌ្ឍនអ៍ ាសស៊ី ច្ចៈ (SADI) Sachak Asia Development institute រចួ ម្ក្សរនសរ ក្យថា Login និង Cancel នៅក្ុនង Command Button ងំ ពីរ រចួ នយងី បានទរម្ង់ Form របសន់ យងី តបបននោះ នរកាយពីនយងី នធវីការ Design Form រចួ ន យី ប ា បម់ ្ក្នធវីការែូរន្ម ោះ Text Box នងិ Command Button របសន់ យងី នៅរែង់ Name តែលសែិថ នៅតសកន ្ខាងនវងវ ថ្ន Form ែូចរូប កកសំរ្ួល នរិ ងរ្ៀបងរ្ៀរងោយៈ ដរូ ងដត 20 បង្រៀនងោយងោក្រូសាស្ត្សាា ចារ្យៈ មុត វាសនា
វិទ្យាស្ថា ន ភិវឌ្ឍនអ៍ ាសស៊ី ច្ចៈ (SADI) Sachak Asia Development institute នៅរែង់ Text Box1 ែូរោក្ន់ ្ម ោះថា txtUN Text Box2 ែូរោក្ន់ ្ម ោះថា txtPW Button Login ែូរោក្ន់ ្ម ោះថា cmdLog Button Cancel ែូរោក្ន់ ្ម ោះថា cmdcan នរកាយពនី យងី នធវីការ Design Form ែូចរបូ ខាងនលរី ចួ ន យី នយងី ចាបន់ សីមដ ្នធវកី ារសរនសរក្ូែតាម្ Button នមី ្ួយៗែូចខាងនរកាម្: ១.សរនសរក្ូែក្ុងន Button Cancel Private Sub cmdCan_Click() On Error Resume Next Unload Me ThisWorkbook.Close End Sub ២.សរនសរក្ូែក្ុងន Button Login Private Sub cmdLog_Click() On Error Resume Next If txtUN = \"Menghun\" And txtPW = \"123\" Then Unload Me Application.Visible = True frm odersystem.Show Else MsgBox \"Input User Name and Password Pleas !\", vbInformation, \"Error\" End If កកសរំ ្ួល នរិ ងរ្ៀបងរ្ៀរងោយៈ ដូរ ងដត 21 បង្រៀនងោយងោក្រូសាស្ត្សាា ចារ្យៈ មតុ វាសនា
វិទ្យាស្ថា ន ភិវឌ្ឍន៍អាសស៊ី ច្ចៈ (SADI) Sachak Asia Development institute End Sub ៣.សរនសរក្ូែក្ុងន User Form Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) On Error Resume Next If CloseMode = vbFormControlMenu Then Cancel = True End If End Sub កកសរំ ្ួល នរិ ងរ្ៀបងរ្ៀរងោយៈ ដូរ ងដត 22 បង្រៀនងោយងោក្រូសាស្ត្សាា ចារ្យៈ មុត វាសនា
វទិ ្យាស្ថា ន ភិវឌ្ឍនអ៍ ាសស៊ី ច្ៈច (SADI) Sachak Asia Development institute លហំ ាែទ់ ី២: ចូរនធីកវ ារបនងែកី Form តែលនយិ យអ្ំពកី ារបូរដ របាក្ព់ ី ែុលលាា នៅ នរៀល តែលម្គនទរម្ង់ ែូចខាងនរកាម្: កកសរំ ្លួ នរិ ងរ្ៀបងរ្ៀរងោយៈ ដរូ ងដត 23 បង្រៀនងោយងោក្រសូ ាស្ត្សាា ចារ្យៈ មតុ វាសនា
វិទ្យាស្ថា ន ភវិ ឌ្ឍន៍អាសសី៊ ច្ចៈ (SADI) Sachak Asia Development institute ែនំ ណោះរសាយ ម្ុនែំបូងនយងី រែវូ នបកី ្ Form របសរ់ បសន់ យងី ឲ្យនចញជាផ្ទា ងំ ែូចខាងនរកាម្: រចួ នធីវការ Design Form នោយយក្ Label ម្ក្េូសចំននួ 5 រចួ យក្ Text Box ម្ក្េូសចនំ នួ 4 និងយក្ Button ម្ក្េូសចនំ ួន 3 ែូចរូបខាងនរកាម្ឺៈ Label Text Box Command Button រចួ នធកីវ ារសរនសរ ក្យនៅក្ុងន Label និង Button ែូចខាងនរកាម្ឺៈ - Label1 សរនសរ ក្យថា ការបូដររបាក្ព់ ីែុលាា នៅនរៀល - Label2 សរនសរ ក្យថា បញ្ូច លរបាក្ែ់ ុលាា - Label3 សរនសរ ក្យថា បញ្ូច លរបាក្ន់ រៀល - Label4 សរនសរ ក្យថា សរុបរបាក្ន់ រៀល កកសំរ្ួល នរិ ងរ្ៀបងរ្ៀរងោយៈ ដូរ ងដត 24 បង្រៀនងោយងោក្រសូ ាស្ត្សាា ចារ្យៈ មតុ វាសនា
វទិ ្យាស្ថា ន ភិវឌ្ឍនអ៍ ាសសី៊ ច្ៈច (SADI) Sachak Asia Development institute - Label5 សរនសរ ក្យថា សរុបក្ាលកាក្់ - Command Button1 សរនសរ ក្យថា េណ - Command Button2 សរនសរ ក្យថា សម្គា ែ - Command Button3 សរនសរ ក្យថា ចាក្នចញ រចួ នយងី នធីវការបូរដ ន្ម ោះ Text Box និង Command Button នៅខាងនវងវ ថ្ន Form រែង់ ក្យថា Name ែូចខាងនរកាម្៖ - Text Box1 TxtDollar - Text Box2 TxtRiel - Text Box3 TxtRate - Text Box4 TxtRemain - Command Button1 cmdcal - Command Button2 cmdclear - Command Button3 cmdclose កកសរំ ្ួល នរិ ងរ្ៀបងរ្ៀរងោយៈ ដូរ ងដត 25 បង្រៀនងោយងោក្រូសាស្ត្សាា ចារ្យៈ មុត វាសនា
វិទ្យាស្ថា ន ភិវឌ្ឍនអ៍ ាសស៊ី ច្ចៈ (SADI) Sachak Asia Development institute ប ា បព់ ី Design Form រចួ ន យី នយងី ចាបន់ សដីម្សរនសរក្ូែែូចខាងនរកាម្៖ ១. សរនសរក្ូែក្ុងន Button េណ Private Sub cmdcal_Click() On Error Resume Next Dim x As Currency Dim y As Double Dim z As Double Dim r As Double x = Val(TxtRiels.Text) y = Val(TxtDollar.Text) z = Val(TxtRate.Text) r = Val(TxtRemain.Text) z=y*x 26 បង្រៀនងោយងោក្រសូ ាស្ត្សាា ចារ្យៈ មុត វាសនា r = z Mod x TxtRate = z កកសំរ្ួល និរ ងរ្ៀបងរ្ៀរងោយៈ ដូរ ងដត
វិទ្យាស្ថា ន ភិវឌ្ឍនអ៍ ាសស៊ី ច្ៈច (SADI) Sachak Asia Development institute TxtRemain = r TxtDollar = Format(TxtDollar, \"#,##0.00 $\") TxtRiels = Format(TxtRiels, \"#,##0.00 R\") TxtRate = Format(TxtRate, \"#,##0.00 R\") TxtRemain = Format(TxtRemain, \"#,##0.00 R\") End Sub ២. សរនសរក្ូែក្ុងន Button សម្គា ែ Private Sub cmdclear_Click() On Error Resume Next TxtDollar.Text = \"\" TxtRiels.Text = \"\" TxtRate.Text = \"\" TxtRemain.Text = \"\" TxtDollar = Format(TxtDollar, \"#,##0.00 $\") TxtRiels = Format(TxtRiels, \"#,##0.00 R\") កកសរំ ្លួ និរ ងរ្ៀបងរ្ៀរងោយៈ ដូរ ងដត 27 បង្រៀនងោយងោក្រសូ ាស្ត្សាា ចារ្យៈ មុត វាសនា
វិទ្យាស្ថា ន ភវិ ឌ្ឍនអ៍ ាសសី៊ ច្ចៈ (SADI) Sachak Asia Development institute TxtRate = Format(TxtRate, \"#,##0.00 R\") TxtRemain = Format(TxtRemain, \"#,##0.00 R\") End Sub កកសរំ ្លួ នរិ ងរ្ៀបងរ្ៀរងោយៈ ដូរ ងដត 28 បង្រៀនងោយងោក្រសូ ាស្ត្សាា ចារ្យៈ មុត វាសនា
វទិ ្យាស្ថា ន ភវិ ឌ្ឍនអ៍ ាសស៊ី ច្ៈច (SADI) Sachak Asia Development institute ៣. សរនសរក្ូែក្ុងន Button ចាក្នចញ Private Sub cmdclose_Click() On Error Resume Next Dim iExit As VbMsgBoxResult iExit = MsgBox(\"Confim if you want to exit\", vbQuestion + vbYesNo, \"VLook system\") If iExit = vbYes Then Unload Me End If End Sub កកសំរ្ួល នរិ ងរ្ៀបងរ្ៀរងោយៈ ដូរ ងដត 29 បង្រៀនងោយងោក្រសូ ាស្ត្សាា ចារ្យៈ មតុ វាសនា
វិទ្យាស្ថា ន ភវិ ឌ្ឍនអ៍ ាសស៊ី ច្ចៈ (SADI) Sachak Asia Development institute ៤. សរនសរក្ូែក្ុងន User Form Private Sub UserForm_Initialize() On Error Resume Next TxtDollar.Text = \"0\" TxtRiels.Text = \"0\" TxtRate.Text = \"0\" TxtRemain.Text = \"0\" TxtDollar = Format(TxtDollar, \"#,##0.00 $\") TxtRiels = Format(TxtRiels, \"#,##0.00 R\") TxtRate = Format(TxtRate, \"#,##0.00 R\") TxtRemain = Format(TxtRemain, \"#,##0.00 R\") End Sub កកសរំ ្លួ និរ ងរ្ៀបងរ្ៀរងោយៈ ដរូ ងដត 30 បង្រៀនងោយងោក្រសូ ាស្ត្សាា ចារ្យៈ មតុ វាសនា
វទិ ្យាស្ថា ន ភវិ ឌ្ឍនអ៍ ាសសី៊ ច្ៈច (SADI) Sachak Asia Development institute ៥. សរនសរក្ូែក្ុងន Text Box ងំ 4(TxtDollar, TxtRiel, TxtRate, TxtRemain) Private Sub TxtDollar_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single) On Error Resume Next ក្ូែក្ុ ងន Text Box TxtDollar TxtDollar.Text = \"\" End Sub Private Sub TxtRate_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single) On Error Resume Next ក្ូែក្ុ ងន Text Box TxtRate TxtRate.Text = \"\" End Sub Private Sub TxtRemain_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single) On Error Resume Next ក្ូែក្ុ ងន Text Box TxtRemain TxtRemain.Text = \"\" End Sub 31 បង្រៀនងោយងោក្រសូ ាស្ត្សាា ចារ្យៈ មតុ វាសនា កកសំរ្ួល និរ ងរ្ៀបងរ្ៀរងោយៈ ដរូ ងដត
វទិ ្យាស្ថា ន ភិវឌ្ឍនអ៍ ាសសី៊ ច្ចៈ (SADI) Sachak Asia Development institute Private Sub TxtRiels_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single) On Error Resume Next ក្ូែក្ុ ងន Text Box TxtRiels TxtRiels.Text = \"\" End Sub កកសំរ្ួល និរ ងរ្ៀបងរ្ៀរងោយៈ ដូរ ងដត 32 បង្រៀនងោយងោក្រូសាស្ត្សាា ចារ្យៈ មតុ វាសនា
វទិ ្យាស្ថា ន ភិវឌ្ឍនអ៍ ាសស៊ី ច្ៈច (SADI) Sachak Asia Development institute លំហាែទ់ ី៣: ចូរនធីវការបនងែកី Form ម្ួយតែលម្គនន្ម ោះថា Frm Data Entry Form តែលម្គនទរម្ង់ ែូចខាងនរកាម្៖ ែនំ ណោះរសាយ ម្ុនែបំ ូងនយងី រែូវនធីវការ Design Form ឲ្យែូចរូបខាងនលនី ោយោក្ន់ ្ម ោះនៅតាម្ Text Box នងិ Button នមី ្ួយឲ្យបានរែមឺ ្រែូវ រចួ ចាបន់ សដីម្នធកីវ ារសរនសរក្ូែនៅក្ុងន Button នីម្យួ ៗ ែូចខាងនរកាម្៖ ១. សរនសរក្ូែក្ុងន Button Add Rrcord Private Sub cmdadd_Click() On Error Resume Next Dim wks As Worksheet Dim AddNew As Range Set wks = Sheet1 Set AddNew = wks.Range(\"A65356\").End(xlUp).Offset(1, 0) កកសំរ្ួល និរ ងរ្ៀបងរ្ៀរងោយៈ ដរូ ងដត 33 បង្រៀនងោយងោក្រសូ ាស្ត្សាា ចារ្យៈ មតុ វាសនា
វិទ្យាស្ថា ន ភិវឌ្ឍន៍អាសស៊ី ច្ចៈ (SADI) Sachak Asia Development institute AddNew.Offset(0, 0).Value = txtref.Text AddNew.Offset(0, 1).Value = txtfn.Text AddNew.Offset(0, 2).Value = txtln.Text AddNew.Offset(0, 3).Value = txtaddress.Text AddNew.Offset(0, 4).Value = txtidcard.Text AddNew.Offset(0, 5).Value = txttel.Text AddNew.Offset(0, 6).Value = txtdreg.Text AddNew.Offset(0, 7).Value = txtproid.Text AddNew.Offset(0, 8).Value = txtmt.Text AddNew.Offset(0, 9).Value = txtmf.Text lstDisplay.ColumnCount = 10 lstDisplay.RowSource = \"B1:j65356 End Sub កកសរំ ្ួល នរិ ងរ្ៀបងរ្ៀរងោយៈ ដរូ ងដត 34 បង្រៀនងោយងោក្រសូ ាស្ត្សាា ចារ្យៈ មុត វាសនា
វទិ ្យាស្ថា ន ភិវឌ្ឍន៍អាសសី៊ ច្ចៈ (SADI) Sachak Asia Development institute កកសំរ្លួ និរ ងរ្ៀបងរ្ៀរងោយៈ ដរូ ងដត 35 បង្រៀនងោយងោក្រូសាស្ត្សាា ចារ្យៈ មុត វាសនា
វទិ ្យាស្ថា ន ភិវឌ្ឍនអ៍ ាសសី៊ ច្ៈច (SADI) Sachak Asia Development institute ២. សរនសរក្ូែក្ុងន Button Reset Private Sub cmdres_Click() On Error Resume Next Dim icontrol As Control For Each icontrol In Me.Controls If icontrol.Name Like \"txt*\" Then icontrol = vbNullString Next End Sub កកសរំ ្លួ និរ ងរ្ៀបងរ្ៀរងោយៈ ដូរ ងដត 36 បង្រៀនងោយងោក្រសូ ាស្ត្សាា ចារ្យៈ មតុ វាសនា
វទិ ្យាស្ថា ន ភិវឌ្ឍន៍អាសស៊ី ច្ចៈ (SADI) Sachak Asia Development institute ៣. សរនសរក្ូែក្ុងន Button Exit Private Sub cmdexit_Click() On Error Resume Next Dim iexit As VbMsgBoxResult iexit = MsgBox(\"confirm if you want to exit\", vbQuestion + vbYesNo, \"data entry to form\") If iexit = vbYes Then Unload Me End If End Sub កកសំរ្ួល នរិ ងរ្ៀបងរ្ៀរងោយៈ ដរូ ងដត 37 បង្រៀនងោយងោក្រសូ ាស្ត្សាា ចារ្យៈ មតុ វាសនា
វិទ្យាស្ថា ន ភវិ ឌ្ឍន៍អាសសី៊ ច្ចៈ (SADI) Sachak Asia Development institute ៤. សរនសរក្ូែក្ុងន Button Delete Private Sub cmddel_Click() On Error Resume Next Dim sadi As Integer For sadi = 0 To Range(\"A65356\").End(xiup).Rows - 1 If lstDisplay.Selected(sadi) Then Rows(sadi).Select 38 បង្រៀនងោយងោក្រសូ ាស្ត្សាា ចារ្យៈ មុត វាសនា Selection.Delete End If Next sadi End Sub កកសំរ្លួ នរិ ងរ្ៀបងរ្ៀរងោយៈ ដរូ ងដត
វទិ ្យាស្ថា ន ភវិ ឌ្ឍនអ៍ ាសស៊ី ច្ៈច (SADI) Sachak Asia Development institute លំហាែទ់ ី៤: ចូរនធីកវ ារបនងែកី Form ម្ួយតែលសរម្គបរ់ េបរ់ េងក្ុងន នភាជនយី ោា នតែលម្គនទរម្ងែ់ ូច ខាងនរកាម្៖ ែនំ ណោះរសាយ ម្ុនែំបូងនយងី រែវូ Design Form ែូចខាងនរកាម្៖ - ែំបូងនយងី រែវូ ចូលកាន់ Form របស់នយងី រចួ យក្ Label ម្ក្េូសចំននួ ១ នងិ េូស Frame ចនំ នួ ៥ែូចរូប ខាងនរកាម្ Frame Label កកសំរ្លួ នរិ ងរ្ៀបងរ្ៀរងោយៈ ដរូ ងដត 39 បង្រៀនងោយងោក្រូសាស្ត្សាា ចារ្យៈ មតុ វាសនា
វិទ្យាស្ថា ន ភិវឌ្ឍនអ៍ ាសសី៊ ច្ៈច (SADI) Sachak Asia Development institute ប ា បម់ ្ក្នធវីការលុបន្ម ោះ Frame ងំ 6នៅរែង់ Caption រូចនធវកី ារសរនសរន្ម ោះន ងី វញិ នៅរែង់ Caption នៅតាម្ Frame នមី ្យួ ៗ ែូចខាងនរកាម្៖ - Frame ទី១ សរនសរ ក្យថា Information - Frame ទី២ សរនសរ ក្យថា Fast Meal And Vegetarian - Frame ទី៣ សរនសរ ក្យថា Desserts - Frame ទី៤ គ្នម នន្ម ោះ - Frame ទ៥ី សរនសរ ក្យថា Payment Method Change - Frame ទ៦ី គ្នម នន្ម ោះ នៅរែង់ Label 1សរនសរ ក្យថា Online Oderino system (Restaurant) នៅរែង់ Name ែូចរបូ ប ា បម់ ្ក្នធកីវ ារ Design Frame នមី ្យួ ៗនោយយក្ Toolbox ម្ក្េូសែូចខាងនរកាម្៖ - Frame1(Information) យក្ Label ម្ក្េូសចនំ នួ ៥ នងិ យក្ Text Box ម្ក្េូសចនំ នួ ៥។ - Frame2(Fast Meal And Vegetarian) យក្ Check Box ម្ក្េូសចនំ នួ ៨ នងិ Text Box ម្ក្េូស ចនំ នួ ៨។ - Fram3(Desserts)យក្ Check Box ម្ក្េូសចនំ នួ ៥ និង Text Box ម្ក្េូសចនំ ួន៥។ - Frame4(គ្នម នន្ម ោះ) យក្ Label ម្ក្េូសចនំ នួ ៦។ កកសំរ្លួ នរិ ងរ្ៀបងរ្ៀរងោយៈ ដូរ ងដត 40 បង្រៀនងោយងោក្រូសាស្ត្សាា ចារ្យៈ មតុ វាសនា
វទិ ្យាស្ថា ន ភវិ ឌ្ឍន៍អាសស៊ី ច្ចៈ (SADI) Sachak Asia Development institute - Frame5(Payment Method Change) យក្ Label ម្ក្េូសចនំ ួន៨ យក្ Command Button ម្ក្ េូសចំនួន៦ យក្ Text Box ម្ក្េូសចនំ ួន១ នងិ Combo Box ម្ក្េូសចំនូន១។ - Frame6(គ្នម នន្ម ោះ) យក្ Label ម្ក្េូសចំនួន២ យក្ Check Box ម្ក្េូសចំនួន៩ នងិ យក្ Text Box ម្ក្េូសចនំ នួ ៩។ Labe Check Box Che Text Box ck l Combo box Command Button កកសំរ្លួ នរិ ងរ្ៀបងរ្ៀរងោយៈ ដូរ ងដត 41 បង្រៀនងោយងោក្រូសាស្ត្សាា ចារ្យៈ មុត វាសនា
វទិ ្យាស្ថា ន ភិវឌ្ឍន៍អាសសី៊ ច្ចៈ (SADI) Sachak Asia Development institute ប ា បម់ ្ក្នធវីការោក្ន់ ្ម ោះនៅនលី Label, Text Box, Check Box, Command Button, Combo Box នៅតាម្ Frame នមី ្ួយៗែូចខាងនរកាម្៖ - Frame1 (Information) នធកីវ ារបូរដ ន្ម ោះ Label2, Label3, Label4, Label5, Label6, នៅរែង់ Caption ែូចខាងនរកាម្: + Label1 បូរដ ោក្ន់ ្ម ោះថា Customer Name + Label2 បូដរោក្ន់ ្ម ោះថា Sex + Label3 បូដរោក្ន់ ្ម ោះថា Customer Phone + Label4 បូរដ ោក្ន់ ្ម ោះថា Address + Label5 បូដរោក្ន់ ្ម ោះថា Customer E-Mail រចួ នធកីវ ារោក្ន់ ្ម ោះនលី Text Box ងំ ៥ នៅក្ុងន Frame1 នៅរែង់ Name ែូចខាងនរកាម្: + Text Box1 txtName + Text Box2 txtSex + Text Box3 txtPhone + Text Box4 txtAddress + Text Box5 txtEmail - Frame2 (Fast Meal And Vegetarian) នធកវី ារបូរដ ន្ម ោះ Check Box ងំ ៨នៅរែង់ Caption ែូចខាង នរកាម្: + Check Box1 Fries + Check Box2 Salad + Check Box3 Hamburger + Check Box4 Onion Rings + Check Box5 Chicken Salad + Check Box6 Fish Sandwich + Check Box7 Cheese Sandwich + Check Box8 Chicken Sandwich រូចនធកវី ារោក្ន់ ្ម ោះ Check Box ងំ ៨នៅរែង់ Name ែូចខាងនរកាម្: + Check Box1 chkFries + Check Box2 chkSalad កកសំរ្ួល និរ ងរ្ៀបងរ្ៀរងោយៈ ដូរ ងដត 42 បង្រៀនងោយងោក្រូសាស្ត្សាា ចារ្យៈ មុត វាសនា
វិទ្យាស្ថា ន ភវិ ឌ្ឍនអ៍ ាសសី៊ ច្ៈច (SADI) Sachak Asia Development institute + Check Box3 chkHamburger + Check Box4 chkOnionRings + Check Box5 chkChickenSalad + Check Box6 chkFishSandwich + Check Box7 chkCheeseSandwich + Check Box8 chkChickenSandwich រចួ នធកវី ារោក្ន់ ្ម ោះក្ុងន Text Box ងំ ៨ តែលសែិថ នៅក្ុងន Frame2 នៅរែង់ Name ែូចខាងនរកាម្: + Text Box6 txtFries + Text Box7 txtSalad + Text Box8 txtHamburger + Text Box9 txtOnionRings + Text Box10 txtChickenSalad + Text Box11 txtFishSandwich + Text Box12 txtCheeseSandwich + Text Box13 txtChickenSandwich - Frame3 (Desserts) នធកីវ ារបូរដ ន្ម ោះ Check Box ងំ ៥នៅរែង់ Caption ែូចខាងនរកាម្: + Check Box9 Hash Brown + Check Box10 Toasted Bagel + Check Box11 Pineapple Stick + Check Box12 Chocolate Muffin + Check Box13 Pancakes-Syrup រូចនធកីវ ារោក្ន់ ្ម ោះ Check Box ងំ ៥នៅរែង់ Name ែូចខាងនរកាម្: + Check Box9 chkHashBrown + Check Box10 chkToastedBagel + Check Box11 chkPineappleStick + Check Box12 chkChocolateMuffin + Check Box13 chkPancakesSyrup កកសំរ្លួ នរិ ងរ្ៀបងរ្ៀរងោយៈ ដរូ ងដត 43 បង្រៀនងោយងោក្រសូ ាស្ត្សាា ចារ្យៈ មុត វាសនា
វិទ្យាស្ថា ន ភវិ ឌ្ឍនអ៍ ាសស៊ី ច្ចៈ (SADI) Sachak Asia Development institute រចួ នធកវី ារោក្ន់ ្ម ោះក្ុងន Text Box ងំ ៥ តែលសែថិ នៅក្ុងន Frame3 នៅរែង់ Name ែូចខាងនរកាម្: + Text Box14 txtHashBrown + Text Box15 txtToastedBagel + Text Box16 txtPineappleStick + Text Box17 txtChocolateMuffin + Text Box18 txtPancakesSyrup - Frame4 (គ្នម នន្ម ោះ) នធកីវ ារបូរដ ន្ម ោះ Label ងំ ៣នៅរែង់ Caption ែូចខាងនរកាម្: + Label19 Date Of Order + Label20 Time Of Order + Label21 Customer Ref រចូ នធកវី ារោក្ន់ ្ម ោះ Label ងំ ៣នៅរែង់ Name ែូចខាងនរកាម្: + Label22 lblDate + Label23 lblTime + Label24 lblRefNo - Frame5 (Payment Method Change) នធកីវ ារបូរដ ន្ម ោះ Label ងំ ៤នៅរែង់ Caption ែូចខាងនរកាម្: + Label9 Change + Label10 Tax + Label11 Sub Total + Label12 Total រចូ នធកីវ ារោក្ន់ ្ម ោះ Label ងំ ៤នៅរែង់ Name ែូចខាងនរកាម្: + Label9 lblChange + Label10 lblTax + Label11 lblSubTotal + Label12 lblTotal រចួ នធកវី ារបូរដ ន្ម ោះ Command Button ងំ ៦នៅរែង់ Caption ែូចខាងនរកាម្: + Command Button1 Total + Command Button2 Add + Command Button3 Reset កកសរំ ្ួល នរិ ងរ្ៀបងរ្ៀរងោយៈ ដូរ ងដត 44 បង្រៀនងោយងោក្រសូ ាស្ត្សាា ចារ្យៈ មុត វាសនា
វិទ្យាស្ថា ន ភវិ ឌ្ឍន៍អាសសី៊ ច្ៈច (SADI) Sachak Asia Development institute + Command Button4 Hide Sheet + Command Button5 Show Sheet + Command Button6 Exit ប ា បម់ ្ក្នធកវី ារបូរដ ន្ម ោះ Command Button ងំ ៦នៅរែង់ Name ែូចខាងនរកាម្: + Command Button1 cmdTotal + Command Button2 cmdAdd + Command Button3 cmdReset + Command Button4 cmdHide + Command Button5 cmdShow + Command Button6 cmdExit រចួ នធកីវ ារបូរដ ន្ម ោះ Text Box នងិ Combo Box នៅរែង់ Name ែូចខាងនរកាម្: + Text Box19 txtTotal + Combo Box1 cboPaymentMethod - Frame6(គ្នម នន្ម ោះ) នធកីវ ារបូរដ ន្ម ោះ Check Box ងំ ៩នៅរែង់ Caption ែូចខាងនរកាម្: + Check Box14 Tea + Check Box15 Cola + Check Box16 Coffee + Check Box17 Orange + Check Box18 Bottle Water + Check Box19 Vanilla Cone + Check Box20 Vanilla Shake + Check Box21 Strawberry Shake + Check Box22 Chocolate Milk Shake កកសំរ្ួល និរ ងរ្ៀបងរ្ៀរងោយៈ ដូរ ងដត 45 បង្រៀនងោយងោក្រូសាស្ត្សាា ចារ្យៈ មុត វាសនា
វិទ្យាស្ថា ន ភិវឌ្ឍនអ៍ ាសសី៊ ច្ចៈ (SADI) Sachak Asia Development institute រចួ នធកីវ ារោក្ន់ ្ម ោះ Check Box ងំ ៩នៅរែង់ Name ែូចខាងនរកាម្: + Check Box14 chkTea + Check Box15 chkCola + Check Box16 chkCoffee + Check Box17 chkOrange + Check Box18 chkBottleWater + Check Box19 chkVanillaCone + Check Box20 chkVanillaShake + Check Box21 chkStrawberryShake + Check Box22 chkChocolateMilkShake ប ា បម់ ្ក្នធកីវ ារោក្ន់ ្ម ោះ Text Box ងំ ៩នៅរែង់ Name ែូចខាងនរកាម្: + Text Box20 TxtTea + Text Box21 TxtCola + Text Box22 TxtCoffee + Text Box23 TxtOrange + Text Box24 TxtBottleWater + Text Box25 TxtVanillaCone + Text Box26 TxtVanillaShake + Text Box27 TxtStrawberryShake + Text Box28 TxtChocolateMilkShake រចួ នធកីវ ារោក្ន់ ្ម ោះ Label ងំ ២ នៅរែង់ Caption ែូចខាងនរកាម្: + Label17 Drinks + Label18 Shakes កកសរំ ្លួ នរិ ងរ្ៀបងរ្ៀរងោយៈ ដរូ ងដត 46 បង្រៀនងោយងោក្រសូ ាស្ត្សាា ចារ្យៈ មុត វាសនា
វទិ ្យាស្ថា ន ភិវឌ្ឍនអ៍ ាសស៊ី ច្ចៈ (SADI) Sachak Asia Development institute នរកាយពី Design Form របស់នយងី រូចន យី ន ោះនយងី និងបានទរម្ង់ Form របសន់ យងី ែូចខាងនរកាម្: នរកាយពី Design Form រចួ ន យី នយងី ចាបន់ សដីម្សរនសរក្ូែែូចខាងនរកាម្៖ ១. សរនសររបកាសអ្ញ្ែា តិ Option Explicit Dim whitewine As Double Dim Redwine As Double Dim Otherwine As Double Const Price_BottleWatter = 1.9 Const Price_CheeseSandwich = 2.2 Const Price_ChickenSalad = 2.2 Const Price_ChichenSandwich = 2.2 Const Price_ChocolateMilkShake = 1.2 Const Price_ChocolateMuffin = 1.8 កកសំរ្លួ និរ ងរ្ៀបងរ្ៀរងោយៈ ដូរ ងដត 47 បង្រៀនងោយងោក្រូសាស្ត្សាា ចារ្យៈ មតុ វាសនា
វិទ្យាស្ថា ន ភវិ ឌ្ឍនអ៍ ាសស៊ី ច្ៈច (SADI) Sachak Asia Development institute Const Price_Coffee = 1.5 Const Price_Cola = 0.89 Const Price_FishSandwich = 2.7 Const Price_Fries = 1.1 Const Price_Hamburger = 2.27 Const Price_HashBrown = 2.5 Const Price_OnioRings = 0.56 Const Price_Orange = 1.5 Const Price_PancakesSyrp = 1.2 Const Price_PineappleStick = 1.7 Const Price_Salad = 1.2 Const Price_Strawberry = 1.4 Const Price_Tea = 2.25 Const Price_ToastedBagel = 1.6 Const Price_VanillaCone = 1.5 Const Price_VanillaShake = 1.7 Const Tax_Rate = 3.7 Dim iTax, iTotal, iSubTotal As Double Dim itemcost(0 To 22) As Double ២. សរនសរក្ូែក្ុងន Button Hide Sheet Private Sub CmdHide_Click() កកសរំ ្លួ និរ ងរ្ៀបងរ្ៀរងោយៈ ដរូ ងដត 48 បង្រៀនងោយងោក្រូសាស្ត្សាា ចារ្យៈ មតុ វាសនា
វទិ ្យាស្ថា ន ភវិ ឌ្ឍន៍អាសស៊ី ច្ចៈ (SADI) Sachak Asia Development institute Application.Visible = False End Sub ៣. សរនសរក្ូែក្ុងន Button Exit Private Sub CmdExit_Click() If MsgBox(\"Are you sure to exit?\", vbYesNo, \"Close Form?\") = vbYes Then Unload Me End If End Sub ៤. សរនសរក្ូែក្ុងន Button Show Sheet Private Sub CmdShow_Click() FrmLog.Show End Sub ៥. សរនសរក្ូែក្ុងន Button Total Private Sub CmdTotal_Click() On Error Resume Next Dim iTax As Double iTax = 10 lblDate.Caption = Date lblTime.Caption = Time lblRefNo.Caption = Evaluate(\"RANDBETWEEN(100,658737)\") If cboPaymentMethod = \"\" Then lblDate = \"\" lblTime = \"\" កកសរំ ្លួ និរ ងរ្ៀបងរ្ៀរងោយៈ ដរូ ងដត 49 បង្រៀនងោយងោក្រសូ ាស្ត្សាា ចារ្យៈ មតុ វាសនា
វទិ ្យាស្ថា ន ភិវឌ្ឍន៍អាសសី៊ ច្ៈច (SADI) Sachak Asia Development institute lblRefNo = \"\" End If lblThanks.Visible = True itemcost(0) = Val(txtFries.Text) * Price_Fries itemcost(1) = Val(txtSalad.Text) * Price_Salad itemcost(2) = Val(txtHamburge.Text) * Price_Hamburger itemcost(3) = Val(txtOnionRings.Text) * Price_OnioRings itemcost(4) = Val(txtChickenSalad.Text) * Price_ChickenSalad itemcost(5) = Val(txtFishSandwich.Text) * Price_FishSandwich itemcost(6) = Val(txtCheeseSandwich.Text) * Price_CheeseSandwich itemcost(7) = Val(txtChickenSandwich.Text) * Price_ChichenSandwich itemcost(8) = Val(txtHashBrown.Text) * Price_HashBrown itemcost(9) = Val(txtToastedBagel.Text) * Price_ToastedBagel itemcost(10) = Val(txtPineappleStick.Text) * Price_PineappleStick itemcost(11) = Val(txtChocolateMuffin.Text) * Price_ChocolateMuffin itemcost(12) = Val(txtPancakesSyrup.Text) * Price_PancakesSyrp itemcost(13) = Val(txtTea.Text) * Price_Tea itemcost(14) = Val(txtCola.Text) * Price_Cola itemcost(15) = Val(txtCoffee.Text) * Price_Coffee itemcost(16) = Val(txtOrange.Text) * Price_Orange itemcost(17) = Val(txtBottleWater.Text) * Price_BottleWatter itemcost(18) = Val(txtVanillaCone.Text) * Price_VanillaCone itemcost(19) = Val(TxtVanillaShake.Text) * Price_VanillaShake កកសរំ ្លួ នរិ ងរ្ៀបងរ្ៀរងោយៈ ដូរ ងដត 50 បង្រៀនងោយងោក្រូសាស្ត្សាា ចារ្យៈ មុត វាសនា
Search
