แสดงกระทู้

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - prajak

หน้า: 1 ... 3 4 5 [6] 7 8 9 ... 17
91
ได้แล้วครับอาจารย์ ขอบคุณมากครับ

92
รบกวนช่วยบอกสูตรการ sum ค่าตัวเลขจาก Query ที่กรองแล้วหน่อยครับ เนื่องจากผมต้องการนำตัวเลขนั้นไปเข้าสูตรอื่นต่อครับ ส่วน Dsum เข้าใจว่าน่าจะเป็นการรวมค่าทั้งหมดของฟิวด์นั้นครับไม่น่าจะใช้ได้ เพราะผมต้องการแค่ยอดรวมเฉพาะที่เรากรองจาก Query แล้วเท่านั้น

93
ขอสอบถามอาจารย์เพิ่มเติมนะครับ จากรูปทำไมผลลัพธ์มันถูกบ้างไม่ถูกบ้างครับ ผมงงเลยครับ

94
ขอบคุณมากครับ

95
รบกวนอาจารย์เพิ่มนิดนึงนะครับ ผลลัพธ์จากการคูณที่ได้มันไม่ตรงกับการกดจากเครื่องคิดเลขครับ ผมอยากให้ค่ามันได้เหมือนเครื่องคิดเลขต้องทำยังไงครับ

96

ขอบคุณมากครับอาจารย์ OddyWriter

97
ลองทำแล้วไม่ได้ครับอาจารย์

98
ตามรูปผมต้องการหา%ของฟิวด์QtyFของแต่ละรายการ ไม่ทราบว่าต้องใช้สูตรไหนครับ


99
ผมเลือกทำในqueryได้แล้วครับ ขอบคุณมากๆครับอาจารย์

100


โทษที่ให้รอนานนะครับ
ลองดูตัวอย่างนี้ไม่รู้ได้ไหม
โค๊ด: [Select]
DoCmd.ApplyFilter "", "[Style] Like '*" & Me![Combo2] & "*'"
combo2 คือ ชื่อของ Combobox ที่ใช้ค้นหา
Style คือชื่อฟิลล์ ที่ต้องการค้นหาครับ
ผมเอามาadapใช้งานได้แล้วครับ แต่จะรบกวนสอบถาม เราสามามารถเอาข้อความ text จากหลายๆฟิวด์มารวมเป็นฟิวด์เดียว โดยคั่นด้วยเครื่องหมาย(/) ได้หรือเปล่าครับ

101
ใช่ครับอ.ปิ่นณรงค์
ปล. ช่องPO Remark ในหน้าสรุป เราให้style เรียงเป็นบรรทัดเดียวโดยมีเครื่องหมาย comma(,)ขั้นแต่ละstyleไว้ได้หรือเปล่าครับ เวลาfilterมา จะได้เห็นได้ทั้งหมดว่าจริงๆแล้วมีstyleอะไรบ้างครับ

102
ในหนึ่งPOสั้งซื้อจะต้องใช้กับหลายStyle ผมก็เลยกำหนดให้ User ป้อนชื่อstyle ในช่องหมายเหตุ โดยมีกี่style ก็ใส่ไปเลย(อาจมีถึง10 style) ตามรูป


สิ่งที่ผมต้องการคือที่หน้าสรุปรายการ(ดึงมาจากหน้าPO) ผมจะสามารถค้นหาแต่ละ style จากcombo box ได้หรือไม่ครับ เพราะมันจะแสดงแค่บันทัดแรกอย่างเดียว
รบกวนด้วยนะครับ

103
ใส่โค้ดว่า
DoEvents
แล้วลองเปลี่ยนโค้ด เซฟดูครับว่าได้ไหม

DoEvents
    DoCmd.save acForm, "Merchandiser Key Update"
ได้แล้วครับ ขอบคุณมากครับ

104
รบกวนสอบถามเพิ่มเติมนะครับ ปุ่ม save record error หลังจากที่แปลงไฟล์เป็นนามสกุล .accde แล้ว ตามรูปครับ ตอนที่เป็น .accdb สามารถใช้ได้ปกติครับ ไม่ทราบเป็นที่อะไรครับ





