น่าจะได้ครับ แต่เครื่องคอมฯ ที่บ้านไม่ได้ลง WinZip ไว้ ลองนำตัวอย่างโค้ดข้างล่าง ซึ่งเปิด Calc.exe ปรับใช้ดู Private Sub Command1_Click() On Error GoTo Err_Command1_Click Dim stAppName As String stAppName = "C:\WINDOWS\CALC.EXE" Call Shell(stAppName, 1) Exit_Command1_Click: Exit Sub Err_Command1_Click: MsgBox Err.Description Resume Exit_Command1_Click End Sub พรุ่งนี้ผมจะไปทำงาน แล้วจะลองทำดูกับ WinZip.exe จริงๆ ดู โดยน่าจะเพิ่มชื่อไฟล์ที่ต้องการจะ Unzip ได้ด้วย

ผมเจอคำถามหนึ่งว่า "ใน Access จะทำให้เวลามาคูณกับตัวเลขปกติได้อย่างไร" โดย เวลา มีรูปแบบเป็น Short Time , ตัวเลข มีรูปแบบเป็น Integer ผมเลยลองทำ โดยใช้ แบบสอบถาม แปลง ฟิลด์ เวลา เป็นตัวเลข รูปแบบ Fixed จากนั้น เอา ไปคูณกับ ฟิลด์ ตัวเลข ก็ได้คำตอบ ........มีวิธีที่ง่ายกว่านี้หรือไม่ครับ

ตัวอย่างที่ผมใช้กับการคิดค่าเช่าเล่น Internet มีหลักการดังนี้ คือ ถ้าใช้ภายใน 15 นาที จะคิดแค่ 30 บาท ถ้ามากกว่านี้จะคิดเพิ่มเป็นนาทีละ 3 บาท ผมใช้โค้ดดังนี้ Private Sub txtFee_DblClick(Cancel As Integer) Dim intMinute As Double intMinute = DateDiff("n", Me.DateStart, Me.DateFinish) If intMinute < 15 Then Me.txtFee = 30 Else Me.txtFee = 30 + ((intMinute - 15) * 3) End If Caption = intMinute End Sub ลองศึกษาดูนะครับ