ช่วยเขียนคำสั่งเพื่อค้นหาไฟล์(รูปภาพ)และก็อปปี้ไฟล์พร้อมแสดง

[yoguzaa]

มีเรื่องขอคำแนะนำอีกแล้วครับ
ที่หายไป กลับไปสร้างไฟล์งานที่เคยขอคำแนะนำไปครับ
ตอนนี้เหลืออีกไม่มากก็จะเสร็จครับ ขอคำแนะนำด้วยครับ
1.ตามไฟล์รูปภาพที่แนบมาครับ ตรงช่องสี่เหลี่ยมว่างๆนั้นครับ ข้างๆมีข้อความ"เพิ่มรูป"ครับ
อยากจะทำให้ข้อความนั้นเมื่อคลิ๊กแล้ว จะเปิดโฟลเดอร์เพื่อค้นหารูปภาพสมาชิกครับ
พอหาเจอและเลือกรูปนั้นแล้วให้มันแสดงภาพที่ช่องสี่เหลี่ยมข้างนั่นแหละครับ
***ต้องใช้object control ตัวไหนครับ code คำสั่ง รูปแบบยังไงครับ
ช่วยแนะนำด้วยนะครับ
2.option button 3อันนั้น add GroupName ยังไงครับ
รบกวนท่านอาจารย์ และ เพื่อนๆด้วยครับ

[bank9597]

ต้องลองศึกษา และเขียนโค๊ดมาดูก่อนครับ เพื่อที่จะได้ช่วยดูในส่วนที่ยังติดขัดอยู่ครับ

[yoguzaa]

พอดีสมุดงานค่อนข้างมีขนาดใหญ่ครับ
เลยทำตัวอย่างมาใหม่
คำอธิบายอยู่ในแผ่นงานครับ

[yoguzaa]

ลืมแนบไฟล์ ครับ

[snasui]

มี Code สำหรับดึงภาพแล้วหรือไม่ครับ อยู่ใน Module ไหน ชื่อ Procedure อะไร ช่วยแจ้งด้วยครับ

[yoguzaa]

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

[yoguzaa]

คืนนี้จะลองเขียนดูก่อนครับ

[yoguzaa]

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

[yoguzaa]

option button ในformมันไม่ส่งค่าให้ครับต้องกำหนดตัวแปรอย่างไรครับ

[snasui]

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

การ Save ไฟล์ใช้ FileCopy เข้ามาช่วยได้ครับ ตัวอย่างตาม Code ด้านล่างจะเป็นการนำไฟล์ภาพที่ดึงขึ้นมาแสดงจัดเก็บไว้ที่ D:\ ซึ่งจะต้องประกาศตัวแปรเป็น String สำหรับ Path ที่โหลดภาพเข้ามาแสดงไว้ด้านบนสุดของ Module

Code: Select all

Dim PT As String

Private Sub CmdAddnew_Click()
    Dim WS As Worksheet
    Dim S As Range
    Dim PicPath As String
    PicPath = "D:\"
    Set WS = Worksheets("temp_Regis")
    Set S = WS.Range("A1")
    
    'copy the data to the inputdata for calculate
    'S.Offset(0, 0) =      ลำดับ
    'S.Offset(0, 1) =      รหัสลูกค้า
    S.Offset(0, 2) = Frm_Register.Txt_Ac_Name.Value
    'S.Offset(0, 3) = Frm_Register.Cbo_Branch.Value
    
    S.Offset(0, 5) = Frm_Register.Txt_Name.Value
    S.Offset(0, 6) = Frm_Register.Txt_Surname.Value
    S.Offset(0, 7) = Frm_Register.Txt_ID.Value
    S.Offset(0, 8) = Frm_Register.Txt_Address_num.Value
    S.Offset(0, 9) = Frm_Register.Txt_moo.Value
    S.Offset(0, 10) = Frm_Register.Txt_Tumbon.Value
    S.Offset(0, 11) = Frm_Register.Txt_Amphur.Value
    S.Offset(0, 12) = Frm_Register.Txt_Country.Value
    S.Offset(0, 13) = Date$
    'S.Offset(0, 14) = รูป
    'S.Offset(0, 15) = Frm_Register.Cbo_Branch.Value
    
    Dim x As Object
    Set x = Frame.Object
    For Each x In Frame.Controls
        If x.Value = True Then
            x.Value = S.Offset(0, 4)
        End If
    Next
    
    '
    'Dim BC As Integer
    'Dim BR As Variant
    'Set BR = Frm_Register.Cbo_Branch.Value
    'Set BC = S.Offset(0, 15)
    'Select Case BR
    'Case Is = "กาญจนบุรี"
     'BC = "KN"
    'Case Is = "บ้านน้อย"
     'BC = "BN"
     'Case Is = "ทุ่งสมอ"
     'BC = "TS"
     'Case Is = "หนองขาว"
     'BC = "NK"
     'Case Is = "พนมทวน"
     'BC = "PT"
     'Case Is = "บ่อพลอย"
     'BC = "BP"
     'End Select
    
    'clear  content

    Me.Txt_ID.Value = ""
    Me.Txt_Name.Value = ""
    Me.Txt_Surname.Value = ""
    Me.Txt_Phone.Value = ""
    Me.Txt_Address_num.Value = ""
    Me.Txt_moo.Value = ""
    Me.Txt_Tumbon.Value = ""
    Me.Txt_Amphur.Value = ""
    Me.Txt_Country.Value = ""
    Me.Txt_Ac_Name.Value = ""
    Me.Txt_amount.Value = ""

    MsgBox "การลงทะเบียนสำเร็จ  กำลังสร้างรหัสลูกค้า", , "ขอต้อนรับสมาชิกใหม่"
    'msgbox"ลงทะเบียนสำเร็จ_คุณ_&_name_&_surname_รหัสลูกค้า คือ
    FileCopy PT, PicPath & Mid(PT, InStrRev(PT, "\") + 1)
    Frm_Register.Hide
    Sheets("menu").Activate
 
End Sub

Code: Select all

Private Sub Img_L_Click()
    'Dim PT As String
    PT = Application.GetOpenFilename("*.bmp,*.jpg")
    If PT <> "false" Then
    Img_L.Picture = LoadPicture(PT)
    Me.Repaint
    End If
End Sub

กรณีสร้าง Link มาเปิดลองเขียนมาเองดูก่อน ติดตรงไหนสามารถถามมาได้ครับ

[yoguzaa]

ขอบคุณครับ จะลองทำต่อ. หากเจอปัญหาอีกต้องรบกวนอาจารย์อีกครั้งครับ