รบกวนสอบถามครับ Application.Filesearch



0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

02 ก.พ. 61 , 12:07:57
อ่าน 669 ครั้ง

UnKnown

รบกวนสอบถามครับ Application.Filesearch
« เมื่อ: 02 ก.พ. 61 , 12:07:57 »
คุณ ปิยะพันธุ์ Original post

ที่หน้าฟอร์ม มันขึ้นฟ้องอย่างนี้ไม่ทราบว่าจะแก้ไขอย่างไรครับผม

รบกวนด้วยครับผม

 

02 ก.พ. 61 , 16:15:55
ตอบกลับ #1

สันติสุข

  • แฟนพันธุ์แท้ไท.Access
  • *
  • กระทู้: 466
  • พลังขอบคุณ: 418

  • ขึ้น 15 ค่ำเดือน 8 แสดงปฐมเทศนา

    • ดูรายละเอียด

> รบกวนสอบถามครับ Application.Filesearch
« ตอบกลับ #1 เมื่อ: 02 ก.พ. 61 , 16:15:55 »
กดปุ่ม Debug ก็จะเห็นบรรทัดที่ทำให้เกิด error นี้ครับ ก็ดูว่าค่าอะไรในบรรทัดนั้นผิดบ้าง
ช่วยพกถุงผ้า/ถุงพลาสติกใช้แล้วไปซื้อของเพื่อลดการใช้พลาสติก ขยะ รักษาสิ่งแวดล้อม และไม่ให้ภาวะโลกร้อนวิกฤติเร็วขึ้นกว่านี้
ช่วยคลิกโฆษณาข้างล่างนี้ เพื่อสนับสนุนเวปบอร์ดด้วยครับ
:nice day:
 

02 ก.พ. 61 , 16:52:12
ตอบกลับ #2

UnKnown

> รบกวนสอบถามครับ Application.Filesearch
« ตอบกลับ #2 เมื่อ: 02 ก.พ. 61 , 16:52:12 »
คุณ ปิยะพันธุ์ Original post

จะขึ้นแบบนี้ครับผม

 

02 ก.พ. 61 , 18:44:09
ตอบกลับ #3

สันติสุข

  • แฟนพันธุ์แท้ไท.Access
  • *
  • กระทู้: 466
  • พลังขอบคุณ: 418

  • ขึ้น 15 ค่ำเดือน 8 แสดงปฐมเทศนา

    • ดูรายละเอียด

> รบกวนสอบถามครับ Application.Filesearch
« ตอบกลับ #3 เมื่อ: 02 ก.พ. 61 , 18:44:09 »
FileSearch เป็นอ็อบเจ็กต์ในไลบรารี่ Microsoft Office xx.xx Object Library ดังนั้นในเมนู Tools > References ใน VBA Editor ต้องมีเลือกเอาไว้ครับ
« แก้ไขครั้งสุดท้าย: 02 ก.พ. 61 , 21:31:57 โดย สันติสุข »
ช่วยพกถุงผ้า/ถุงพลาสติกใช้แล้วไปซื้อของเพื่อลดการใช้พลาสติก ขยะ รักษาสิ่งแวดล้อม และไม่ให้ภาวะโลกร้อนวิกฤติเร็วขึ้นกว่านี้
ช่วยคลิกโฆษณาข้างล่างนี้ เพื่อสนับสนุนเวปบอร์ดด้วยครับ
:nice day:
 

07 ก.พ. 61 , 17:20:02
ตอบกลับ #4

UnKnown

> รบกวนสอบถามครับ Application.Filesearch
« ตอบกลับ #4 เมื่อ: 07 ก.พ. 61 , 17:20:02 »
คุณ ปิยะพันธุ์ Original post

อาจารย์สันติสุขครับ คือ ตัวโปรแกรมนี้ผมเขียนบน Access 2003 ครับ และเอาไปเปิดบน Win7 64bit Access 2010 มันคลิกปุ่ม มันก็ขึ้นตามรูปครับผมและผมเข้าไปเลือก Microsoft Office ทั้ง 11 และ 14 แล้วครับ ก็ยังไม่หายครับผม รบกวนอาจารย์ด้วยครับผม

 

07 ก.พ. 61 , 18:24:56
ตอบกลับ #5

pizza_p

