ใช้การดักจับ error ได้ไหมครับ ลองดูครับ

Private Sub rptTest_Click()
    On Error GoTo ErrHandler
    DoCmd.OpenReport "ReportNotifyMulti", acViewPreview
    Exit Sub
ErrHandler:
    If Err = 2501 Then
      Resume Next
    Else     
        MsgBox Err.Description, vbExclamation
    End If
End Sub


ถ้าไม่ได้จะหาวิธีอื่นให้ครับ

ต้องนำปีงบ มาร่วมด้วยครับในการนับ

เช่น
select
    (select count(*) from ชื่อตาราง where ชื่อตาราง.ID <= t1.ID and ชื่อตาราง.ปีงบ = t1.ปีงบ) as เลขกอง,
    *
from ชื่อตาราง t1

ขอทราบอีกคำถามหนึ่งนะคะ>> ทำเลขลำดับในForm ยังไงหรอคะ? เพราะถ้าเป็นใน Report ก็สร้างtextbox ให้ control souce "=1 " และเลือก Running Sum เป็น "over all"  รบกวนช่วยหน่อยนะคะ ขอบคุณค่ะ

ข้อที่ 1 ส่งตัวอย่างข้อมูลมาครับ

ข้อที่ 2 ลองดูจากกระทู้นี้ครับมีตัวอย่าง
https://www.thai-access.com/index.php?topic=331.msg1345#msg1345

1.ศึกษาการสร้าง HeadGroup ของรายงานครับ โดยเอา ประเภทใหญ่ เป็น Headgroup ใน thai access นี้มีตัวอย่างอยู่เยอะครับ
2.ใช้การกำหนดรูปแบบการแสดง อยู่ตรง Sectionต่างๆ ครับ มันจะมีให้บังคับขึ้นหน้าใหม่ ก่อนส่วน หลังส่วน หรือก่อนและหลัง

ถ้ามีตัวอย่างข้อมูลมาผมทำตัวอย่างให้ได้ครับ

ที่ Module

Option Compare Database
#If Win64 Then
    Private Declare PtrSafe Function PlaySound Lib "winmm.dll" _
        Alias "PlaySoundA" (ByVal lpszName As String, _
        ByVal hModule As LongPtr, ByVal dwFlags As Long) As Boolean
#Else
    Private Declare Function PlaySound Lib "winmm.dll" _
        Alias "PlaySoundA" (ByVal lpszName As String, _
        ByVal hModule As Long, ByVal dwFlags As Long) As Boolean
#End If
Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000

Function SoundMe() As String
    Call PlaySound("c:\windows\media\policesiren.WAV", 0, SND_ASYNC Or SND_FILENAME)
    SoundMe = ""
End Function

Public Sub StopSound()
    PlaySound vbNullString, 0, 0
End Sub


ที่ command button เพิ่ม
  SoundMe 'เมื่อเล่นเสียงแล้ว ต่อไปจะเด้ง msgbox ก็ดักเงื่อนไขการกด OK
  If MsgBox("ข้อมูลซ้ำกัน กรุณาตรวจสอบ", vbOKOnly, "program") = vbOK Then
    StopSound
  End If

ผมได้ทำตัวอย่างการกำหนด ช่วงเวลาในแต่ละวัน โดยกำหนดเช็คค่าจาก
1.วันที่ textbox ชื่อ OnDate
2. เวลาเริ่ม ชื่อ StartTime
3. เวลาสิ้นสุดชื่อ EndTime

ตารางชื่อ table1
มีฟิลล์เหมือนชื่อ คอนโทรล

Private Sub Command1_Click()
      If Me.Dirty Then
        Dim strWhere As String, strMsg As String
            With Me
            strWhere = "(([StartTime]<#%S#) AND " & _
                       "([EndTime]>#%E#) AND " & _
                       "([OnDate]=#%D#))"
            strWhere = Replace(strWhere, "%S", Format(.EndTime, "HH:mm:ss"))
            strWhere = Replace(strWhere, "%E", Format(.StartTime, "HH:mm:ss"))
             strWhere = Replace(strWhere, "%D", Format(.OnDate, "mm/dd/yy"))
 
            Dim rsDao As DAO.Recordset
            Set rsDao = CurrentDb.OpenRecordset("SELECT * FROM [Table1] WHERE " & strWhere, dbOpenDynaset)
             If .OnDate = .OnDate And .EndTime < .StartTime Then
            MsgBox "ท่านระบุช่วงเวลาผิด เวลาเริ่มต้องไม่น้อยกว่าเวลาสิ้นสุด", vbInformation, "แจ้งเตือน"
            ElseIf rsDao.RecordCount = 0 Then
               MsgBox "สามารถจองช่วงเวลานี้ได้", vbInformation, "สถานะการจอง"
               Exit Sub
            Else
                MsgBox "มีการจองช่วงเวลานี้แล้ว", vbInformation, "สถานะการจอง"
 
                Do While Not rsDao.EOF
                        strMsg = Replace(strMsg, "%D", Format(rsDao!OnDate, "dd-mmm-yy"))
                        strMsg = Replace(strMsg, "%S", Format(rsDao![StartTime], "HH:mm"))
                        strMsg = Replace(strMsg, "%E", Format(rsDao![EndTime], "HH:mm"))
                    rsDao.MoveNext
                Loop
            End If
                Set rsDao = Nothing
            End With
    End If
End Sub


ประมาณเสียงเพลง หรือ เสียงไซเลนครับ
เสียง Beep ไม่มีเสียงเลย

งั้นคำสั่งให้เล่นเสียง wav ได้ไหม

ใช้การสร้างเงือนไข เอาได้ไหมเช่น
สมมุติคอมโบชื่อ comboname และ Option ชื่อ Opt1 ถึง 4

Private Sub ComboName_AfterUpdate()
If Me.ComboName.Value = 1 Then
Me.Opt1 = True
ElseIf Me.ComboName.Value = 2 Then
Me.Opt2 = True
ElseIf Me.ComboName.Value = 3 Then
Me.Opt3 = True
ElseIf Me.ComboName.Value = 4 Then
Me.Opt4 = True
End If
End Sub

  ขั้นแรก ลองลบ office แล้วลงใหม่ดูก่อน
  ถ้าไม่หายลองปรับโค้ดเป็นแบบนี้ Backup ก่อนนะครับ
  วิธีใช้การเปลี่ยนตัวแปร
 เปลี่ยนจาก  Dim olApp As Outlook.Application
 เป็น  Dim olApp As Object

Dim olApp As Object
  Dim olMail As Object
  Const olMailItem As Long = 0

  Set olApp = CreateObject("Outlook.Application")
  Set olMail = olApp.CreateItem(olMailItem)

  olMail.To = Me.mail
  olMail.Subject = "เอกสารเข้าออกพื้นที่"
  olEmail.Attachments.Add "C:\CJ\" & FileName & ".pdf"
  olMail.Body = "Body ของ Email"   

    If Not IsNull(olEmail.To) And Not IsNull(olEmail.SUBJECT) And Not IsNull(olEmail.Body) Then
    olEmail.Send
     Else
     End If

MsgBox ("บันทึกเรียบร้อยแล้ว"), vbInformation

Set oEmail = oApp.CreateItem(olMailItem)
Set oEmail = oApp.CreateItem(olMailItem)

ทำไมมันซ้ำ