อัพโหลดรูปภาพที่ 2 ไม่ได้ครับ VBA ผมแนบไฟล์มาด้วย รบกวนอาจารย์ด้วยนะครับ

[SuminO]

ภาพแรกขึ้นไม่มีปัญหาแต่พอจะอัพภาพที่ 2 ขึ้น Error ดังรูปครับ

Code: Select all

Private Sub cmdUpload1_Click()
 Dim Pic_Path As String
        Pic_Path = Application.GetOpenFilename(FileFilter:="JPG images, *.jpg, Bitmap Files, *.bmp", _
                   Title:="Please select an image", MultiSelect:=False)
        
        If Dir(Pic_Path) <> "" Then
           Me.txtImageURL2.Value = Pic_Path
           Me.imgStudent2.Picture = LoadPicture(Pic_Path)
        End If
End Sub

ข้อผิดพลาด "วิธีการหรือสมาชิกข้อมูลไม่พบ" มักเกิดขึ้นใน VBA เมื่อรหัสอ้างอิงวิธีการหรือสมาชิกของวัตถุที่ไม่มีอยู่ หรือไม่รู้จัก โดยสภาพแวดล้อม VBA ในกรณีของคุณข้อผิดพลาดนี้อาจเกิดขึ้นเนื่องจากสาเหตุที่เป็นไปได้บางประการ:

ไม่มีการอ้างอิง: ตรวจสอบให้แน่ใจว่าคุณได้เลือกไลบรารีอ้างอิงที่จําเป็นในสภาพแวดล้อม VBA ของคุณ ใน Microsoft Access คุณสามารถไปที่เมนู "เครื่องมือ" เลือก "อ้างอิง" จากนั้นตรวจสอบให้แน่ใจว่ามีการเลือกไลบรารีที่เหมาะสม ไลบรารีที่จําเป็นสําหรับรหัสที่คุณให้ไว้มักจะรวมไว้ตามค่าเริ่มต้น

ชื่อตัวควบคุม: ตรวจสอบว่าชื่อของตัวควบคุมฟอร์มของคุณ ( และ ) ตรงกับชื่อของตัวควบคุมบนฟอร์มของคุณ ตรวจสอบการพิมพ์ผิดหรือความไวของตัวพิมพ์เล็กและตัวพิมพ์ใหญ่txtImageURL2imgStudent2

ตัวควบคุมรูป ActiveX: ตรวจสอบให้แน่ใจว่าตัวควบคุมที่ชื่อเป็นตัวควบคุมรูป ActiveX ถ้าเป็นเพียงตัวควบคุม Image ปกติ ตัวควบคุมนั้นจะไม่มีคุณสมบัติ คุณอาจต้องใช้ตัวควบคุมอื่นหรืออัปเดตคุณสมบัติตัวควบคุมของคุณimgStudent2.Picture

ฟอร์มที่หายไปหรือไม่ใช้งาน: ยืนยันว่าโค้ดถูกวางไว้ในโมดูลฟอร์มที่เหมาะสม และฟอร์มที่มีตัวควบคุมจะทํางานและเปิดเมื่อคุณเรียกใช้โค้ดนี้

หากคุณได้ตรวจสอบจุดเหล่านี้ทั้งหมดแล้วและยังคงพบข้อผิดพลาดโปรดระบุบริบทหรือรายละเอียดเพิ่มเติมเกี่ยวกับสภาพแวดล้อม Access และการตั้งค่าแบบฟอร์มของคุณและฉันสามารถช่วยแก้ไขปัญหาเพิ่มเติมได้

[SuminO]

ได้แล้วนะครับ
ไม่เจอ txtImageURL2