91
ห้อง MS Access / : SUM ค่าของตัวเลขจาก Queryที่กรองแล้ว
« เมื่อ: 03 ก.ย. 61 , 15:13:50 »
ได้แล้วครับอาจารย์ ขอบคุณมากครับ
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.
ขอบคุณมากครับอาจารย์ OddyWriter
ผมเอามาadapใช้งานได้แล้วครับ แต่จะรบกวนสอบถาม เราสามามารถเอาข้อความ text จากหลายๆฟิวด์มารวมเป็นฟิวด์เดียว โดยคั่นด้วยเครื่องหมาย(/) ได้หรือเปล่าครับ
โทษที่ให้รอนานนะครับ
ลองดูตัวอย่างนี้ไม่รู้ได้ไหมโค๊ด: [Select]DoCmd.ApplyFilter "", "[Style] Like '*" & Me![Combo2] & "*'"
combo2 คือ ชื่อของ Combobox ที่ใช้ค้นหา
Style คือชื่อฟิลล์ ที่ต้องการค้นหาครับ
ใส่โค้ดว่าได้แล้วครับ ขอบคุณมากครับ
DoEvents
แล้วลองเปลี่ยนโค้ด เซฟดูครับว่าได้ไหม
DoEvents
DoCmd.save acForm, "Merchandiser Key Update"
ลองเอาcodeไปวางไว้ในคำสั่งsaveแล้วได้ผลครับ แต่จะรบกวนคุณปิ่นณรงค์ช่วยอธิบายcodeนี้ให้หน่อยครับ ว่ามันเช็คที่ฟิวด์อะไรบ้างถึงแจ้งว่าซ้ำกันอะครับ พอดีผมดูไม่ออกครับโค๊ด: [Select]Private Sub save_Click()
ที่ปุ่ม Save แก้เป็นแบบนี้ครับ
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
คือถ้าเจอ ID ไหนซ้ำกันก็จะแจ้งเดือน ปกติ ถ้าเพิ่ง Copy มาแล้ว Save แล้วมันจะแจ้งว่า ID ไหน ซ้ำกับ ID ไหน พอเราแก้ไขกดเซฟไปก็จะสามารถเซฟได้แล้วครับ