รบกวนครับ ให้ตรวจค่าซ้ำจากสองฟิวครับ
กระทู้เก่าบอร์ด อ.Yeadram

 999   9
URL.หัวข้อ / URL รบกวนครับ ให้ตรวจค่าซ้ำจากสองฟิวครับ



ตอนนี้ผมใช้แบบนี้ครับ มันเช็คแค่ Partnumber ปัญหาคือ ถ้าเป็นสินค้าตัวอื่น แต่ Partnumber เดียวกัน มันจะเตือนว่าซ้ำครับ

จะแก้โค้ดนี้ยังไงครับ ให้มันเทียบ IdProduct กับ Partnumber คู่กันเลยครับผม

Private Sub PartNumber2_BeforeUpdate(Cancel As Integer)
          Dim rst As DAO.Recordset
          Set rst = CurrentDb.OpenRecordset("SELECT Store.PartNumber FROM Store")

          On Error GoTo errl:
Do Until rst.EOF
               If rst!PartNumber = Me.PartNumber2 Then
                                MsgBox "สินค้าชิ้นนี้ได้ขายไปแล้ว", vbCritical, "สินค้าจำหน่ายออก"
                                        Cancel = True
        Me.PartNumber2.Undo
                               Exit Sub
               End If
              rst.MoveNext
            Loop
                     rst.Close
   Set rst = Nothing
errl:    Exit Sub
End Sub
โดย: โอ๋ เมื่อ: 10 มี.ค. 2558 , 16:52

9 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R20194
ลืมบอกครับ
เวลาเลือก IDproduct ดรอปเมนูลงมา เมื่อเลือกแล้ว ดรอปเมนู Partnumber อีกช่องจะกรองรายการออกมาให้อีกทีว่าเป็นของ Idproduct ที่เลือกครับผม
โดย: โอ๋ เมื่อ: 10 มี.ค. 2558 , 17:00
2 @R20195
ผมใช้อันนี้ก็ตรวจก็ได้อันเดียวครับผม

    If DCount("GetPartnumber", "GetStock", "GetPartnumber = '" & Me.GetPart & "'") > 0 Then
        MsgBox "ข้อมูลซ้ำ"
        Cancel = True
        Me.GetID.Value = ""
        Me.GetPart.Value = ""
    End If
โดย: โอ๋ เมื่อ: 10 มี.ค. 2558 , 17:23
3 @R20199
if dcount(... , ... , "GetPartnumber = '" & Me.GetPart & "' AND IDProduct = '" บลาๆๆๆๆ & "' "
โดย: สันติสุข เมื่อ: 11 มี.ค. 2558 , 21:32
4 @R20200
ไม่ผ่านครับผม ข้อมูลที่เก็บอยู่ที่

Table GetStock
GetNameID = IDProduct
GetPartnumber = GetPart

ผมลองตามนั้นก็ไม่ผ่านครับ ผมปรับอีกแบบก็ไม่ผ่านครับผม error ที่ If DCount ครับผม

If DCount("GetPartnumber", "GetStock", "GetPartnumber = '" & Me.PartNumber2 & "' and GetNameID", "GetStock", GetNameID = " & Me.IDProduct &") > 0 Then
โดย: โอ๋ เมื่อ: 11 มี.ค. 2558 , 23:15
5 @R20201
พิมพ์ผิดครับผม อันนี้ครับ

GetPartnumber = PartNumber2
โดย: โอ๋ เมื่อ: 11 มี.ค. 2558 , 23:20
6 @R20202
If DCount("GetPartnumber", "GetStock", "GetPartnumber = '" & Me.PartNumber2 & "' and GetNameID = '" & Me.IDProduct & "'") > 0 Then

คุณต้องไปอ่าน Reference Manual ของคำสั่งต่างๆที่สนใจใน Help File นะครับ ถึงจะรู้ว่าแต่ละคำสั่งต้องการพารามิเตอร์อะไรบ้าง เพราะที่คุณเขียนมา จำนวนพารามิเตอร์มันเกินกว่าที่ต้องการ และยังใส่ expression ขาดๆตอนท้ายๆด้วย
โดย: สันติสุข เมื่อ: 11 มี.ค. 2558 , 23:50
7 @R20203
ขอบคุณครับผม

ผมน่าจะเข้าใจผิดคิดว่าต้องอ้างที่ GetStock ด้วย ถ้าจะเอาฟิลอะไร
เห็นแต่ GetPartnumber", "GetStock" แต่ and GetNameID ไม่ได้อ้างถึง GetStock ผมก็เลยใส่ไปครับ

ผมเอาของอาจารย์ไปใส่แล้วมันแจ้งแบบนี้ครับผม

โดย: โอ๋ เมื่อ: 12 มี.ค. 2558 , 08:47
8 @R20205
1. เช็คว่าพิมพ์คำว่า GetNameID ถูกต้องหรือเปล่า (อักษร ไอใหญ่ มันจะเหมือน แอลเล็ก)
2. ฟิลด์ในเทเบิลชื่อ GetNameID ส่วนเท็กซ์บ็อกซ์ที่รับค่าอยู่บนฟอร์มชื่อ IDProduct ใช่หรือไม่ ?
3. GetNameID มีฟิลด์เป็นข้อมูลประเภท Text หรือ Numeric หรืออย่างอื่น
โดย: สันติสุข เมื่อ: 12 มี.ค. 2558 , 09:04
9 @R20206
ขอบคุณอาจารย์ สันติสุข มากๆครับผม

ตอนนี้ผ่านแล้วครับ เป็นที่ตัวหนังสือผิดจริงๆด้วยครับ
ปัญหาที่ติดแก้ไม่ได้ ถ้าไม่ได้อาจารย์ที่นี่งานผมคงเดินไปต่อไม่ได้แน่ๆเลยครับ

ขอบพระคุณอาจารย์ทุกท่านด้วยครับผม

ถ้าไม่เป็นการรบกวน ถ้าผมติดขัดอะไรจะมารบกวนสอบถามความรู้เพิ่มเติมนะครับ
ขอบพระคุณมากๆครับ
โดย: โอ๋ เมื่อ: 12 มี.ค. 2558 , 09:45
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.5409s