2. 2552-07-22 a20032.mdb คือ กรณีศึกษาประมวลผลด้วย SQL ใน Access 2003
- empl (eid number, ename text, edep text, esex y/n, ebirth date, esalary number)
- dep (edep text, eid number, tel text)
- sex (esex y/n, sexdesc text)
- pro (proid number, proname text, prodetail memo, edep text, budget number, finish y/n)
- proteam (proid number, eid number, position text)
- q1 เบอร์ติดต่อภายในของพนักงานแต่ละคน คืออะไร
SELECT empl.eid, dep.tel FROM empl INNER JOIN dep ON empl.edep = dep.edep;
- q2 แต่ละโครงการมีบุคลากรท่านใด ร่วมทีมบ้าง
SELECT pro.proid, pro.proname, empl.eid, empl.ename
FROM (pro INNER JOIN proteam ON pro.proid = proteam.proid) 
INNER JOIN  empl ON proteam.eid = empl.eid ORDER BY pro.proname, empl.eid;
- q3 แต่ละโครงการมีชายกี่คน หญิงกี่คน รวมทั้ง 2 เพศกี่คน
SELECT pro.proid, pro.proname, Count(IIf([esex]=True,[esex])) AS m, 
Count(IIf([esex]=False,[esex])) AS f, Count(empl.eid) AS CountOfeid
FROM (pro INNER JOIN proteam ON pro.proid = proteam.proid) 
INNER JOIN empl ON proteam.eid = empl.eid GROUP BY pro.proid, pro.proname;
- form1 สร้างมีปุ่มเพิ่มข้อมูลด้วย sql หลายแบบ
dim s as string
s1 = "INSERT INTO empl ( eid ) SELECT DMax('eid','empl')+1 AS E1;"
s2 = "INSERT INTO empl ( eid ) SELECT " & Text0 & " AS E1;"
s3 = "INSERT INTO empl ( eid,ename ) values ( " & Text0 & ",'" & Text2 & "')"
If (Text0 > 100 And Len(Text0) > 2) Then ... end if
docmd.runsql s
- form2 เพิ่มเสน่ห์ให้กับฟอร์มด้วยฟังก์ชัน
Text0 = DMax("eid", "empl") + 1
s1 = "DELETE eid FROM empl WHERE eid = " & Text0
s2 = "UPDATE empl SET ename ='" & Text2 & "' WHERE eid =" & Text0
- report1 คือรายงานที่รับค่าจากฟอร์ม โดยเลือกจาก record source
DoCmd.OpenReport "report1", acViewPreview
SELECT empl.* FROM empl WHERE (((empl.eid)=forms!form2!text0));
- ปุ่มอ่านข้อมูลมาแสดงใน msgbox
Option Compare Database
Option Explicit
Dim db As Database
Dim rs As Recordset
Dim s, m As String
Set db = CurrentDb()
s = "SELECT * FROM empl"
Set rs = db.OpenRecordset(s)
rs.MoveFirst
While Not rs.EOF
  m = m & rs!eid & rs!ename & Chr(10)
  rs.MoveNext
Wend
MsgBox m
rs.Close
db.Close

3. 2552-08-01 a20033.mdb คือ macro menu, subform, listbox, combobox
- คำสั่งในฟอร์ม 1 เกี่ยวกับ listbox และ combobox ที่กำหนดแบบเป็น Value List
Private Sub Command1_Click()
  Child5.Form!Text1 = Text3 ' forms!form1!text3 = 5
End Sub
Private Sub Command11_Click()
  For i = 0 To List9.ListCount
    If (List9.Selected(i) = True) Then
      List12.AddItem (List9.ItemData(i)) ' เพิ่มเข้า listbox ใหม่
      Combo20.AddItem (List9.ItemData(i)) ' เพิ่มเข้า combobox ใหม่
    End If
  Next
End Sub
Private Sub Command14_Click()
  For i = 0 To List9.ListCount
    If (List9.Selected(i) = True) Then List9.RemoveItem (i)
  Next
End Sub
Private Sub Command19_Click()
  MsgBox (List9.ItemData(Text16)) ' แสดง item ที่ต้องการ
End Sub
Private Sub Command8_Click()
  List9.AddItem (Now) ' เพิ่ม item เข้า listbox
End Sub
Private Sub Form_Load()
  Child5.SourceObject = "form3" ' กำหนดชื่อฟอร์มให้กับ subform
End Sub