105
ที่ปุ่มsave ผมปรับให้เป็นแบบนี้ครับ เช็คเฉพาะPD#ซ้ำ แต่กรณี copy ขณะยังไม่มีเลขPD#ยังสามารถCopyได้อยู่ แต่เดี๋ยวคงต้องบังคับให้ฟิวด์PD# Require = Yes ไปเลย

น่าจะจบได้ใช่ไหมครับแบบนี้

106
อันนี้ผมลองกับฐานข้อมูลจริงเลยครับ ผลเป็นดังรูป

นั่นหมายถึง4ฟิวด์ที่เราใช้ตรวจสอบมีข้อมูลซ้ำหลายrecordมาก ผมคิดดูแล้วจะทำข้อตกลงกับผู้เกี่ยวข้องใหม่ครับว่าจะต้องไม่ให้PD#ซ้ำกันฟิวด์เดียวก็พอ แต่ตอนCopyข้อมูลยอมให้ฟิวด์ PD#ว่างได้( เพราะบางครั้งขณะcopy อาจยังไม่มีเลขPD# อาจมาใส่ทีหลัง) ถ้าเป็นตามแนวทางนี้ code ที่คุณปิ่นณรงค์ให้มาต้องปรับแก้ส่วนไหนบ้างครับ แก้ไขเฉพาะส่วนนี้ใช่ไหมครับ



107
โค๊ด: [Select]
Private Sub save_Click()
 Dim rstObj As DAO.Recordset, msgStr As String
 Me.Dirty = False
    Set rstObj = CurrentDb.OpenRecordset("FindDuplicate")
    Do While Not rstObj.EOF
        msgStr = msgStr & rstObj.Fields("ID") & vbCrLf
        rstObj.MoveNext
    Loop
    If IsNull(msgStr) Or msgStr = "" Then
    Me.EDTDATE = Now
    DoCmd.RunCommand acCmdSave
    Else
    Call MsgBox(msgStr, , "ตรวจพบ ID ซ้ำกัน !!!!")
    End If
     Set rstObj = Nothing
End Sub
ที่ปุ่ม Save แก้เป็นแบบนี้ครับ
คือถ้าเจอ ID ไหนซ้ำกันก็จะแจ้งเดือน ปกติ ถ้าเพิ่ง Copy มาแล้ว Save แล้วมันจะแจ้งว่า ID ไหน ซ้ำกับ ID ไหน พอเราแก้ไขกดเซฟไปก็จะสามารถเซฟได้แล้วครับ
ลองเอาcodeไปวางไว้ในคำสั่งsaveแล้วได้ผลครับ แต่จะรบกวนคุณปิ่นณรงค์ช่วยอธิบายcodeนี้ให้หน่อยครับ ว่ามันเช็คที่ฟิวด์อะไรบ้างถึงแจ้งว่าซ้ำกันอะครับ พอดีผมดูไม่ออกครับ

108
นั่นหมายถึงว่า ถ้าเราcopyมาแล้วเผลอกดsave เลย(ถึงแม้โอกาสเกิดขึ้นน้อยมากก็ตาม) ก็ยังมีโอกาสซ้ำอีกได้ใช่ไหมครับ เดี๋ยวผมว่าจะลองเพิ่มคำสั่งให้ตอนกดsaveอีกชั้นหนึ่ง ให้เช็คฟิวด์PD#ว่ามีซ้ำหรือเปล่า(เพราะช่องPD#ข้อมูลมีโอกาสซ้ำน้อยที่สุดแต่ก็ยังมีอยู่)โดยที่พอกดsave ก็จะมีคำถามว่ามีPD#นี้อยู่แล้ว ต้องการบันทึกหรือไม่ กดyes ก็ยอมให้PD#ซ้ำได้ ถ้าno ก็ ยกเลิก ประมาณนี้ครับ อย่างน้อยก็เป็นการช่วยเตือนอีกชั้นหนึ่งครับ คุณปิ่นณรงค์เห็นว่ายังไงบ้างครับ

หน้า: 1 ... 3 4 5 [6] 7 8 9 ... 17