> รบกวนสอบถามครับ Application.Filesearch
« ตอบกลับ #5 เมื่อ: 07 ก.พ. 61 , 18:24:56 »
Application.Filesearch ถูกถอดออกตั้งแต่ Office 2007 เป็นต้นไปครับ คงต้องเปลี่ยนไปใช้วิธีอื่น ลองใช้ Function Dir() ดูครับ

 

08 ก.พ. 61 , 10:08:55
ตอบกลับ #6

UnKnown

> รบกวนสอบถามครับ Application.Filesearch
« ตอบกลับ #6 เมื่อ: 08 ก.พ. 61 , 10:08:55 »
คุณ ปิยะพันธุ์ Original post

รบกวนคุณ pizza_p ช่วยลงโค๊ด Function แบบเต็มให้ด้วยได้ไหมครับ หรือ ผมจะขอเมล์คุณ pizza_p ก็ได้ครับผมจะได้ส่งไฟล์ให้ดูครับ
ขอบคุณครับ

 

08 ก.พ. 61 , 12:04:09
ตอบกลับ #7

pizza_p

> รบกวนสอบถามครับ Application.Filesearch
« ตอบกลับ #7 เมื่อ: 08 ก.พ. 61 , 12:04:09 »
Dim MyPath as String, MyName as String, FileCount as Integer

MyPath = "C:\GetPOB2S\B2SPO\B2S_PO_*.XML"
FileCount = 0
MyName = Dir(MyPath)    ' Retrieve the first entry.
Do While MyName <> ""    ' Start the loop.
    FileCount = FileCount +1
    MsgBox MyName
    MyName = Dir    ' Get next entry.
Loop
MsgBox "There were " & FileCount & " file(s) found."

 

08 ก.พ. 61 , 14:21:57
ตอบกลับ #8

UnKnown

> รบกวนสอบถามครับ
« ตอบกลับ #8 เมื่อ: 08 ก.พ. 61 , 14:21:57 »
คุณ ปิยะพันธุ์ Original post

ขอบพระคุณ คุณ pizza_p อย่างสูงครับ ที่ได้ให้ความรู้ดีๆแก่ผมครับ ตอนนี้ได้แล้วครับ
แต่ผมขอสอบถามอีกเรื่องนึงครับผม
คือถ้าผมจะ Import ไฟล์ ดังกล่าวที่เป็นไฟล์ xml จะต้องแก้ไขตรงไหนครับ
รบกวนแก้ไขโค๊ดให้ผมด้วยครับ โค๊ดผมเป็นดังนี้ครับ แต่มันจะ error ตรง .FoundFiles(i) ครับผม
ขอบคุณครับ

Dim POPathB As String
Dim POFileB As String

POPathB = "D:\Work\GetPOB2S\B2SPO\B2S_PO_123.XML"

       Application.ImportXML DataSource:=.FoundFiles(i), ImportOptions:=acAppendData
       DoCmd.RunMacro "UTL.ImportDatPO"
   
MsgBox "Process Complete.", vbOKOnly

 

08 ก.พ. 61 , 15:42:58
ตอบกลับ #9

pizza_p

> รบกวนสอบถามครับ Application.Filesearch
« ตอบกลับ #9 เมื่อ: 08 ก.พ. 61 , 15:42:58 »
ถ้ารู้ชื่อไฟล์ ก็ใส่ไปตรงๆได้เลยนี่ครับ

Dim POPathB As String
Dim POFileB As String

POPathB = "D:\Work\GetPOB2S\B2SPO\B2S_PO_123.XML"

       Application.ImportXML DataSource:=POPathB, ImportOptions:=acAppendData
       DoCmd.RunMacro "UTL.ImportDatPO"
   
MsgBox "Process Complete.", vbOKOnly

 

08 ก.พ. 61 , 17:05:17
ตอบกลับ #10

UnKnown

> รบกวนสอบถามครับ Application.Filesearch
« ตอบกลับ #10 เมื่อ: 08 ก.พ. 61 , 17:05:17 »
คุณ ปิยะพันธุ์ Original post

คือชื่อไฟล์จะเป็น B2S_PO_123.XML ครับ ก็แสดงว่าให้ผมใส่
แบบคุณ pizza_p เป็น POPathB ใช่หรือเปล่าครับ

 

08 ก.พ. 61 , 17:11:51
ตอบกลับ #11

pizza_p

> รบกวนสอบถามครับ Application.Filesearch
« ตอบกลับ #11 เมื่อ: 08 ก.พ. 61 , 17:11:51 »
ใช่ครับ

 


บอร์ดเรียนรู้ Access สำหรับคนไทย