Excel Forum

bayinnaung

เมื่อวานลองนำไป Run ที่เครื่องอื่นแล้วก็ไม่ติดปัญหาครับ ไม่รู้สาเหตุที่แท้จริง ส่วนที่เครื่องผมใช้นั้นเป็นเพราะใส่ชื่อตารางผิดครับทำให้ไม่ผ่าน ตอนนี้ผ่านแล้ว ขอบคุณมากๆ ครับ

bayinnaung

อันนี้เป็น DB ครับ

แก้ไขเพิ่มภาพเติมตอนที่ Error ครับ

bayinnaung

ผมจะลองทำปุ่ม เพิ่ม บันทึก ลบ แก้ไข ซึ่งผ่านเกือบหมดแล้ว เหลือแค่ปุ่มแก้ไข ทำไม่ผ่านซักทีครับ ลองประยุกต์โค้ดจากที่ต่างๆ มากมายแล้วครับ ชี้แนะด้วยนะครับ

bayinnaung

ขอบพระคุณมากๆ เลยครับ

bayinnaung

ระหว่างที่เปิด form ของ vba แล้วใช้ปุ่ม minimize เพื่อพับจอลงมาเพื่อจะเปิดสมุดงานอื่นๆ ตัวที่มีโค้ด minimize เปล่าๆ สามารถไปเข้าสมุดงานอื่นๆ ได้ปกติ แต่ไฟล์งานของผมเมื่อเปิด form แล้วใช้ปุ่ม minimize พับจอ form ลงมา ไม่สามารถเปิดหรือแสดงสมุดงานอื่นได้ รวมถึงไม่สามารถเปิด sheet อื่นๆ ได้เลยครับ

bayinnaung

นี่ครับ

bayinnaung

ใช้โค้ด minimize ครับแล้วปรากฏว่าของผม(ลิ้งล่าง)ระหว่างหว่างที่เปิดหน้า form อยู่ไม่สามารถเข้าหรือเปิดสมุดงานอื่นๆ ได้
แต่อีกอัน(ลิ้งบน)สามารถเข้าถึงสมุดงานอื่นๆ ได้ปกติ ไม่รู้จะดูตรงไหนละครับ

จำเป้นต้องใช้เว็บฝากไฟล์ครับเพราะของกระทู้บอกว่าไฟล์ใหญ่ไป ขออภัยด้วย
http://upload.siamza.com/2209063 ...

bayinnaung

http://www.mx7.com/view2/yuZvSVWGT7gqWPlf

ประมาณนี้ครับ กดแล้วปกติจะมีหน้าต่างให้เลือกรูป แต่นี่ไม่มีอะไรเกิดขึ้นเลยครับ

bayinnaung

additional controls ไม่ได้ครับ office 2007 ใส่คีย์ถูกต้อง พอกดแล้วไม่มีอะไรเกิดขึ้นเลย แต่ของที่ทำงานกดได้ปกติครับ พอดีอยากได้ folder browser dialog ครับ

bayinnaung

ที่ติดจริงๆ คือการแก้ไขข้อมูลกับลบข้อมูลครับ ให้บันทึกไปที่ cell เดิม ลองอ่านหลายๆ กระทู้เห้นว่าให้ทำโมดูล ซึ่งผมไปไม่เป็นจริงๆ ตอนนี้ทำได้แค่เพิ่มข้อมูลครับ กดรัวๆ นี่เด้งข้อมูลซ้ำ 2 อันเลย พยายามก๊อบโค้ดคนอื่นมาใส่แล้วไม่เวิร์กซักที พอจะมีแนวทางไหนที่ใกล้เคียงแนะนำผมหน่อยมั้ยครับ

bayinnaung

คือตอนนี้ทำได้ละครับ ด้วยวิธีอื่น และแบบเดิมลองเปลี่ยนมาเป็นที่ textbox1_change แต่มีปัญหาน้อยๆ คือเมื่อเอาชื่อรูปอื่นมาใส่มันไม่เปลี่ยนตามรูปที่ 2 ครับ ต้องเคลียร์ค่าอะไรหรือป่าว

และขอถามเพิ่มเติม
จากกระทู้นี้ http://snasui.com/viewtopic.php?f=3&t=6978&p=44616&hilit=%E0%B9%81%E0%B8%81%E0%B9%89%E0 ...

bayinnaung

หลังจากได้อ่านจากหลายๆ กระทู้ในนี้แล้วผมเลยลองทำดูแต่ว่ายังไม่ได้ รูปไม่มา
โค้ดตามนี้ครับ

Code: Select all

Private Sub UserForm_Initialize()
Dim myPic As String
On Error Resume Next
myPic = "D:\" & TextBox1.Text & ".jpg"
Image1.Picture = LoadPicture(myPic)
End Sub

Excel Forum

EXCEL TOOLS

Search found 12 matches

Re: ทำปุ่มแก้ไขไม่ผ่านครับ

Re: ทำปุ่มแก้ไขไม่ผ่านครับ

ทำปุ่มแก้ไขไม่ผ่านครับ

Re: ใช้ minimize แล้วเปิดอีกสมุดงานนึงไม่ได้

Re: ใช้ minimize แล้วเปิดอีกสมุดงานนึงไม่ได้

Re: ใช้ minimize แล้วเปิดอีกสมุดงานนึงไม่ได้

ใช้ minimize แล้วเปิดอีกสมุดงานนึงไม่ได้

Re: additional controls ไม่ได้ครับ

additional controls ไม่ได้ครับ

Re: ต้องการเปลี่ยนรูปตามชื่อที่ใส่ใน textbox ครับ

Re: ต้องการเปลี่ยนรูปตามชื่อที่ใส่ใน textbox ครับ

ต้องการเปลี่ยนรูปตามชื่อที่ใส่ใน textbox ครับ