กระทู้เก่าบอร์ด อ.Yeadram
984 5
URL.หัวข้อ /
URL
ช่วยผมด้วยครับ เดือดร้อนจริงๆ ไม่เคยทำ access เลย
ผมมี ข้อมูลใน excel มา แล้วจะทำโปรแกรมค้นหาอ่ะครับ คือแบบ ในข้อมูล เรากดค้นหา เลขนี้ ข้อมูลนี้ขึ้นมาอ่ะไรประมานนี้อ่ะครับ
คือผมต้องเริ่มยังไง ลองทำแล้วไม่เข้าใจอ่ะครับ ช่วยนำทางผมทีครับ ต้องส่งเร็วๆนี้แล้วด้วย TT ปล.ผมไม่เคยทำโปรแกรมaccess เลย ถือว่าช่วยผมเอาบุญหน่อยนะครับ ขอบพระคุณมากครับบ
คือผมต้องเริ่มยังไง ลองทำแล้วไม่เข้าใจอ่ะครับ ช่วยนำทางผมทีครับ ต้องส่งเร็วๆนี้แล้วด้วย TT ปล.ผมไม่เคยทำโปรแกรมaccess เลย ถือว่าช่วยผมเอาบุญหน่อยนะครับ ขอบพระคุณมากครับบ
5 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R22298
คิวรี่ + ซับฟอร์ม ครับ
3 @R22299
วิธีทำ ค้นหาด่วน
(ฟอร์มต้องอยู่ในเทเบิลเดียวกัน)
Private Sub ชื่อปุ่ม_Click()
If IsNull(Me![ชื่อช่องค้นหา]) Or (Me![ชื่อช่องค้นหา]) = "" Then
MsgBox "กรุณาใส่หมายเลขสมาชิกที่ต้องการค้นหา", vbOKOnly, "ไม่พบข้อมูล!"
End If
Me.Filter = "ชื่อฟิลด์ = '" & Me.ชื่อช่องค้นหา & "'"
Me.FilterOn = True
Me.Requery
End Sub
ผมใช้วิธีนี้นะครับ ไม่รู้ว่าผมเข้าใจถูกหรือเปล่าที่คุณถามนะ
(ฟอร์มต้องอยู่ในเทเบิลเดียวกัน)
Private Sub ชื่อปุ่ม_Click()
If IsNull(Me![ชื่อช่องค้นหา]) Or (Me![ชื่อช่องค้นหา]) = "" Then
MsgBox "กรุณาใส่หมายเลขสมาชิกที่ต้องการค้นหา", vbOKOnly, "ไม่พบข้อมูล!"
End If
Me.Filter = "ชื่อฟิลด์ = '" & Me.ชื่อช่องค้นหา & "'"
Me.FilterOn = True
Me.Requery
End Sub
ผมใช้วิธีนี้นะครับ ไม่รู้ว่าผมเข้าใจถูกหรือเปล่าที่คุณถามนะ
4 @R22300
วิธีคุณก็สร้างฟอร์มมาปกติละครับ และก็สร้างปุ่มขึ้นมาอันนึง กับช่องพิมพ์ค้นหา
ไปที่ Event > Onclick
แล้วเอาคำสั่ง
If IsNull(Me![ชื่อช่องค้นหา]) Or (Me![ชื่อช่องค้นหา]) = "" Then
MsgBox "กรุณาใส่หมายเลขสมาชิกที่ต้องการค้นหา", vbOKOnly, "ไม่พบข้อมูล!"
End If
Me.Filter = "ชื่อฟิลด์ = '" & Me.ชื่อช่องค้นหา & "'"
Me.FilterOn = True
Me.Requery
ไปวาง แล้วเปลี่ยนชื่อตรงที่ผมเขียนให้ตรงกับของคุณ แค่นี้ครับ เวลาค้นหามันจะดึงข้อมูลที่คุณออกแบบไว้ และที่มีในเทเบิลออกมาครับ
ไปที่ Event > Onclick
แล้วเอาคำสั่ง
If IsNull(Me![ชื่อช่องค้นหา]) Or (Me![ชื่อช่องค้นหา]) = "" Then
MsgBox "กรุณาใส่หมายเลขสมาชิกที่ต้องการค้นหา", vbOKOnly, "ไม่พบข้อมูล!"
End If
Me.Filter = "ชื่อฟิลด์ = '" & Me.ชื่อช่องค้นหา & "'"
Me.FilterOn = True
Me.Requery
ไปวาง แล้วเปลี่ยนชื่อตรงที่ผมเขียนให้ตรงกับของคุณ แค่นี้ครับ เวลาค้นหามันจะดึงข้อมูลที่คุณออกแบบไว้ และที่มีในเทเบิลออกมาครับ
5 @R22301
ประมาณนี้ครับ



ประมาณนี้ครับ
Time: 1.3752s
ช่วยผมที facebook : https://web.facebook.com/sychawat.ruschayaisaraniti