Page 2 of 3

Re: การบันทึกข้อมุลเพื่อจัดทำ stock

Posted: Thu May 17, 2012 10:24 am
by มัคกี้เม้า
ในกรณีที่เรา กดปุ่ม ok ไปแล้วอยากจะให้ข้อมูลนั้นถูกลบไปด้วยคะเมื่อต้องการยกเลิก ให้กดปุ่ม remove itemname

Re: การบันทึกข้อมุลเพื่อจัดทำ stock

Posted: Thu May 17, 2012 11:24 am
by bank9597
:D ผมไม่เข้าใจครับ ที่ผมทำไป มีติดปัญหาส่วนไหนครับ

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

Re: การบันทึกข้อมุลเพื่อจัดทำ stock

Posted: Thu May 17, 2012 11:49 am
by มัคกี้เม้า
เราคีย์เข้าไปแล้วจะบันทึกอยู่ที่หน้า database ข้อนี้ถูกต้องคะ
ส่วนปุ่ม Remove ใช้ล้างเนื้อหาทั้งหมดในฟอร์ม เวลาเราคีย์ผิดหรือต้องการคีย์ใหม่ทั้งหมดครับ >> อันนี้ในกรณีที่เรายังไม่ได้กดปุ่ม OK
แต่ในอีกกรณีถ้าเรากด OK ไปแล้ว แต่ต้องการยกเลิกข้อมูลสินค้าที่เราสั่งไป ในหน้า database คะ

Re: การบันทึกข้อมุลเพื่อจัดทำ stock

Posted: Thu May 17, 2012 12:39 pm
by bank9597
:lol: การจะทำเช่นนั้นได้ จะต้องมีความรู้เรื่องโค๊ด VBA อยู่พอสมควรครับ เพราะเป็นการแก้ไขข้อมูลใน Database โดยปกติการทำเช่นนั้น จะต้องเเยกฟอร์มออกมาอีกต่างหาก เพื่อใช้เป็นฟอร์มสำหรับ อัพเดท หรือ ลบ ข้อมูลครับ

ลองเขียนโค๊ดมาดูก่อนครับ ติดส่วนไหนอย่างไรค่อยๆ ถามกันเรื่อยๆครับ

สามารถศึกษาโค๊ด พร้อมตัวอย่างไฟล์ตามลิงค์นี้ดูครับ viewtopic.php?f=3&t=2337

Re: การบันทึกข้อมุลเพื่อจัดทำ stock

Posted: Thu May 17, 2012 2:28 pm
by มัคกี้เม้า
ไม่เข้าใจคะ เรื่องสร้างฟอร์มขึ้นมาใหม่ คะ

Re: การบันทึกข้อมุลเพื่อจัดทำ stock

Posted: Thu May 17, 2012 2:37 pm
by bank9597
:D การสร้างฟอร์มขึ้นมาใหม่คือ การสร้างแบบฟอร์มเพื่อใช้ดึงข้อมูลจาก Database มาแสดงในฟอร์มที่เราสร้างขึ้น โดยสามารถยอมให้มีการแก้ไขปรับปรุงข้อมูล หรือ ลบ ข้อมูลได้
เมื่อทำเสร็จแล้วก็สั่งบันทึกปรับปรุงข้อมูลไปยังที่เดิมอีกที

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

Re: การบันทึกข้อมุลเพื่อจัดทำ stock

Posted: Thu May 17, 2012 2:45 pm
by มัคกี้เม้า
ไม่ต้องการสร้างฟอร์มใหม่คะ ยังอยากใช้ฟอร์มเดียวกันคะ^^
อีกอย่างนะคะ
คือตอนนี้ ได้สร้างปุ่มขึ้นมาใหม่ คือ 1.Received 2.Not Receive ขึ้นมา โดยที่ต้องการให้ปุ่ม เลข1 แสดงรายการสินค้าที่ได้รับแล้วเป็นสีชมพู ในชีท Summary ส่วนปุ่มเลข2 แสดงรายการสินค้าที่ยังไม่ได้รับแล้วเป็นเขียว ในชีท Summary เช่นกันคะ

