ไฟล์ค่อนข้างใหญ่ ฝากไว้ที่ลิงค์นี้ครับ https://drive.google.com/file/d/1IpA2LSUir5J8yQ6tdFl0vnsATfgt7U9h/view?usp=sharing
เปิดเมนู "ประวัคิประกัน" จะเกิดปัญหาตามที่ว่าครับ

อยู่ดี ๆ มันฟ้องว่า Invalid procedure call or argument หลาย ๆ ฟอร์ม สาเหตุเพราะอะไร และแก้ไขอย่างไรครับ

เราจะเขียนโค๊ดอย่างไร เพื่อให้ใน textbox ไม่ให้พิมพ์ตัวอักษรต้องห้ามในการตั้งชื่อไฟล์ เช่น / * ? ครับ

ไฟล์ pdf , docx และ jpg
ขอบพระคุณอย่างสูงครับ

ผมทำการ copy ไฟล์ และลบไฟล์เดิมทิ้ง
ปัญหามีว่า ไฟล์เดิม มันเปิดอยู่ คำสั่งไม่ทำงาน เราจะคำสั่งยังไง หากไฟล์เปิดอยู่ให้ปิดก่อนแล้วลบทิ้ง
***
Dim sPath, sfilename, sLink, sCopyInto, myOutput As String
Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    sfilename = GetFileName
    myOutput = Right(sfilename, Len(sfilename) - InStrRev(sfilename, "."))
    sPath = GetFilePath
    sLink = sPath & sfilename
   
   'If Dir("CurrentProject.path & '\map\' & Me.NewName & '.' & myOutput", vbNormal) = "" Then
   
   
    sCopyInto = [Forms]![manHisInsu]![folderInsu] & "\" & [Forms]![manHisInsu]![Even2] & "." & myOutput
    fso.CopyFile sLink, sCopyInto
    Set fso = Nothing
   
    If sPath = [Forms]![manHisInsu]![folderInsu] & "\" Then
        Else
        Kill sLink
    End If
   
   
    MsgBox ("บันทึกเรียบร้อยแล้ว"), vbInformation, "ผลการทำงาน"

Exit_Command33_Click:
    Exit Sub

Err_Command33_Click:
    MsgBox " ไฟลนี้อาจเปิดอยู่ ให้ปิดไฟล์นี้เสียก่อน"
    Resume Exit_Command33_Click

เป็นโค๊ตที่ อาจารย์ปิ่นณรงค์ ให้มา พอ copy เสร็จผมต้องการลบไฟล์เดิมครับ
Private Sub Command13_Click()
Call Copy
End Sub
Private Sub Import_Click()
Dim f As Object
Set f = Application.FileDialog(3)
f.AllowMultiSelect = True
If f.Show Then
    For i = 1 To f.SelectedItems.Count
        sFile = filename(f.SelectedItems(i), sPath)
        Me.GetFileName = sFile
        Me.GetFilePath = sPath
    Next
End If
End Sub
Sub Copy()
Dim sPath, sfilename, sLink, Snow, sCopyInto, myOutput As String
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Snow = Now
Snow = Format(Date, "YYYYMMDD")
sfilename = GetFileName
myOutput = Right(sfilename, Len(sfilename) - InStrRev(sfilename, "."))
sPath = GetFilePath
sLink = sPath & sfilename
sCopyInto = "D:\iDoc\" & Me.NewName & Snow & "." & myOutput
fso.CopyFile sLink, sCopyInto
Set fso = Nothing
End Sub
Public Function filename(ByVal strPath As String, sPath) As String
    sPath = Left(strPath, InStrRev(strPath, "\"))
    filename = Mid(strPath, InStrRev(strPath, "\") + 1)
End Function

มีหลักเกณฑ์อะไรบ้างครับที่สร้าง ACCESS เพื่อใช้ในรุ่น 2010-2016 และรุ่นที่ใหม่กว่า
และใช้ได้ทั้ง Office 32 bit 64 bit โดยไม่มีปัญหา

ต้องการเขียนโปรแกรมสำหรับสร้างสายงานครับ
รูปที่ 1 ในช่องผู้แนะนำถ้าเลือก กุลนิษฐ์   อุตสาหะ
จะไปเพิ่มข้อมูลในเรคคอร์ใหม่ในตารางตามรูป 2
โดยในคอลัม 1 , 2 , 3 และ 4 มีข้อมูลเหมือน กุลนิษฐ์   อุตสาหะ และ
เพิ่มชื่อ ชูเชิด  ศรีสวัสดิ์  ไปในคอลัมน์ต่อจาก กุลนิษฐ์ จะทำได้ไหมครับ