แสดงกระทู้
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
มันมีหลายแบบทั้ง Tohama MS San Sarif Arial Verada และอื่นๆ แต่ส่วนตัวผมใช้ Arial เพราะฟ้อนพวกนี้ มีทุกเครื่อง และใช้ได้ทั้งไทยและอังกฤษครับ เรื่องขนาด แล้วแต่การออกแบบครับ
ผมได้สร้างตารางการยืมสมุด ซึ่งในตาราง Table1 ประกอบด้วย NameBorrow,DateDeadline ซึ่งผมได้สร้างคิวรี่การยืมเกินกำหนด ชื่อ qryOverdue โดยนำตาราง Table1 มาแสดงในคิวรี่และได้เพิ่มฟิลด์ Overdue: [DateDeadline]-Date()
คำถาม คือ ผมต้องการจะสร้าง Report โดยมี Combo Box ซึ่งมีลิสต์ให้เลือก ระหว่าง ไม่ถึงกำหนดคืน กับ เกินกำหนดคืน จะมีวิธีการอย่างไรบ้างครับ เพื่อให้รีพอตออกมาแบบนี้ครับ ขอบคุณมากครับ
ผมว่าตรง [DateDeadline]-Date() เปลี่ยนเปนหาว่า เกินกำหนดคืน หรือยังดีกว่านะครับ
ซึ่งเราอาจจะใช้ฟังชั่น IIF เช่นโค๊ด: [Select]CheckOverdue: IIf([Datedeadline]>Date(),"ไม่เกินกำหนดคืน","เกินกำหนดคืน")ที่ช่อง Criteria ของ CheckOverdue ดังนี้โค๊ด: [Select][Forms]![Form1]![CheckOverdue]แล้วสร้างฟอร์ม มา 1 form ผมตั้งชื่อว่า Form1 กับ ComboBox ชื่อ CheckOverdue โดย มี List ไม่เกินกำหนดคืน กับ เกินกำหนดคืน
แล้วกด ปุ่ม เพิ่มเปิดรายงานขึ้นมา
ให้เช็คการวาง control พวก Combobox textbox หรืออื่นๆ ไว้ที่ ส่วนหัวของฟอร์มหรือเปล่า เพราะถ้าเป็น ฟอร์มแบบ Continuous Forms ข้อมูลต้องอยู่ในส่วนรายละเอียด ห้าม เอา Control ตัวใดไปวางไว้ที่ส่วนหัวของฟอร์ม
เพราะ สาเหตุพวกนี้อาจจะทำให้เกิด error เมื่อ กดลบเรคคอร์ดถัดไปได้
Private Sub Command19_Click()
Dim rst As DAO.Recordset
If MsgBox("คุณต้องการลบข้อมูลนี้หรือไม่ ?" & vbCrLf & "", vbYesNo + vbInformation, "Warning !!") = vbYes Then
Set rst = Recordset
If Not rst.EOF Then
rst.delete
Me.txt_Status = "20"
End If
Set rst = Nothing
End If
Me.Form.Requery
End Sub
เข้าใจว่าคงไม่อยากแก้ไขหน้ารายงาน สิ่งที่พอนึกได้คือต้องไปดูก่อนว่าเครื่องพิมพ์มีคุณสมบัติให้ย่อ/ขยายสิ่งที่จะพิมพ์ได้หรือไม่ ซึ่งอาจทำผ่านหน้าจอ LED บนตัวเครื่องพิมพ์เองเลยถ้ามี หรือจะผ่านไดรเวอร์ใน Control Panel ก็แล้วแต่ ถ้าทำได้ก็ค่อยมาทดสอบโดยตั้งขนาดกระดาษของรายงานใน Access ให้ใหญ่เกินข้อมูลที่จะพิมพ์ไปเลย จุดประสงค์คือจะไม่ให้มีการแสดงผลลัพธ์ที่เราเห็นใน Preview ในแบบที่มีข้อมูลล้นไปหน้าอื่นบางส่วน หรือมีหน้าเปล่าแสดงออกมา แล้วค่อยไปพิมพ์จริงออกเครื่องพิมพ์ที่ตั้งค่าย่อส่วนเพื่อให้พอดีหน้ากระดาษ 1 แผ่นอีกที
ผมสร้างฟอร์มกรอกข้อมูลลูกค้าโดยมีปุ่มเพิ่มข้อมูล ซึ่งในฟอร์มนี้มีซับฟอร์มลูกค้า ซึ่งผมต้องการให้ เมื่อกรอกข้อมูลเสร็จ แล้วกดปุ่มเพิ่มข้อมูลที่คำสั่งต่อท้ายด้วย me.ชื่อของ sub form.requery
ข้อมูลที่เพิ่งกรอกไปจะมาโชว์ในซับฟอร์มทันที จะมีวิธีไหนอย่างไรบ้างไหมครับ ขอบคุณครับ
มันมีหลายวิธีแล้วแต่ความถนัดครับ
https://msdn.microsoft.com/en-us/vba/access-vba/articles/insert-update-and-delete-records-from-a-table-using-access-sql?f=255&MSPPError=-2147217396
ยังมี ADO กับ DAO ด้วย ลองถาม Google ดูครับ
ไฟล์ตัวอย่างครับ
https://www.dropbox.com/s/l36nsviykjmww85/InventoryPopup.accdb?dl=0
ใน Form นั้น ข้อมูล Bound กับตัว Control ที่ดึงมาจาก Query หรือเปล่าครับ
ถ้าใช้ ผมว่าใช้คำสั่ง ApplyFilter ในการค้นหาก็ได้ครับ
ตัวอย่างคำสั่ง ใช้ใน Event on Click ที่ตัว CommandBotton
Private Sub Search_Click()
if Not IsNull (ตัว ControlTextBox ที่ใช้ค้นหา) then
DoCmd.ApplyFilter , " CIF like '*' & [Forms]![ชื่อฟอร์ม]![ชื่อ ControlTextBox ที่ใช้ค้นหา] &'*'"
Else
MsgBox "กรุณาระบุ รหัส CIF ก่อน", vbOKOnly, "แจ้ง"
ชื่อ ControlTextBox ที่ใช้ค้นหา.SetFocus
end if
End Sub
หรือส่งไฟล์มาดูผมแก้ให้ทาง pinnarong1115@hotmail.com ก็ได้คับ
