ลองดูครับ เขียนแบบลูกทุ่งและรวบรัดครับ

ที่ Sheet นั้นๆ
Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address = "$A$1" Then ' $A$1 ตำแหน่งที่ต้องการดัก
       If Len(Target) > 4 Then   'มากกว่า 4 ตัวอักษร
           MsgBox "เซลล์ " & Replace(Target.Address, "$", "") & " " & _
                       "ระบุได้แค่ 4 ตัวอักษร", 32, "ข้อผิดพลาด"
           Target.Value = ""  'Reset เพื่อเข้า Event นี้อีกครั้ง (หากไม่จะไม่มีเหตุการณ์ Change นี้)
           Range(Target.Address).Select  'กลับไปที่ Cell เดิม
           Exit Sub
       End If
       
       If Not isNumEN(Target.Value) Then
           MsgBox "เซลล์ " & Replace(Target.Address, "$", "") & " " & _
                       " ระบุได้แค่ ตัวเลข และตัวภาษาอังกฤษ(พิมพ์เล็กหรือพิมพ์ใหญ่ก็ได้)", 32, "ข้อผิดพลาด"
           Target.Value = ""  'Reset เพื่อเข้า Event นี้อีกครั้ง (หากไม่จะไม่มีเหตุการณ์ Change นี้)
           Range(Target.Address).Select  'กลับไปที่ Cell เดิม
       End If
   End If
End Sub


ที่ Module หรือในชิตนั้นๆ ถ้าใช้แค่ชีตเดียว
Function isNumEN(xTarget As String) As Boolean
   Dim i As Long
   Dim j As Long
   Dim x As String
   Dim isOk As Boolean
   
   isOk = True
   j = Len(xTarget)
   For i = 1 To j
        x = Mid(xTarget, i, 1)
        If (Asc(x) >= 48 And Asc(x) <= 57) Or _
           (Asc(x) >= 65 And Asc(x) <= 90) Or _
           (Asc(x) >= 97 And Asc(x) <= 122) Then
           '  48=0  57=9
           '  65=A  90=Z
           '  97=a  122=z
        Else
            isOk = False
            Exit For  'เจอไม่ใช่ ให้ออกมาเลย
        End If
   Next i
   isNumEN = isOk
End Function

1. ลองดูว่าไฟล์ฐานข้อมูลของ Access มีขนาดใกล้ 2 GB ซึ่งเป็นขนาดสูงสุดที่ Access ให้ใช้ได้หรือเปล่า ถ้าใกล้หรือเต็มแล้ว ก็ต้องทำ Compact and Repair Database ของตัว Access เพื่อกระชับฐานข้อมูลให้เล็กลงก่อนครับ เพราะการลบเรคอร์ด,เทเบิล หรืออะไรต่างๆในไฟล์ Access จะไม่ได้ทำให้ขนาดของไฟล์ลดลงไปในทันทีครับ

2. อยากให้ปรับ SQL จากการอ้างหลายๆเทเบิลใน FROM cluase โดยไม่มีการ JOIN กันเลย แต่ไปใช้เงื่อนไขใน WHERE clause เป็นตัวจับคู่เรคอร์ดระหว่างเทเบิล S,B,W,T แทน ซึ่งผลของ FROM cluse แบบนี้ เป็นไปได้ว่า Oracle จะหาผลทุกเรคอร์ดจากทุกเทเบิลจับคู่กันหมดก่อน แล้วค่อยเอาผมมากรองโดย WHERE cluase เป็นลำดับถัดไป (ลำดับการทำงานของ Oracle-SQL https://oracle.readthedocs.io/en/latest/sql/basics/query-processing-order.html) ถ้าแต่ละเทเบิลมีแค่ 100 เรคอร์ด เราจะได้ 100x100x100x100 = 100 ล้านเรคอร์ดออกมาก่อน ถึงจะค่อยถูกกรองโดย WHERE cluase อีกที ดังนั้นอยากให้ใส่ JOIN ใน FROM cluase เพื่อเชื่อมเรคอร์ดที่สัมพันธ์กันของแต่ละเทเบิลให้เสร็จก่อนจะมีประสิทธิภาพกว่าครับ ... ***แต่***ก็ไม่แน่ครับ ถ้าตัว Query Processing ของ Oracle ฉลาด มันก็จะไปเอาเงื่อนไขใน WHERE cluase ผนวกเข้าไปคิดพร้อมขั้นตอน FROM cluase เลยก็ได้