รบกวนขอโค้ดแจ้ง Error ว่า ไม่สามารถเชื่อมต่อเครื่องคอมพิวเตอร์ที่ต้องการเข้าถึงได้
  เนื่องจาก โค้ดที่เขียนเพื่อให้เข้าถึงไฟล์ข้อมูลของอีกเครื่องที่อยู่ในวงแลนเดียวกัน แต่ถ้าหากเครื่องที่เข้าต้องการเข้าไปเอาข้อมูล ปิดอยู่ หรือไม่สามารถ
ใช้งานได้ ตามที่เขียนไว้ โค้ดจะเด้งเป็น Error  อยากได้โค้ดที่แจ้งเตือนสำหรับ Error ว่าไม่สามารถเข้าเครืองได้โดยตรงคะ รบกวนหน่อยนะคะ

ตอนนี้ใช้โค้ด โดยกำหนดไว้ ว่า ถ้าเข้าเครื่อง \\unl-dc02\DM\12. INSTALLATION INSTRUCTION\New Folder แล้วไม่เจอ Folder ที่ชื่อ New Folder จะแจ้งไม่มีหรือหา Folder นั่นๆไม่พบ
 ที่ต้องการเพิ่มเติมคือถ้าไม่สามารถเข้าเครื่องนั่นๆได้ กรณีที่เครื่องนั้นปิดอยู่ หรือไม่ได้อยู่ในวงแลน จะใช้โค้ด อะไรดีคะ
ตอนนี้ลองใช้ On error แต่คิดว่ามันกว้างเกินไป ถ้าหากไปเจอ error ตัวอื่นจะไม่รู้ว่าจริงๆแล้วมัน error ตัวไหนกันแน่ 
รบกวนอาจารย์ทุกๆท่านด้วยนะคะ 

Private Sub cmdFindFoder_Click()
On Error GoTo ErrorHandler

    Dim sFolderPath As String
    sFolderPath = "\\unl-dc02\DM\12. INSTALLATION INSTRUCTION\NewFolder"
    If Right(sFolderPath, 1) <> "\" Then
        sFolderPath = sFolderPath & "\"
    End If
    If Dir(sFolderPath, vbDirectory) <> vbNullString Then
        MsgBox "Folder exist", vbInformation, "Find Yes"
    Else
        MsgBox "Folder doesn't exist", vbInformation, "Find No"
    End If

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
ExitSub:
    Exit Sub

ErrorHandler:
    MsgBox "there has been error. ", , "Error"
    Resume ExitSub


สอบถามอาจารยบ์ทุกท่านค่ะ

การใช้โค้ดเพื่อสร้างปุ่ม สำหรับ เลือกไฟล์มาไว้ที่ฟิลด์ Attachment โดยได้โค้ดมาดังนี้ค่ะ 

Private Sub Command7_Click()
On Error GoTo Err_AddImage
 Dim dbs As DAO.Database
 Dim rst As DAO.Recordset
 Dim rsChild As DAO.Recordset
 Set dbs = CurrentDb
 Set rst = dbs.OpenRecordset("SELECT * FROM Table1")


 rst.Edit

 Set rsChild = rst.Fields("attachmentTest").Value
    'Add a new attachment.
    filePath = "D:\"
    rsChild.AddNew
    rsChild.Fields("FileData").LoadFromFile (filePath)
    rsChild.Update
    'Update the parent record
    rst.Update
Exit_AddImage:
 Set rsChild = Nothing
 Set rsParent = Nothing
 Exit Sub
Err_AddImage:
 If Err = 3820 Then
 MsgBox ("File already part of the multi-valued field!")
 Resume Next
 Else
 MsgBox "Some Other Error occured!" & Err.Number & Err.Description
 Resume Exit_AddImage
 End If
End Sub
แต่ติด Error คะ รบกวนอาจารย์ทุกท่านช่วยหน่อยนะคะ
ความต้องการคือ ต้องการ สร้างปุ่มสำหรับเรียกโฟลเดอร์สำหรับการ แนบไฟล์ แทนการคลิกเลือกที่ฟิลAttachment

ที่มาข้อมูล :https://www.thongjoon.com/2013/07/access-2010.html

Dlookup  (พิมพ์ K ตกไปตัวนึงคะ )  ลองใส่แค่ตัว k ตรง Dlookup ก็ใช้ได้แล้ว   

ขอบคุณมากๆ นะคะ 
 

รบกวนอาจารยืทุกท่านค่ะ ขอสูตรคิดวันและ ชม. จากเวลารวมที่ เป็น นาทีค่ะ เช่น

1 วันทำงาน = 540 นาที

TEXT1 =600 นาที

Text 2 =จะแสดง ว่า จำนวนวันที่ ทำงาน 1  วัน  1 ชัวโมง

ตรงText 2 จะต้องใส่สูตรยังไงคะ 

ขอบคุณคะ ^^

รบกวนสอบถามอาจารย์ทุกท่านคะ

  เราสามารถใช้ Query Add ข้อมูลที่เป็นรูปแบบ Attachment (ที่สร้างแยกใน Form เปล่า)   แล้วใช้ Query
ในการเพิ่มAttachment ลงในตารางได้ไหมคะ โดยที่เราไม่ได้ดึงตารางนั้นๆขึ้นมาใช้

หรือมีวิธีหรือคำแนะนำอื่นๆไหมคะ 

ขอบคุณคะ