ที่ Form ตั้งต้น

Private Sub Form_Load()
Dim strProjectName As String
      'หาชื่อไฟล์ฐานข้อมูล
      strProjectName = CurrentProject.Name
       'ส่งชื่อไฟล์ฐานข้อมูลไปบันทึก
      Call Add2Project(strProjectName)
End Sub

Sub Add2Project(pName as string)

Dim MyRec as DAO.RecordSet
Set MyRec=CurrentDB.OpenDatabase("Project")
With MyRec
     If .RecordCount<>0 then
          .Edit
          'สมมติตาราง Project มีfield ที่เก็บชื่อ ฐานข้อมูลชื่อ ProjectName
              !ProjectName = pName
        .Update
     Else
        .AddNew
              !ProjectName = pName
        .Update
     End if
End With     
MyRec.Close
Set Myrec=Nothing

End sub
ลองทดสอบดูนะครับ เขียน สดๆ ไม่ได้ทดสอบก่อน

ขอบคุณค่ะอาจารย์
เดี๋ยวหนูจะทดลองทำตามดูนะคะ แล้วจะเข้ามารายงานผลให้ทราบค่ะ

ทดลองอยู่หลายวันแล้วยังไม่ได้ มันขึ้น error ตามรูปนี้ค่ะ



ลองปรับแก้ดูแล้วก็ยังไม่ได้เลยต้องเข้ามาขอความช่วยเหลืออีกค่ะ
หนูสร้างตารางชื่อ Project โดยมีfield ที่เก็บชื่อ ฐานข้อมูลชื่อ ProjectName แล้วที่ฟอร์มก็เอาเฉพาะฟิลด์ ProjectName มาใช้เท่านั้นค่ะ

รูป Error เพิ่มเติมค่ะ

1 เปิดฟอร์ม อะไรก็ได้ในมุมมองออกแบบ
2 แล้วเข้า visual basic editor
3 ที่เมนู tools (เครื่องมือ) --> References
4 ดูว่ามี Microsoft DAO x.x Object Library หรือไม่
5 ถ้าไม่มี ให้ scroll หา แล้ว ทำเครื่องหมายข้างหน้า
   สังเกตว่า
   ถ้ามีการใช้ Microsoft ActiveX Data Objects x.x Library ลำดับของ
   Microsoft DAO x.x Object Library ต้องมาก่อนนะครับ
6 อาจเป็นปัญหาการเขียน คำสั่งอะไรผิดหรือไม่ เช่น จุด (.) จึงทำให้เกิด error

ต้องขอโทษด้วยครับ
ต้องแก้เป็น

Set MyRec = CurrentDb.OpenRecordset("Project")

ยอดเยี่ยม..ใช้ได้เรียบร้อยโรงเรียนThai Access Webboard เลยค่ะอาจารย์

แก้ไขโค้ดคำสั่งใหม่ เป็น...
Set MyRec = CurrentDb.OpenRecordset("Project")
ตามที่ท่านแนะนำค่ะ

ขอขอบคุณอย่างยิ่งค่ะ

ขอเรียนถามเพิ่มเติมค่ะ
อาจารย์คะ ชื่อไฟล์ฐานข้อมูลที่โหลดเข้ามา มันมี .mdb ติดเข้ามาด้วยอะค่ะ
หากเราไม่ต้องการ .mdb ได้ไหมคะ คือเอาเฉพาะชื่อของไฟล์ฐานข้อมูลอย่างเดียวเ่ท่านั้นค่ะ

แก้ไขตรงที่
     strProjectName = CurrentProject.Name
     strProjectName = mid(strProjectName,1,Len(strProjectName)-4)

ได้ตรงตามที่ต้องการเลยค่ะ
ขอบคุณอาจารย์อีกครั้งค่ะ