กระทู้เก่าบอร์ด อ.Yeadram
7,774 4
URL.หัวข้อ /
URL
รบกวนสอนวิธีการค้นหาข้อมูลเพื่อโชว์บน form ด้วยคะ
รบกวนสอนวิธีการค้นหาข้อมูลเพื่อโชว์บน form ด้วยคะ
คือว่า ได้สร้าง Form และ Sub Form เพื่อจะโชว์ข้อมูลที่มีอยู่ใน table (ตอนนี้โชว์ได้แล้วคะ) แต่อยากจะเพิ่มการค้นหาข้อมูล คือ ค้นหาด้วยรหัสพนักงาน และ พอกดปุ่ม ค้นหา ข้อมูลที่ก็จะแสดงเฉพาะของพนักงานนั้นคะ ตอนนี้ติดปัญหาตรงที่ record source ของ form มันเป็น Query หนะคะ มันไม่ใช่ table เลยทำต่อไม่เป็นเลยคะ รบกวนท่านผู้รู้ทั้งหลายช่วยด้วยนะคะ ขอบคุณมากคะ
คือว่า ได้สร้าง Form และ Sub Form เพื่อจะโชว์ข้อมูลที่มีอยู่ใน table (ตอนนี้โชว์ได้แล้วคะ) แต่อยากจะเพิ่มการค้นหาข้อมูล คือ ค้นหาด้วยรหัสพนักงาน และ พอกดปุ่ม ค้นหา ข้อมูลที่ก็จะแสดงเฉพาะของพนักงานนั้นคะ ตอนนี้ติดปัญหาตรงที่ record source ของ form มันเป็น Query หนะคะ มันไม่ใช่ table เลยทำต่อไม่เป็นเลยคะ รบกวนท่านผู้รู้ทั้งหลายช่วยด้วยนะคะ ขอบคุณมากคะ
4 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R01385
ทำได้แล้วค้า ขอบคุณมากนะคะ
(แต่ว่า project ยังเหลืออีกเยอะเลยคะ แล้วจะขออนุญาตกลับมารบกวนอีกนะคะ)
(แต่ว่า project ยังเหลืออีกเยอะเลยคะ แล้วจะขออนุญาตกลับมารบกวนอีกนะคะ)
3 @R02722
ขอถามน่อยค่ะ มีอยู่ว่า
น้องกำลังเขียนฐานข้อมูลจากโปรแกรม Access 2007
สร้าง Table, Form, Report ได้แล้ว
แต่อยากรู้ว่าถ้าจะสร้างฟอร์มค้นหาข้อมูลตามวันทีเป็นช่วง เชั่นให้แสดงผลระหว่างวันที 1/01/2009 - 30/02/2009 แล้วสร้างเป็นรายงานต่อ
รบกวนด้วยน่ะค่ะ
น้องกำลังเขียนฐานข้อมูลจากโปรแกรม Access 2007
สร้าง Table, Form, Report ได้แล้ว
แต่อยากรู้ว่าถ้าจะสร้างฟอร์มค้นหาข้อมูลตามวันทีเป็นช่วง เชั่นให้แสดงผลระหว่างวันที 1/01/2009 - 30/02/2009 แล้วสร้างเป็นรายงานต่อ
รบกวนด้วยน่ะค่ะ
4 @R07616
อ. yeadram ช่วยน้องด้วยค่ะ
น้องต้องการ ทำค้นหา แต่ข้อมูลไม่เปลี่ยนอ่ะค่ะ
ต้องแก้code อย่างไรค่ะ
Private Sub CmdSerch_Click()
On Error GoTo Err_CmdSerch_Click
Form_CUSTSERCH.RecordSource = ""
Form_CUSTSERCH.RecordSource = "PayJobRpt_KomChadLuek"
Form_CUSTSERCH.AllowEdits = True
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
SerchCust.SetFocus
Exit_CmdSerch_Click:
Exit Sub
Err_CmdSerch_Click:
MsgBox Err.Description
Resume Exit_CmdSerch_Click
End Sub
น้องต้องการ ทำค้นหา แต่ข้อมูลไม่เปลี่ยนอ่ะค่ะ
ต้องแก้code อย่างไรค่ะ
Private Sub CmdSerch_Click()
On Error GoTo Err_CmdSerch_Click
Form_CUSTSERCH.RecordSource = ""
Form_CUSTSERCH.RecordSource = "PayJobRpt_KomChadLuek"
Form_CUSTSERCH.AllowEdits = True
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
SerchCust.SetFocus
Exit_CmdSerch_Click:
Exit Sub
Err_CmdSerch_Click:
MsgBox Err.Description
Resume Exit_CmdSerch_Click
End Sub
Time: 0.3330s
หมายถึงว่าให้ใส่ query ที่มี where condition (จากรหัสพนักงานที่เลือก) แล้ว ไปที่ me.recordsource = "........................." คำสั่งนี้เลยใช้มั้ยคะ
ขอถามเพิ่มอีกนิดนึงนะคะ
ถ้าเราอยากให้ เวลาเปิด form ขี้นมา แล้ว cursor มันไปอยู่ที่ textbox ของรหัสพนักงานที่ต้องการค้นหา ต้องทำยังไง อะคะ (ตอนนี้มันไปรออยู่ที่ empcode ที่ form ข้างล่างหนะคะ)
อันนี้คือ Query ของ form นะคะ
select mfam.empcode,memp.empname,memp.empsurname,mfam.famcode,mfam.name,mfam.surname,tremain.mainperiod,tremain.subperiod,tremain.maxlimit,
tremain.totclaimreq,tremain.totclaimapp,tremain.totremain
from mfam,memp,tremain,mpolsub
where mfam.empcode = memp.empcode
and mfam.famcode = tremain.conditioncode
and mpolsub.mainperiod = tremain.mainperiod
and mpolsub.subperiod = tremain.subperiod
and mfam.famver = 1
and memp.empver = 1
and tremain.claimcondesc = 'FamCode'
UNION select mfam.empcode,memp.empname,memp.empsurname,mfam.famcode,mfam.name,mfam.surname,tremain.mainperiod,tremain.subperiod,tremain.maxlimit,
tremain.totclaimreq,tremain.totclaimapp,tremain.totremain
from mfam,memp,tremain,mpolsub
where mfam.empcode = memp.empcode
and mfam.empcode = tremain.conditioncode
and mpolsub.mainperiod = tremain.mainperiod
and mpolsub.subperiod = tremain.subperiod
and mfam.famver = 1
and memp.empver = 1
and tremain.claimcondesc = 'EmpCode';
ส่วนอันนี้คือ Query ของ sub form นะคะ
SELECT tclaim.batch, tclaim.claimno, tclaim.name, tclaim.surname, tclaim.emprelation, mprovider.provider, tclaim.visitdate, tclaim.dischargedate, tclaim.disease, tclaim.claimamt, tclaim.appamt, tclaim.membershare, tclaim.declinedamt, tclaim.paymentmethod, tclaim.AccountNo, tclaim.BankCode, tclaim.ReceivedDate, tclaim.approveddate, tclaim.remark, tclaim.receiveduser, tclaim.empcode, tclaim.famcode, tclaim.mainperiod, tclaim.subperiod
FROM tclaim, mprovider
WHERE tclaim.providercode=mprovider.providercode;