แสดงกระทู้

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.


Messages - kitisak

หน้า: [1] 2 3
1
ห้อง MS Access / : Invalid procedure call or argument
« เมื่อ: เมื่อวานนี้ เวลา 15:58:31 »
ไฟล์ค่อนข้างใหญ่ ฝากไว้ที่ลิงค์นี้ครับ https://drive.google.com/file/d/1IpA2LSUir5J8yQ6tdFl0vnsATfgt7U9h/view?usp=sharing link
เปิดเมนู "ประวัคิประกัน" จะเกิดปัญหาตามที่ว่าครับ

2
ห้อง MS Access / : Invalid procedure call or argument
« เมื่อ: เมื่อวานนี้ เวลา 08:38:16 »
พอคลิก Compile ก็ขึ้นหน้าต่างฟ้อง Invalid procedure call or argument จึง Compile ไม่ได้ครับ

3
ห้อง MS Access / Invalid procedure call or argument
« เมื่อ: 31 ก.ค. 63 , 18:54:21 »
อยู่ดี ๆ มันฟ้องว่า Invalid procedure call or argument หลาย ๆ ฟอร์ม สาเหตุเพราะอะไร และแก้ไขอย่างไรครับ

4
ถ้าต้องการให้ TextboxName พิมพ์อักขระต้องห้ามได้ แต่พอพิมพ์เสร็จแล้วให้ TextboxName1 เท่ากับ TextboxName แต่ตัด อักขระต้องห้ามออกไป ต้องทำอย่างไรครับ

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

6
จะซ่อนทั้งกลุ่ม โชว์ทั้งกลุ่ม แบบนี้ได้อย่างไร (คือมีวิธีเอา text box มาเป็นกลุ่มเดียวกัน แล้วซ่อนทั้งกลุ่ม)
เช่น
txtGroup1A0.visibel = false
txtGroup1A1.visibel = false
txtGroup1A2.visibel = false
txtGroup1A3.visibel = false
txtGroup1A4.visibel = false
txtGroup1A6.visibel = false

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

8
ไฟล์ที่จะปิด คัดลอก และ ลบ ไม่ใช้ไฟล์ access แต่เป็นไฟล์ pdf หรืออื่น ๆ ได้ไหมครับ

9
ผมทำการ 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

10
จะตรวจสอบว่าใน textbox มีอักษรไทยปนหรือไม่
ถ้ามีให้มี msgbox แจ้งเตือน ต้องทำอย่างไรครับ

11
ห้อง MS Access / : ลบไฟล์ที่เลือก
« เมื่อ: 29 ส.ค. 61 , 13:37:06 »
เป็นโค๊ตที่ อาจารย์ปิ่นณรงค์ ให้มา พอ 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

12
ห้อง MS Access / ลบไฟล์ที่เลือก
« เมื่อ: 24 ส.ค. 61 , 16:06:40 »
เราจะลบไฟล์จากไดอะล็อกบ๊อกซ์ ที่เราสร้าง จะทำอย่างไรครับ

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

14
ไฟล์เดิมรุ่น 2010 ไปเปิดรุ่นที่สูงกว่า
- มันจะฟ้องประมาณว่า ไม่สามารถอ่าน VBA เดิมได้ ต้องลบ VBA ก่อนจึงเปิดได้
- พอเปิดแล้ว คำสั่งที่เขียนด้วย VBA ทั้งในฟอร์ม รายงาน โมดูล หายหมดครับ
- จะแก้ไขอย่างไรครับ

15
ห้อง MS Access / สร้างสายงาน
« เมื่อ: 13 ส.ค. 61 , 21:33:04 »
ต้องการเขียนโปรแกรมสำหรับสร้างสายงานครับ
รูปที่ 1 ในช่องผู้แนะนำถ้าเลือก กุลนิษฐ์   อุตสาหะ
จะไปเพิ่มข้อมูลในเรคคอร์ใหม่ในตารางตามรูป 2
โดยในคอลัม 1 , 2 , 3 และ 4 มีข้อมูลเหมือน กุลนิษฐ์   อุตสาหะ และ
เพิ่มชื่อ ชูเชิด  ศรีสวัสดิ์  ไปในคอลัมน์ต่อจาก กุลนิษฐ์ จะทำได้ไหมครับ



16
ใช่เลยครับ
1. แต่ตรงนี้ผมไม่เคยตั้งชื่อมัน โปรแกรมมันจะตั้งอัตโนมัติเองใช่ไหมครับ
2. เป็นดังนี้ เราต้องแก้ไขชื่อ Project ไม่ให้ชื่อ Database ถูกต้องไหมครับ


หน้า: [1] 2 3