ตรวจสอบใส่ข้อมูลซ้ำมีปัญหาครับ
กระทู้เก่าบอร์ด อ.Yeadram

 2,182   17
URL.หัวข้อ / URL ตรวจสอบใส่ข้อมูลซ้ำมีปัญหาครับ

ตรวจสอบใส่ข้อมูลซ้ำมีปัญหาครับ
ผมได้คัดลอกโค้ดอันเก่าที่ใช้งานอยู่มาใช้อีกที่นึงมัน error ครับ

เทเบิล
25chronical
ฟิว
Seeodrcode

ฟอร์ม
ช่องใส่ข้อมูล Seeodrcode

โค้ดที่ใช้

Private Sub Seeodrcode_AfterUpdate()
          Dim rst As DAO.Recordset
          Set rst = CurrentDb.OpenRecordset("SELECT Seeodrcode FROM 25chronical")

          On Error GoTo errl:
Do Until rst.EOF
               If rst!Seeodrcode = Me.Seeodrcode Then
                                MsgBox ("ข้อมูลซ้ำ")
                               Exit Sub
               End If
              rst.MoveNext
            Loop
                     rst.Close
   Set rst = Nothing
errl:    Exit Sub       
          
End Sub

ทั้งที่อีกตัวใช้ได้นะครับงงมากๆเลยครับ
โดย: กร เมื่อ: 13 ส.ค. 2556 , 10:15

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

1 @R16810
โดย: กร เมื่อ: 13 ส.ค. 2556 , 13:57
2 @R16821
http://thai-access.com/yeadram_view.php?topic_id=1204
โดย: . เมื่อ: 14 ส.ค. 2556 , 15:05
3 @R16827
ไม่ใช่อะครับ อันนี้ที่ผมใช้ เวลาพิมพ์ข้อมูลหรือข้อความที่มีอยู่แล้ว มันจะเตือนว่าซ้ำครับ โคดเดิมใช้ได้ แต่พอสร้างใหม่ใช้ไม่ได้ครับผม
โดย: กร เมื่อ: 15 ส.ค. 2556 , 07:19
4 @R16829
มันยากขนาดไม่มีใครทราบเลยหรือครับเนี่ย ผมสามารถปรึกษาใครได้ในโลกนี้ครับ
โดย: กร เมื่อ: 15 ส.ค. 2556 , 10:08
5 @R16832
compileและdebugดูก็จะรู้ว่าทำไมไม่ได้ ไปลองเอง ปกติโคดเดิมแต่ทำไม่ได้เหมือนเดิมก็น่าเป็นที่ข้อมูลแล้วหล่ะ

ถ้าถามปุ๊ปจะให้ตอบปั๊ปก็ต้องโทรไปsupportของmicrosoftแล้วหล่ะ แต่ไม่ฟรีนะ
โดย: . เมื่อ: 15 ส.ค. 2556 , 12:29
6 @R16834
ผมขับรถไปบ้านได้ครับ แต่พอขับไปทำงานแล้ว รถใช้ไม่ได้ครับ

ช่วยตอบทีว่า รถผมเป้นอะไร   ผมอุปมา ให้เข้าใจครับ ว่าทำไมไม่มีคนตอบ
โดย: Un เมื่อ: 15 ส.ค. 2556 , 14:30
7 @R16840
โคดเดิม เปลี่ยนแค่ ชื่อเทเบิล ชื่อฟิว ผมมีโคดมาให้ดู ผมไม่ได้มาถามแบบคำพูดลอยๆ ผมอธิบายทุกอย่างนะครับผม
โดย: กร เมื่อ: 16 ส.ค. 2556 , 11:32
8 @R16841
ลืมบอกครับ โคดเดิมเก็บข้อมูลตัวเลข
แต่อันใหม่เก็บข้อมูล text ครับ
โดย: กร เมื่อ: 16 ส.ค. 2556 , 13:08
9 @R16842
บอกอย่างงี้มา ตกลงชื่อเทเบิลและฟิวในโค้ดที่ใช้ได้กะไม่ได้เหมือนกันหรือเปล่า ถ้าไม่เหมือนก็เปลี่ยนให้เหมือน ถ้าเหมือนก็มีอีกเป็นร้อยสาเหตุ แล้วdebugดูยัง
โดย: . เมื่อ: 16 ส.ค. 2556 , 13:09
10 @R16843
ฟิวของเทเบิลเก็บตัวเลข แต่ประเภทฟิวมันเป็นtextหรือnumeric ถ้าเป็นtextแล้วเก็บ 1 เป็น 1 หรือมีศูนย์นำหน้าเป็น 00001
โดย: . เมื่อ: 16 ส.ค. 2556 , 13:13
11 @R16844
่จากโคดอันเดิมนะครับเก็บแบบ

123456

อันใหม่เก็บแบบ

A123456

แบบนี้ครับผม
โดย: กร เมื่อ: 16 ส.ค. 2556 , 15:07
12 @R16845
เก็บแบบนี้ โค้ดก็น่าทำงานได้เหมือนกัน
โดย: . เมื่อ: 16 ส.ค. 2556 , 15:30
13 @R16846
อันเก่าเทเบิลกำหนดฟิวเป็นค่าตัวเลข

อันใหม่กำหนดค่าเป็นแท็ก

เกี่ยวกันไหมครับ
โดย: กร เมื่อ: 16 ส.ค. 2556 , 16:08
14 @R16847
จะเก็บตัวอักษรอะไร ถ้ามันเหมือนกันก็น่าจะเปรียบเทียบ = กันได้ ต้องไปลองdebugที่บรรทัดifแล้วหล่ะ ไม่งั้นไม่รู้ว่าทำไมเปรียบเทียบไม่เท่ากันซะที
โดย: . เมื่อ: 16 ส.ค. 2556 , 17:19
15 @R16853
มันชี้ตรงนี้ครับผม

Private Sub Seeodrcode_AfterUpdate()

          Dim rst As DAO.Recordset
โดย: กร เมื่อ: 17 ส.ค. 2556 , 19:33
16 @R16854
http://www.thai-access.com/suphap.php?topic_id=2510
โดย: . เมื่อ: 17 ส.ค. 2556 , 22:05
17 @R16858
ให้ไปที่ Tools menu>References>มองหา Microsoft DAO 3.6 Object Library แล้วคลิกเลือก

จากนั้นก็จะสามารถเขียนโค้ดโดยใช้ DAO ได้เลยครับ


จบแล้วครับ ขอบคุณมากๆครับ
โดย: กร เมื่อ: 19 ส.ค. 2556 , 10:01
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.3292s