Re: การบันทึกข้อมุลเพื่อจัดทำ stock

Posted: Thu May 17, 2012 2:55 pm
by bank9597
:D ผมไม่เข้าใจครับ ว่าต้องการทำแบบไหน แล้วชีท Summary เกิดขึ้นมาได้อย่างไร โดยที่ผมเข้าใจแล้วเจ้าชีท Summary จะใช้สรุปข้อมูลออกมาคล้ายกับรายงาน
ซึ่งต้องดึงข้อมูลมาจาก Database อีกเช่นกัน

ส่วนกำหนดให้เป็นสีตามที่ต้องการนั้น จะต้องมีคีย์หลักที่บอกกว่ารายการไหนควรเป็นสีไหน เช่น Remark ไว้หลังรายการเป็นตัวเลข ถ้าตัว 1 คือ รับ เลข 2 คือไม่รับ เหล่านี้เป็นคีย์หลักที่จะแยกแยะว่าเราจะกำหนดสีไหนกับรายการใด

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

Re: การบันทึกข้อมุลเพื่อจัดทำ stock

Posted: Thu May 17, 2012 3:18 pm
by มัคกี้เม้า
ขอโทษคะที่อธิบายงงนิดนึง
คือตอนนี้ ได้สร้างปุ่มขึ้นมาใหม่ คือ 1.Received 2.Not Receive ขึ้นมา โดยที่ต้องการให้ปุ่ม Received แสดงรายการสินค้าที่ได้รับแล้วเป็นสีชมพู ในชีท Summary ส่วนปุ่ม Not Receive แสดงรายการสินค้าที่ยังไม่ได้รับแล้วเป็นเขียว ในชีท Summary เช่นกันคะ
ส่วนโคดนั้นใส่ไปแล้วคะ ใน Medule4คะ

Re: การบันทึกข้อมุลเพื่อจัดทำ stock

Posted: Thu May 17, 2012 3:35 pm
by bank9597
:roll: แล้วเราจะทราบได้อย่างไรครับว่า สินค้าตัวไหนรับ หรือ ไม่รับ

ถ้าให้ดีลองอธิบายการทำงาน หรือ ระบบที่อยากให้เป็นมาโดยละเอียดดีกว่าครับ เพราะว่ายิ่งถามไป ผมก็ยิ่งงงไปกันใหญ่ครับ

Re: การบันทึกข้อมุลเพื่อจัดทำ stock

Posted: Thu May 17, 2012 3:47 pm
by มัคกี้เม้า
แล้วเราจะทราบได้อย่างไรครับว่า สินค้าตัวไหนรับ หรือ ไม่รับ
ส่วนอันนี้จะมีคนเข้ามาทำรายการเองคะ

Re: การบันทึกข้อมุลเพื่อจัดทำ stock

Posted: Thu May 17, 2012 3:54 pm
by snasui
:lol: ผมอ่านแล้วไม่เข้าใจว่าต้องการทำอะไรกับชีท Database Code ที่ให้มาเป็นการวางข้อมูลและทำการเคลียร์ค่า ไม่ได้เป็น Code สำหรับการแสดงรายการสินค้าเป็นสีอย่างที่เขียนมาตามด้านล่าง
มัคกี้เม้า wrote:ขอโทษคะที่อธิบายงงนิดนึง
คือตอนนี้ ได้สร้างปุ่มขึ้นมาใหม่ คือ 1.Received 2.Not Receive ขึ้นมา โดยที่ต้องการให้ปุ่ม Received แสดงรายการสินค้าที่ได้รับแล้วเป็นสีชมพู ในชีท Summary ส่วนปุ่ม Not Receive แสดงรายการสินค้าที่ยังไม่ได้รับแล้วเป็นเขียว ในชีท Summary เช่นกันคะ
ส่วนโคดนั้นใส่ไปแล้วคะ ใน Medule4คะ
นอกจากนี้ในชีท Database ไม่มีข้อมูลทดสอบใด ๆ เลย

