สามารถใช้กับการค้นหาภายในปีได้ตามต้องการครับ ขอบคุณสำหรับคำเเนะนำครับ

เเต่ตอนนี้กำลังหาทางให้สามารถ filter ข้อมูลข้ามปีครับ

Private Sub MAYrecordbut_Click()

Dim strCriteriaM1 As String
Dim strCriteriaM2 As String
Dim strCriteriaMA As String
Dim strCriteriaMB As String
Dim task1 As String
Dim task2 As String
Me.Refresh

If IsNull(Me.FROMmonthtxt) Or IsNull(Me.TOmonthtxt) Then
MsgBox " Please enter the month range", vbInformation, "Month Range Required"
Me.SetFocus
ElseIf IsNull(Me.FROMyeartxt) Or IsNull(Me.TOyeartxt) Then
MsgBox " Please enter the year range", vbInformation, "Year Range Required"
End If

'ใช้ค้นหาข้อมูลภายในปีนั้นๆ เมื่อ Me.FROMyeartxt.Value = 2020 เเละ Me.TOyeartxt.Value = 2020
If Me.FROMyeartxt.Value = Me.TOyeartxt.Value Then
strCriteriaM1 = "([Month] between " & Me.FROMmonthtxt.Value & " and " & Me.TOmonthtxt.Value & ") and ([Year] between " & Me.FROMyeartxt.Value & " and " & Me.TOyeartxt.Value & ")"
task1 = " SELECT * From QueryRECORD where " & strCriteriaM1 & " order by [Month] ASC , [Year] ASC "
DoCmd.ApplyFilter task1
Me.Requery

'ใช้ค้นหาข้อมูลข้ามปี เมื่อ Me.FROMyeartxt.Value = 2020 เเละ Me.TOyeartxt.Value = 2021

ElseIf Me.FROMyeartxt.Value < Me.TOyeartxt.Value Then

'ให้หาข้อมูลจาก Query ภายในปี 2020 จากเดือนที่ต้องการใน textbox ชื่อ FROMmonthtxt จนถึงเดือน 12
strCriteriaMA = " ([Month] between " & Me.FROMmonthtxt.Value & " and " & 12 & ") and ([Year] = " & Me.FROMyeartxt.Value & ") "

'ให้หาข้อมูลจาก Query ภายในปี 2021 จากเดือน 1 จนถึงเดือรที่ต้องการใน textbox ชื่อ TOmonthtxt
strCriteriaMB = " ([Month] between " & 1 & " and " & Me.TOmonthtxt.Value & ") and ([Year] = " & Me.TOyeartxt.Value & ") "

'รวมคำสั่ง
strCriteriaM2 = "  '" & strCriteriaMA & "' And '" & strCriteriaMB & "' "

task2 = " SELECT * From QueryRECORD where " & strCriteriaM2 & "   order by [Month] ASC , [Year] ASC "

DoCmd.ApplyFilter task2
Me.Requery
End If

End Sub

ใช้โค้ดตามนี้เเต่ยังไม่สามารถเเสดงข้อมูลข้ามปีได้ครับ พอมีคำเเนะนำในการเขียนโค้ดไหมครับ

ขอคำเเนะนำครับ
อยากทราบวิธี save ไฟล์ Access ให้กลายเป็นโปรเเกรมที่จะนำไปใช้งาน โดยไม่เเสดง Menu Bar เเละ เเถบข้างๆที่เเสดงพวก table query form ครับตามภาพเเละวิดีโอ ตัวอย่างด้านล่างครับ ต้องตั้งค่าอย่างไรบ้างครับ

พอสร้าง listbox ขึ้นมา

1. อยากตั้งค่าให้ตัวหนังสือใน listbox อยู่ตรงกลางทั้งหมดนะครับพอจะมีวิธีการตั้งค่าไหมครับ
2. อยากตั้งค่าให้ตัวหนังสือใน listbox บางช่องอยู่ตรงกลาง บางช่องอยู่ชิดขวานะครับพอจะมีวิธีการตั้งค่าไหมครับ
3. อยากตั้งค่าให้ตัวหนังสือของ column heads นะครับพอจะมีวิธีการตั้งค่าไหมครับ

คือเคยลองค้นหาข้อมูลเเล้วพบว่าใช้โค้ด ชื่อlistbox.LabelAlign  เเต่ไม่พบตัวอย่างการเขียน vba นะครับ เลยไม่ทราบว่าสามารถใช้ตั่งค่า listbox ได้หรือเปล่า ขอคำเเนะนำด้วยครับ   

คือ ผมทราบว่าปกติเราสามารถ นำข้อมูลเข้าออก จาก access ไป excel ได้โดยการเลือก external data เเละไปที่ excel
เเต่อยากทราบว่าเราสามารถสร้างปุ่มไว้ใน ฟอร์ม เเล้วเขียน VBA ให้นำข้อมูลเข้าหรือออก จาก access ไป excel ได้รึเปล่าครับ

ถ้าสามารถทำได้ต้องเขียนโค้ดยังไงบ้างครับ ขอคำเเเนะนำด้วยครับ

ทำได้เเล้วครับ ขอบคุณมากครับ 

ขอสอบถามผู้รู้ครับ

คือผมต้องการสร้างฐานข้อมูล้เกี่ยวกับการเก็บข้อมูลชิ้นส่วนอุปกรณ์ , เลข PN (Part Number) เเละรูปภาพ
โดย Form สามารถอัปโหลดรูปภาพลงไปใน table ได้ด้วย  attachment (ต้องการให้รูปถูกเเนบลงฐานข้อมูลเพื่อไปเเสดงใน Form หรือ Report ได้ในภายภาคหน้า) เเละ เมื่อมีเลข PN ที่เคยบันทึกเอาไว้ถูกเลือกลงไปใน combo box   ภาพที่เคยบันทึกไว้กับเลข PN นั้นๆต้องเเสดงออกมาโดยทันที่

ผมควรเขียนโค้ดในการบันทึกรูปเเละเรียกรูปตามเลข PN อย่างไรดีครับ ???? 

ปล.เป็นกระทู้เเรกถ้าเขียนไม่รู้เรื่องก็ขออภัยด้วยครับ