1
ห้อง MS Access / : ปิดทุกฟอร์มเมื่อไม่ใช้งานยกเว้นฟอร์มหลัก
« เมื่อ: 15 พ.ย. 66 , 13:04:58 »
ไฟล์ตัวอย่างนะครับ ตั้งเวลาไว้ที่ 10 วินาที
โพสต์นี้ได้รับคำขอบคุณจาก: aek
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.
อยากจะทราบวิธี ขยาย Check Boxบนฟรอม คะ
1. หลักความแตกต่างระหว่าง " และ ' และ & คืออะไรครับ
2. ในกรณีนี้ทำไมต้องใส่ " " ที่ตอนต้นและตอนท้ายด้วยครับ เพราะดูในที่อื่น ก็ select * from where ไม่เห็นต้องมี " " ปิดหัวท้ายเลย
3. like '" & Nz(Me.tcombo, "*") & "' --> รบกวนช่วยแปล Code นี้หน่อยครับ ไม่เข้าใจตรงการเขียน '" & XXX & "'จากตัวอย่างนี้ลองสังเกตุ '" & XXX & "' การใส่ เครื่องหมาย " และ ' ให้การ Control ที่เป็นข้อความคับ
เพิ่มนามสกุลไฟล์จาก JPG เป็นไฟล์รูปภาพอื่นต้องเพิ่มอย่างไรครับ
Private Sub Import_Click()
Dim File As FileDialog
Dim strPath, StrFile, SetPathon As String
If IsNull(Me.SetPath) Then
MsgBox "กรุณากำหนด Path ที่จะจัดเก็บก่อน", vbInformation, "แจ้งเตือนขั้นตอน"
Else
Set File = Application.FileDialog(msoFileDialogFilePicker)
With File
.Title = "เลือกรูปภาพ"
.Filters.Clear
.Filters.Add "JPG", "*.JPG"
.Filters.Add "BMP", "*.BMP"
.Filters.Add "JPEG File ", "*.JPEG"
.Filters.Add "GIF", "*.GIF"
.Filters.Add "PNG", "*.PNG"
.Filters.Add "TIFF", "*.TIFF"
.Filters.Add "ALL Pictures", "*.JPG,*.BMP,*.JPEG,*.GIF,*.PNG,*.TIFF"
End With
If File.Show Then
Me.PhotoPath = File.SelectedItems.Item(1)
End If
If Not IsNull(PhotoPath) Then
SetPathon = SetPath
strPath = Me.PhotoPath
StrFile = Right(strPath, Len(strPath) - InStrRev(strPath, "\"))
Me.SetPath = SetPathon & "\" & StrFile
End If
End If
End Sub
Private Sub Import_Click()
Dim File As FileDialog
Dim strPath, StrFile, SetPathon As String
If IsNull(Me.SetPath) Then
MsgBox "กรุณากำหนด Path ที่จะจัดเก็บก่อน", vbInformation, "แจ้งเตือนขั้นตอน"
Else
Set File = Application.FileDialog(msoFileDialogFilePicker)
With File
.Title = "เลือกรูปภาพ"
.Filters.Clear
.Filters.Add "ALL Pictures", "*.JPG,*.BMP,*.JPEG,*.GIF,*.PNG,*.TIFF"
End With
If File.Show Then
Me.PhotoPath = File.SelectedItems.Item(1)
End If
If Not IsNull(PhotoPath) Then
SetPathon = SetPath
strPath = Me.PhotoPath
StrFile = Right(strPath, Len(strPath) - InStrRev(strPath, "\"))
Me.SetPath = SetPathon & "\" & StrFile
End If
End If
End Sub
หนูต้องการอยากจะตรวจสอบชื่อไฟล์ว่า หากไฟล์ที่เปิดนั้น เพียงมีชื่อ ขึ้นต้นด้วยคำว่า"Backup" ก็ให้มีการแจ้งเตือนดังกล่าวทันที
Public Function AutoExec_AutoExec()
On Error GoTo AutoExec_AutoExec_Err
Dim strFileName As String
Dim DFileName As String
strFileName = CurrentProject.Path & "\" & CurrentProject.Name
DFileName = Dir(strFileName)
If Left(DFileName, 6) = "Backup" Then
MsgBox "ไฟล์นี้เป็นไฟล์สำรองไม่ควรเปิดใช้งานจนกว่าจะเปลี่ยนชื่อไฟล์ใหม่", vbInformation, "แจ้งเตือน"
DoCmd.Quit
End If
AutoExec_AutoExec_Exit:
Exit Function
AutoExec_AutoExec_Err:
MsgBox Error$
Resume AutoExec_AutoExec_Exit
End Function