Re: การบันทึกข้อมุลเพื่อจัดทำ stock

Posted: Thu May 17, 2012 4:03 pm
by มัคกี้เม้า
ต้องการทำรายการที่ได้รับสินค้าแล้วมากดที่ปุ่ม received ส่วนที่ยังไม่ได้รับสินค้าให้ไปกดที่ปุ่ม Not receive โดยข้อมูลนั้นจะไปบันทึกที่หน้า Summary คะ

Re: การบันทึกข้อมุลเพื่อจัดทำ stock

Posted: Thu May 17, 2012 4:07 pm
by snasui
:D ถ้าเช่นนั้น ลองยกตัวอย่างการกรอกข้อมูลและตัวอย่าง Code สำหรับทำเช่นนั้นมาครับ เมื่อทำแล้วติดตรงไหนให้ยกมาถามครับ อธิบายให้ชัดว่าเมื่อคลิกแล้วข้อมูลจะวิ่งจากไหนไปไหน และที่ไม่ได้เกิดปัญหาอะไร จับภาพหน้าจอมาให้ด้วยก็จะยิ่งดีครับ

Re: การบันทึกข้อมุลเพื่อจัดทำ stock

Posted: Fri May 18, 2012 12:30 pm
by มัคกี้เม้า
ขั้นตอนและวิธีการอย่างละเอียดคะ
ข้อที่ 6-8 ยังติดอยู่คะ ส่วนข้ออี่นได้หมดแล้วคะ

Re: การบันทึกข้อมุลเพื่อจัดทำ stock

Posted: Fri May 18, 2012 1:17 pm
by snasui
:D ขั้นตอนที่ 6 Code อยู่ที่ Module ใด ชื่อ Procedure ว่าอะไร ทำแล้วติดขัดตรงไหนครับ :?:

Re: การบันทึกข้อมุลเพื่อจัดทำ stock

Posted: Fri May 18, 2012 1:42 pm
by มัคกี้เม้า
Code อยู่ที่ Module ใด ชื่อ Procedure ว่าอะไร ทำแล้วติดขัดตรงไหนครับ
v
v
Module ที่2 คะ ชื่อ RemoveItemnane คะ
ติดที่4. ข้อมูลกรอกเข้าไปจะไปอยู่ที่หน้า Database โดนลบทิ้งไป

Re: การบันทึกข้อมุลเพื่อจัดทำ stock

Posted: Fri May 18, 2012 1:52 pm
by snasui
:D ผมตรวจสอบแล้ว ยังไม่ใช่ Code สำหรับลบข้อมูลใน Database ตามค่าที่คีย์ลงไปครับ เป็นการ Clear ข้อมูลในชีท Input เท่านั้น ให้เขียน Code สำหรับ Delete ข้อมูลใน Database มาด้วย ติดตรงไหนมาดูกันต่อครับ

Re: การบันทึกข้อมุลเพื่อจัดทำ stock

Posted: Fri May 18, 2012 2:41 pm
by มัคกี้เม้า
ใส่โค๊ดเข้าไปแล้วคะ แต่ก็ไม่ได้คะ

Re: การบันทึกข้อมุลเพื่อจัดทำ stock

Posted: Fri May 18, 2012 3:52 pm
by snasui
:shock: Code นี้ต้องการทำอะไร เข้าใจความหมายหรือไม่ครับ :?:

Code: Select all

If Sheets("Input").Range("H8") <> "" And Sheets("Input").Range("G10") <> "" Then
Sheets("Database").Range("A" & Rows.Count) _
.End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues.ClearContents
อย่าเพียงแต่ Copy Code มาแปะโดยที่ไม่เข้าใจว่ามันคืออะไร ผมได้แนะนำไปแล้วว่ากรณีที่ไม่เข้าใจ VBA เลยก็ควรจะอ่านและทำตามหนังสือมาเป็นลำดับไป ฟอรัมนี้ไม่รับทำงาน ไม่รับทำการบ้านให้ท่านใด ให้ถามเฉพาะที่ติดปัญหาเท่านั้นครับ