1
ห้อง MS Access / : ค้นหาชื่อ สระภาษาไทยแล้ว error ครับ
« เมื่อ: 08 พ.ย. 62 , 09:16:32 »
เครื่องหมาย % น่าจะเปลี่ยนเป็น * แทนครับ
โพสต์นี้ได้รับคำขอบคุณจาก: diehard4
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.
ขออนุญาตใช้กระทู้นี้ต่อคำถามเพิ่มเติมนะคะ
หนูมีโปรเจ็คชื่อ Sample หนูลองนำคำสั่งในนี้ไปประยุกต์ใช้เป็นดังนี้โค๊ด: [Select]oFSO.CopyFile CurrentProject.Path & "\" & CurrentProject.Name, "D:\" & "Backup " & CurrentProject.Name
ซึ่งมันก็ใช้ได้ดีเลยทีเดียว โดยจะได้ไฟล์สำรองเป็น BackupSample ตามที่ต้องการ
ประเด็นปัญหาก็คือ หากเราไปเปิดตัวไฟล์สำรอง BackupSample แล้วสั่งสำรองข้อมูล
มันก็จะได้ไฟล์สำรองตัวใหม่เป็น BackupBackupSample
หนูจึงอยากได้ว่า หากมีการเปิดไฟล์โปรเจ็คที่ มีชื่อขึ้นต้นว่า Backup
ก็ให้มีข้อความบอกผู้ใช้ว่า"ไฟล์นี้เป็นไฟล์สำรองไม่ควรเปิดใช้งานจนกว่าจะเปลี่ยนชื่อไฟล์ใหม่" ประมาณนี้ค่ะ
ไม่ทราบว่าต้องทำอย่างไรคะ
Function checkFileOpen(FilePath As String)
Dim iFile As Long
Dim OnErr As Long
On Error Resume Next
iFile = FreeFile()
Open FilePath For Input Lock Read As #iFile
Close iFile
OnErr = Err
On Error GoTo 0
Select Case OnErr
Case 0: checkFileOpen = False
Case 70: checkFileOpen = True
End Select
End Function
Private Sub Command0_Click()
Dim oFSO As Object
Set oFSO = CreateObject("Scripting.FileSystemObject")
If checkFileOpen("D:\" & "Backup " & CurrentProject.Name) = False Then
oFSO.CopyFile CurrentProject.Path & "\" & CurrentProject.Name, "D:\" & "Backup " & CurrentProject.Name
Set oFSO = Nothing
Else
MsgBox "ไฟล์นี้เป็นไฟล์สำรองไม่ควรเปิดใช้งานจนกว่าจะเปลี่ยนชื่อไฟล์ใหม่", vbInformation, "แจ้งเตือน"
End If
End Sub
RunningNo. Price Type
1 100 A
2 120 A
3 130 A
1 80 B
2 90 B
1 78 C
2 80 C
3 90 C
4 100 C
ไม่ทราบว่า ใน Query แบบนี้ ต้องทำเช่นไรครับผม
เช่น พนักงาน ID A001 อยากจะให้ดึงรูปภาพ ของพนักงานคนนั้น มาแสดงในฟอร์ม หรือ รายงาน โดยอยากให้ผูก ID กับชื่อ image file ทำอย่างไรครับ
\images\A001.jpg
\images\A002.jpg
\images\A003.jpg
\images\A004.jpg
ขอบคุณมากครับ