1 / 28

Adv. Access

Adv. Access. Label. เป็นคอนโทรลสำหรับพิมพ์หรือแสดงข้อความ. Name Alignment AutoSize BorderStyle. Caption Left Top. Label (properties). TextBox. เป็นคอนโทรลที่ใช้รับข้อมูลที่เป็นตัวอักษรจาก Keyboard ของผู้ใช้. Text Box (properties). TabIndex เริ่มที่ 0 TabStop Text ToolTipText.

kaylee
Download Presentation

Adv. Access

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. Adv. Access

  2. Label เป็นคอนโทรลสำหรับพิมพ์หรือแสดงข้อความ

  3. Name Alignment AutoSize BorderStyle Caption Left Top Label (properties)

  4. TextBox เป็นคอนโทรลที่ใช้รับข้อมูลที่เป็นตัวอักษรจากKeyboard ของผู้ใช้

  5. Text Box (properties) • TabIndexเริ่มที่ 0 • TabStop • Text • ToolTipText • Name • MaxLenght • Multiline • PasswordChar • ScrollBars

  6. Command Button เป็นคอนโทรลที่ทำหน้าที่เป็นปุ่มสำหรับรับคำสั่งจากผู้ใช้

  7. Command Button (properties) • Name • Caption • Default • Picture • Style

  8. ตัวอย่างงาน หาผลคูณระหว่าง 2 Text Box Sub Command1_Click() a = Text1 b = Text2 Label3.Caption = a & " * " & b & " = " & a * b End Sub

  9. ตัวอย่างงาน หาผลคูณระหว่าง 2 Text Box

  10. Source Code Sub Command1_Click() a = Text1 b = Text2 Label3.Caption = a & " * " & b & " = " & a * b End Sub

  11. Operator ทางคณิตศาสตร์ นิพจน์ความหมาย + บวก - ลบ * คูณ / หาร \ หารจำนวนเต็ม Modหารเอาแต่เศษ ^ ยกกำลัง

  12. ตัวอย่างงาน การทำงานกับ Operator ทางคณิตศาสตร์ Sub Command1_Click() Dim a As Integer Dim b As Integer a = Text1.Text b = Text2.Text Label3.Caption = a & " / " & b & " = " & a / b Label4.Caption = a & " \ " & b & " = " & a \ b Label5.Caption = a & " mod " & b & " = " & a Mod b Label6.Caption = a & " ^ " & b & " = " & a ^ b End Sub

  13. ตัวอย่างงาน การทำงานกับ Operator ทางคณิตศาสตร์

  14. Sub Command1_Click() Dim a As Integer Dim b As Integer a = Text1 b = Text2 Label3.Caption = a & " / " & b & " = " & a / b Label4.Caption = a & " \ " & b & " = " & a \ b Label5.Caption = a & " mod " & b & " = " & a Mod b Label6.Caption = a & " ^ " & b & " = " & a ^ b End Sub

  15. Operator ทางการเปรียบ นิพจน์ความหมาย =เท่ากับ > มากกว่า > =มากกว่าหรือเท่ากับ <น้อยกว่า < = น้อยกว่าหรือเท่ากับ < > ไม่เท่ากับ

  16. ตัวอย่างงาน การทำงานกับ Operator ทางการเปรียบเทียบ Sub Command1_Click() Dim a As String Dim b As String a = Text1 b = Text2 Label3.Caption = a & " > " & b & " = " & (a > b) Label4.Caption = a & " < " & b & " = " & (a < b) Label5.Caption = a & " = " & b & " = " & (a = b) Label6.Caption = a & " <> " & b & " = " & (a <> b) End Sub

  17. ตัวอย่างงาน การทำงานกับ Operator ทางการเปรียบเทียบ

  18. Sub Command1_Click() Dim a As String Dim b As String a = Text1 b = Text2 Label3.Caption = a & " > " & b & " = " & (a > b) Label4.Caption = a & " < " & b & " = " & (a < b) Label5.Caption = a & " = " & b & " = " & (a = b) Label6.Caption = a & " <> " & b & " = " & (a <> b) End Sub

  19. Operator ในการเชื่อมต่อข้อมูล & และ + ใช้ในการเชื่อมข้อมูล

  20. รูปแบบที่ 1 If…Then…Else Statement If เงื่อนไข Then Statement ….……….. End If

  21. If…Then…Else Statement If เงื่อนไขThen Statement .1. Else Statement .2. End If

  22. If…Then…Else Statement If เงื่อนไข Then Statement… Elseif เงื่อนไขThen Statement… Elseif เงื่อนไขThen … Else Statement สุดท้าย End if

  23. ตัวอย่างงาน การคำนวณแบบมีเงื่อนไข กรณี 2 เงื่อนไข คำนวณโบนัสเงื่อนไข ดังนี้ ถ้าเงินเดือนน้อยกว่า 10000 บาท ได้รับโบนัส 40% ของเงินเดือน ถ้าเงินเดือน10000 บาทขึ้นไป ได้รับโบนัส 50% ของเงินเดือน

  24. ตัวอย่างงาน IF txtsalary< 10000 then txtbonus = txtsalary*0.40 Else txtbonus= txtsary *0.50 End if

  25. ตัวอย่างงาน การคำนวณแบบมีเงื่อนไข กรณีมากกว่า 2 เงื่อนไข คำนวณโบนัสเงื่อนไข ดังนี้ ถ้าเงินเดือนน้อยกว่า 10000 บาท ได้รับโบนัส 40% ของเงินเดือน ถ้าเงินเดือน 10000 - 30000 บาท ได้รับโบนัส 50% ของเงินเดือน ถ้าเงินเดือนมากกว่า 30000 บาท ได้รับโบนัส 70% ของเงินเดือน

  26. ตัวอย่างงาน If txtsalary< 10000 then Txtbonus = txtsalary*.40 Elseiftxtsalary<=30000 then Txtbonus = txtsalary*.50 Else txtbonus = txtsalary*.70 End if

  27. End Command Docmd.Close ปิดฟอร์ม Docmd.Quit ออกจากโปรแกรม

  28. ใบงานที่ 3 (Blog สื่อการสอน) Work 3

More Related