วันแรก (กำหนดการอย่างเป็นทางการ)
9.00 น. - 9.30 น. ความรู้เบื้องต้นเกี่ยวกับไมโครซอฟท์แอคเซส 
- วัตถุประสงค์การการใช้ไมโครซอฟท์แอคเซส (Objective)
- วัตถุของไมโครซอฟท์แอคเซส (Object of Microsoft Access)
- ความแตกต่างของแฟ้ม .MDB และ MDE
- ความแตกต่างของไมโครซอฟท์แอคเซสแต่ละรุ่น
9.30.00 น. - 10.30 น. การจัดการตาราง (Table Management)
- การสร้างตารางด้วย Design View, using wizard และ entering data
- การ Get External Data แบบ Import  จากระบบฐานข้อมูลอื่น
- การ Get External Data แบบ Link Table จากระบบฐานข้อมูลอื่น
- การ Export Table
10.30.00 น. - 12.00 น. การสร้างแบบสอบถาม (Query Creating)
- แบบสอบถามแบบจัดเรียง และเลือกข้อมูล (Sort and Criteria)
- แบบสอบถามแบบจัดกลุ่ม และใช้ฟังก์ชัน (Grouping and function)
- แบบสอบถามแบบประมวลผล (Executable Query)
- แบบสอบถามแบบแท็บไขว้ (Crosstab Query)
12.00น. - 13.00น. พักรับประทานอาหารกลางวัน
13.00 น. - 14.30 น. ฟอร์มเบื้องต้น (Form)
- ฟอร์มแบบด้วย Design View และ using wizard
- ฟอร์มแบบไม่ใช้ตารางข้อมูล
- ฟอร์มแบบใช้ตารางข้อมูล หรือแบบสอบถาม
- ปุ่มด้วย wizard
14.30 น. - 16.00 น. รายงานเบื้องต้น (Report)
- รายงานแบบด้วย Design View และ using wizard
- รายงานแบบไม่ใช้ตารางข้อมูล
- รายงานแบบใช้ตารางข้อมูล หรือแบบสอบถาม
- รายงานแบบ report & page header, group
- การใช้ function in textbox
วันที่สอง
9.00 น. - 10.30 น. การเชื่อมตารางในแบบสอบถาม
- การเชื่อมตารางผ่าน Primary key
- การเขียน SQL หรือนำ SQL ไปใช้ในรายงาน หรือฟอร์ม
10.30.00 น. - 12.00 น. ปุ่มคำสั่งในฟอร์ม
- เขียนคำสั่งในปุ่มคำสั่ง
- การเชื่อมโยงระหว่างฟอร์ม แบบสอบถาม และรายงาน
- การส่งค่าระหว่างฟอร์ม แบบสอบถาม และรายงาน
12.00 น. - 13.00 น. พักรับประทานอาหารกลางวัน
13.00 น. - 14.30 น. การสั่งประมวลผลตารางข้อมูลจากฟอร์ม
- การสั่งประมวลผลในฟอร์มต่อตารางข้อมูลผ่านปุ่มคำสั่ง
- การเขียนฟังก์ชันในโมดูล และการเรียกใช้โมดูลในฟอร์ม
14.30 น. - 16.00 น. ทบทวน
- การสร้างเว็บเพจที่เชื่อมโยงข้อมูลจากตาราง
- การแยกข้อมูลออกจากโปรแกรมเป็น .mdb 2 แฟ้มที่เชื่อมโยงกัน
- เชื่อมโยงตาราง แบบสอบถาม ฟอร์ม รายงาน และโมดูลเข้าด้วยกัน

1. เก็บปี ค.ศ. ใน Table แบบ Date/Time แต่ลบ ค.ศ.ไปอีก 543
   - ถ้าเก็บข้อมูลใน xdate พลาดไปแล้ว เช่น 1464 เป็นต้น
   - ถ้าแก้ตอนทำรายงานก็อาจใช้ฟังก์ชันปรับการแสดงผล
   เช่น chkdate: CDate(Format(Month([xdate]) & "/" & Day([xdate]) & "/" & Year([xdate])+543,"mm/dd/yyyy"))
2. แสดงวันที่ในช่วง 30 วัน จากวันนี้ของปีที่แล้วใน Criteria ของ Query
   เช่น <Now()-360 And >Now()-390
3. พบคำว่า can't build key เมื่อเปิดแฟ้ม .mdb ที่สร้างจาก Access 2.0 ไปใน Access 97
   วิธีที่ 1 กระชับฐานข้อมูล (Compact) ใน Access 2.0 ก่อนนำไปเปิดใน Access 97 หรือสูงกว่า
   วิธีที่ 2 โปรแกรมแปลง 2.0 เป็น 2003 จาก Microsoft
   - The Access 2.0 Converter is used by Microsoft Office Access 2003 to enable you to convert files from the Microsoft Access 2.0 file format.
4. ภาษาไทยเป็น ??? เมื่อนำไปใช้กับ ASP ใน server ของ godaddy.com
   พบว่าถ้าเป็น Access 2003 จะมีปัญหาภาษาไทยใน godaddy แต่ผม Convert .mdb มาเป็นรูปแบบแฟ้มของ Access 97 แล้ว upload กลับไปยัง server ก็ไม่พบปัญหา ?? อีกเลย ใช้งานได้ปกติ
5. พบคำว่า ? Can't Find Project or Library
   
   จากการ convert แฟ้ม .mdb ที่สร้างด้วย Access2003 ไปเป็น Access97 พบว่าใช้ฟังก์ชันบางตัวไม่ได้เช่น chr ทั้ง ๆ ที่น่าจะใช้ได้ วิธีแก้ไขคือ ถ้ายกเลิกการอ้างอิง 3 รายการที่เป็นสีแดงออก ก็จะใช้งานได้ตามปกติ แต่ 2 ตัวบนยกเลิกไม่ได้

   การติดตั้ง Office97 และ Office2003 ในเครื่องเดียวกัน
   วิธีแรก ให้ติดตั้ง Office97 ก่อน แล้วตามด้วย Office 2003
   ถ้าติดตั้ง 2003 ก่อน 97 จะทำให้ Microsoft Access 97 ใช้งานไม่ได้ แม้จะถอนแล้วลงใหม่ก็ใช้ไม่ได้เหมือนเดิม
   วิธีที่สอง ให้ติดตั้งระบบปฏิบัติการเพิ่มอีก 1 ตัว แล้วติดตั้ง Office ไว้แยกกัน

   การใช้ Microsoft Access 97 ใน WinXP ที่ใช้ database เป็น Data Type
   เช่น Dim db As Database
   จะต้อง Add Reference : Microsoft DAO 3.5 Object Library (แต่ใน Win98 ยังไม่ OK)
   โดย DOS>regsvr32 "c:\program files\common files\microsoft shared\dao\dao350.dll"
   อ่านจาก http://allenbrowne.com/ser-38.html