ตรวจข้อมูลซ้ำ Error ครับ
กระทู้เก่าบอร์ด อ.Yeadram

 1,003   3
URL.หัวข้อ / URL ตรวจข้อมูลซ้ำ Error ครับ

ที่ผมทำมีดังนี้

Table = doctor
- id_doc

Form = doctor1
- ช่องที่กรอกข้อมูลชื่อ id_doc

Code

Private Sub id_doc_AfterUpdate()
          Dim rst As DAO.Recordset
          Set rst = CurrentDb.OpenRecordset("SELECT doctor.doctor.FROM id_doc")

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

ผิดตรงไหนครับผม
โดย: ittiphol เมื่อ: 24 เม.ย. 2556 , 16:17

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

1 @R15761
ลืมบอกไปครับ id_doc ไม่ใช่คีย์หลักนะครับ
โดย: ittiphol เมื่อ: 24 เม.ย. 2556 , 16:48
2 @R15763
SELECT idoc FROM doctor

ขอบอกว่า sql คุณมั่วจริง ควรเรียนรู้การเขียนใหม่ หรือ ใช้ Query ช่วยสร้างให้ดีกว่าครับ
โดย: PichaiTC เมื่อ: 24 เม.ย. 2556 , 19:36
3 @R15775
ขอบคุณมากครับ ผมเพิ่งจะจับครั้งแรก ไม่รู้เรื่องอะไรเลยครับ กำลังศึกษาเริ่มจาก 0 เลยครับผม
โดย: ittiphol เมื่อ: 25 เม.ย. 2556 , 08:52
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.3050s