รบกวนขอ code ทำปุ่ม seach ทีครับ
กระทู้เก่าบอร์ด อ.Yeadram

 1,209   7
URL.หัวข้อ / URL รบกวนขอ code ทำปุ่ม seach ทีครับ

รบกวนขอ code ทำปุ่ม seach ทีครับ
- ไฟล์ตัวอย่าง


- รูปภาพ


database : มี fild id,fullname,position

รบกวนขอ code seach ทีครับ
อยากทำ seach ชื่อ (หรือส่วนของชื่อ) ในช่อง textbox เเล้วกดปุ่ม seach
ถ้ามีชื่อก็ให้แสดงข้อมูลใน from ถ้าไม่พอชื่อให้ขึ้นหน้าต่าง ไม่พบข้อมูล

รบกวนทีครับฃ
ขอบพระคุณอย่างสูงครับ


โดย: kook เมื่อ: 10 ก.ย. 2557 , 23:10

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

1 @R19441
ผมเอาโคดอื่นๆ ของอาจารย์หลายท่านมาผสมให้นะครับ

          Dim rst As DAO.Recordset
               Set rst = CurrentDb.OpenRecordset("select count([id]) from person Where fullname = '" & Me.fullname & "'")
                        If rst(0) > 0 Then
                                DoCmd.GoToControl "fullname"
                                DoCmd.FindRecord Me.Text6
                        End If
                        rst.Close
          Set rst = Nothing

เอาไปใส่ในปุ่มนะครับ


ถ้าไม่พบให้ขึ้นไม่พบ ลองดูแล้ว ยังไม่ได้ ฝากอาจารย์ท่านอื่นมาเติมให้หน่อยครับ อยากรู้
งง อยู่ว่าใส่ Else แล้วทำไมไม่ได้
โดย: Un เมื่อ: 11 ก.ย. 2557 , 11:11
2 @R19442
          Dim rst As DAO.Recordset
               Set rst = CurrentDb.OpenRecordset("select count([id]) from person Where fullname = '" & [RED]Me.Text6[FONT] & "'")
                        If rst(0) > 0 Then
                                DoCmd.GoToControl "fullname"
                                DoCmd.FindRecord Me.Text6
                        Else
                                Msgbox "ไม่มีข้อมูล"
                        End If
                        rst.Close
          Set rst = Nothing
โดย: TTT เมื่อ: 11 ก.ย. 2557 , 13:57
3 @R19443
          Dim rst As DAO.Recordset
               Set rst = CurrentDb.OpenRecordset("select count([id]) from person Where fullname = '" & Me.Text6[/FONT] & "'")
                        If rst(0) > 0 Then
                                DoCmd.GoToControl "fullname"
                                DoCmd.FindRecord Me.Text6
                        Else
                                Msgbox "ไม่มีข้อมูล"
                        End If
                        rst.Close
          Set rst = Nothing
โดย: TTT เมื่อ: 11 ก.ย. 2557 , 13:58
4 @R19444
พยายามจะใส่โค๊ดสี ใส่ผิดตลอด 555

If Me.Text6 & "" <> "" Then
          Dim rst As DAO.Recordset
               Set rst = CurrentDb.OpenRecordset("select count([id]) from person Where fullname = '" & Me.Text6 & "'")
                        If rst(0) > 0 Then
                                DoCmd.GoToControl "fullname"
                                DoCmd.FindRecord Me.Text6
                        Else
                                Msgbox "ไม่มีข้อมูล"
                        End If
                        rst.Close
          Set rst = Nothing
End If
โดย: TTT เมื่อ: 11 ก.ย. 2557 , 14:01
5 @R19449
ขอบคุณครับอาจารย์ TTT ผมไม่เข้าใจโคต เท่าไหร่ แต่เอามาใช้ได้

จากที่อาจารย์แก้ให้ ทำให้เข้าใจได้ ว่าทำไมผมใช้ Else ไม่ได้

เพราะ Where มันไม่ถูกที่นี่เอง
โดย: Un เมื่อ: 12 ก.ย. 2557 , 09:51
6 @R19482
Test
โดย: JE เมื่อ: 18 ก.ย. 2557 , 14:42
7 @R19483
ทำไมผมตั้งกระทู้ใหม่ไม่ได้อะครับ
โดย: JE เมื่อ: 18 ก.ย. 2557 , 14:44
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.3387s