แสดงกระทู้

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 - nayaoo

หน้า: [1]
1
ห้อง Ms Access อื่นๆ / MS Access ส่ง Line notify ข้อความ รูปภาพ
« เมื่อ: 05 มี.ค. 62 , 09:28:11 »
ลองเล่นๆ การส่ง line notify ส่งข้อความ รูปภาพด้วย VBA ไปเจอบทความดีดี ที่นี่เลยเอามาลองเล่นครับ

ขอขอบคุณแหล่งที่มา :
http://white5168.blogspot.com/2017/01/line-notify-6-line-notify.html#.XHvsT4gzbIV
โพสต์นี้ได้รับคำขอบคุณจาก: nayaoo

2
ห้อง MS Access / : สอบถามการสร้าง Report ให้ออกมาตาม Order No.
« เมื่อ: 24 ก.พ. 62 , 17:36:22 »
ขอบคุณมากค่ะ  :miao:
โพสต์นี้ได้รับคำขอบคุณจาก: nayaoo

3
ห้อง MS Access / : สอบถามการสร้าง Report ให้ออกมาตาม Order No.
« เมื่อ: 24 ก.พ. 62 , 16:29:16 »
กำหนดให้ Control Source ของหน้ารายงาน Order เป็น
โค๊ด: [Select]
SELECT Order.[Order No], Order.[Reference no], Order.[Order Type], Order.Sale, Order.Company, Order.Customer, Order.[Order date], Order.Approver, Order.[Approval Date]
FROM [Order]
GROUP BY Order.[Order No], Order.[Reference no], Order.[Order Type], Order.Sale, Order.Company, Order.Customer, Order.[Order date], Order.Approver, Order.[Approval Date];

ส่วน Control Source หน้ารายงาน OrderDetail เป็น
โค๊ด: [Select]
SELECT Order.[Order No], Order.[Pre Approval no], Order.[Order date], Order.Description, Order.[Service Detail], Order.Currency, Order.Amount, Order.Approver, Order.[Approval Date]
FROM [Order];

เท่านี้ก็ได้แบบที่คุณต้องการแล้วคับ
โพสต์นี้ได้รับคำขอบคุณจาก: nayaoo

4
ห้อง MS Access / จะป้องกันError"File may be corrupt"ขณะLoad Data ผ่าน odbcหรือOraOLEDB อย่างไร
« เมื่อ: 14 ก.พ. 62 , 17:00:45 »
ผมเขียน SQL ใน Access VB ผ่าน OraOLEDB เพื่อload data จากOracle มาเก็บไว้ใน Table ใน Access file โดยload แต่ละครั้งประมาณไม่ต่ำกว่า 2ล้าน records บางครั้งก็load ได้จนจบ บางครั้งก็เกิด error ตามนี้ครับ

Run-time error '3049' Cannot open database".It may not be a database that your application recognizes, or the file may be corrupt.

โค๊ดเริ่มต้นด้วย SQL  ดึงข้อมูลมาแล้วมา AddNew ใส่ Table ขณะที่กำลัง AddNew นั้นมักจะ Error ครับ ไม่ทราบจะป้องกันอย่างไร ขอบคุณครับ

conn.ConnectionTimeout = 0
conn.Open "Provider=OraOLEDB.Oracle;User id=XXXX;Password=XXXX;Data Source=XXXdb1;FetchSize=250;CacheType=Memory"

sqlstr = "select W.*, T.MATL_TYPE_CD, S.SIZE_ABBREVIATION,B.PURCHASE_MAJOR_CLASS, B.PURCHASE_MINOR_CLASS" & vbLf & _
         "from DA.ITEM_SIZE S, DA.MFG_PATH_BUY B, DA.MPS_ORDER_DETAIL W, DA.STYLE T" & vbLf & _
         "where W.SIZE_CD = S.SIZE_CD AND W.DEP_STYLE = T.STYLE_CD AND B.STYLE_CD = W.DEP_STYLE AND B.SIZE_CD = W.DEP_SIZE_CD" & vbLf & _
         "AND B.ATTRIBUTE_CD = W.DEP_ATTRIBUTE_CD AND B.COLOR_CD = W.DEP_COLOR AND B.PLANT_CD = W.DEP_PLANT "

p_rec.Open sqlstr, conn

If p_rec.EOF = False Then
      Set rs = CurrentDb.OpenRecordset("OPEN_WORKORDER_DEMAND")
      Do Until p_rec.EOF
        rs.AddNew
        rs!DETAIL_TYPE = p_rec!DETAIL_TYPE
        rs!DEP_STYLE = p_rec!DEP_STYLE
        rs!DEP_COLOR = p_rec!DEP_COLOR
        rs!DEP_ATTRIBUTE_CD = p_rec!DEP_ATTRIBUTE_CD
        rs!DEP_SIZE_CD = p_rec!DEP_SIZE_CD
        rs!DEP_STYLE_17DIG = p_rec!DEP_STYLE & p_rec!DEP_COLOR & p_rec!DEP_ATTRIBUTE_CD & p_rec!DEP_SIZE_CD
        rs!DEP_PLANT = p_rec!DEP_PLANT
        rs!Style = p_rec!Style
   
โพสต์นี้ได้รับคำขอบคุณจาก: nayaoo

หน้า: [1]