รบกวนขอโค้ดแจ้ง 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

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

     ต้องการสร้าง ComboBox ไว้สำหรับเลือกดูข้อมูล

เช่น ข้อมูลมีปี 2018 และ 2019  เราก็สร้าง  ComboBox ที่มีรายการ 2018 2019 ตามลำดับ เพื่อเลือกดูข้อมูลเฉพาะปีนั้นๆ

แต่... ที่นี้ ต้องการเพิ่ม List ใน ComboBox ว่า ทั้งหมด เพื่อทำการแสดงข้อมูลทั้งหมดทุกปีในหน้านั้นๆ

สามารถทำตามเงื่อนไขดังกล่าวนี้ได้หรือไม่คะ

รบกวนด้วยนะคะ

ขอบคุณคะ

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

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

TEXT1 =600 นาที

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

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

ขอบคุณคะ ^^

รบกวนสอบถามวิธีการแก้ไข ปัญหาติด Error ตามภาพนี้นะคะ

ขอบคุณมากคะ