ฟอรัม Excel, VBA และอื่นๆ ของคนไทยเพื่อประโยชน์ของทุกคนในจักรวาล (Forum Excel, VBA and others of Thai people for everyone in the universe.)
http://snasui.com/
ช่วยอธิบายเพิ่มเติมครับว่างานที่ทำมีลำดับอย่างไร Code ที่ผิดพลาดนั้น ผิดพลาดอย่างไร ที่ถูกควรเป็นอย่างไร Code อยู่ที่ Module ใด ชื่อว่าอะไร จะได้เข้าถึงปัญหาได้เร็วขึ้นครับ สำหรับการแก้ Code เพื่อให้แทรกทีละเท่านั้นเท่านี้รายการคิดว่าไม่จำเป็นครับ การเพิ่มข้อมูลในฐานข้อมูล ให้เพิ่มต่อจากรายการสุดท้าย จะเรียงหรือไม่เรียงไม่ใช่ปัญหาครับ เมื่อเพิ่มต่อจากรายการสุดท้ายก็ย่อมจะไม่ทับรายการใดครับ ช่วยทำตัวอย่างในไฟล์เดิมที่แนบมาครั้งแรกที่มี Code ทั้งหลายอยู่ครับ โยงลูกศรชี้ให้เห็นว่าต้องการคำตอบเป็นอย่างไรในไฟล์นั้นเลยจะได้สะดวกในการดูมากกว่าเขียนอธิบายแยกมาเป็นไฟล์อื่นสามารถ Lookup ข้อมูลมาได้ตามต้องการครับ ข้อมูลไม่จำเป็นต้องอยู่ติดกันก็เรียกมาแสดงหรือปรับปรุงแก้ไขได้ครับgentoo wrote:อาจารย์แต่ข้อมูลที่ผมบันทึกผมยึด Job No เป็นตัวเรียกข้อมูลเพื่อทำการเพิ่มหรือแก้ไขครับ ซึ่งหากผมเปลี่ยน Job No ใหม่ ข้อมูลของ Job No นั้นก็จะเแสดงในตารางของ sheet "Form_STD" ซึ่ง sheet "Form_STD" นี้จะถูก link ไปยังแบบฟอร์มใบสั่งงานครับ หากทำตามที่อาจารย์แนะนำผมจะเรียกข้อมูลมาทำการแก้ไขอย่างไรครับโดยใช้ Job No เป็นตัวกำหนดครับ
เรื่องการแทรกเอาไว้ทีหลัง ถ้าไม่ต้องแทรกติดปัญหาอะไร แก้กันไปเรื่อย ๆ ก่อนครับgentoo wrote:อีกคำถามหนึ่งครับในการแทรกแถวนั้นผมต้องการให้แทรกแถวท้ายสุดของตำแหน่งที่ต้องการครับ พอดีผมเขียน code แล้วมันแทรกแถวบนสุดของตำแหน่งที่ต้องการ อยากให้อาจารย์ช่วยแนะนำด้วยครับ
ช่วยทำตัวอย่างในไฟล์เดิมที่แนบมาครั้งแรกที่มี Code ทั้งหลายอยู่ครับ โยงลูกศรชี้ให้เห็นว่าต้องการคำตอบเป็นอย่างไรในไฟล์นั้นเลยจะได้สะดวกในการดูมากกว่าเขียนอธิบายแยกมาเป็นไฟล์อื่น
ขอเล่าคร่าว ๆ ก่อนนะครับ ปกติการนำข้อมูลเข้า ไม่ว่าจะเป็น Update หรือเพิ่มควรจะแยกกับการเรียกข้อมูลขึ้นมาดูครับCode: Select all
Sub InputDBF()
On Error Resume Next
Dim rAll As Range
Dim l As Long
With Sheets("Data")
Set rAll = .Range("A3", .Range("A" & Rows.Count).End(xlUp))
End With
For l = rAll.Count To 1 Step -1
If rAll(l) = Sheets("Form_Std").Range("F4")(1) Then
rAll(l).Offset(1, 0).Resize(6).EntireRow.Insert
Exit For
End If
Next l
MyVar = [InputRow]
[Target] = MyVar
End Subขอบพระคุณอาจารย์มากครับที่ได้ช่วยแนะนำครับ ผมคิดว่าต้องทำใหม่ตามที่อาจารย์แนะนำครับเนื่องจากหากทำตามวิธีที่ผมทำนั้นคงไม่ถูกต้องครับเนื่องจากผมหา คีย์หลัก ไม่ได้ครับหากหาไม่มีจริงๆ ผมอาจต้องสร้างคีย์หลักขึ้นมาเพื่อให้ง่ายต่อการทำงานครับsnasui wrote:
เมื่อเรียกดูแล้วต้องการแก้ไขก็ให้ไปกรอกในอีก Form เพื่อ Update , Add หรือ Delete นอกจากนี้ข้อมูลใน Data ควรจะมีรหัสใด ๆ ที่ทำหน้าที่เป็นคีย์หลัก คือไม่ซ้ำกันเลยในแต่ละบรรทัดแม้ว่าจะเป็น Job No เดียวกันก็ตาม ในการ Update หรือ ลบ หรือ แก้ไข ก็จะใช้คีย์หลักที่ว่านั้นในการจัดการ กรณีเป็นการ Add ก็ให้ระบบสร้างคีย์หลักให้ใหม่
สำหรับที่ถามมาเพื่อแทรกบรรทัดก่อนที่จะนำข้อมูลมาวางนั้นผมปรับ Code มาให้ดูเป็นตัวอย่างตามด้านล่างครับ
[/code]