แสดงกระทู้

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

หน้า: [1] 2 3
1
หน้ากระทู้เก่าบอร์ด อ.Yeadram ฉบับใหม่เปิดให้สามารถเข้าไปเยี่ยมชมกันได้แล้วนะครับ :prettiness:

ลิ้งก์หน้าบอร์ดฉบับดั้งเดิมจะถูกนำออกจากหน้าหลัก,ด้านบน และนำออกจาก Sitemap มีผลทำให้ผลการค้นหา Google จะค่อยๆลิ้งก์มาแต่หน้าเว็บฉบับ PHP ใหม่แทน
ฉบับเก่าสามารถเข้าไปเยี่ยมชมได้จากลิ้งก์ในโพสต์ด้านบนยังคงเข้าดูได้อยู่ แต่เนื่องด้วยมันจะกลายเป็นข้อมูล2ชุดจึงขอเวลาคิดสักพักนึงครับ :ninja:

เนื่องด้วยทั้ง2หน้าเว็บเป็นการดึงข้อมูลจากดาต้าเบสมาแสดงโดยใช้ PHP เฉยๆไม่ได้เป็นเว็บบอร์ดที่มีฟังก์ชั่นอะไรทำให้อาจมีอะไรผิดพลาดได้หากพบเห็นรบกวนโพสต์แจ้งกันเข้ามาเลยนะครับ ผมจะพยายามปรับปรุงให้ดีที่สุดเพื่อชาว Access :smile:

โพสต์นี้ได้รับคำขอบคุณจาก: OddyWriter

2
เนื่องจากบอร์ดเรียนรู้ Access สำหรับคนไทยนั้นได้ผ่านการสืบทอดมาหลายรูปแบบได้แก่
1. ASPThai.Net <- mdb(microsoft access database) | ฉบับอ.สุภาพ ไชยยา ผู้ก่อตั้ง
2. ASPThai.Net <-> MS SQL | ฉบับอ.yeadram
3. SMF <-> My SQL | ฉบับ PookPuy ที่ใช้กันอยู่ในปัจจุบันนี้

     ซึ้งรูปแบบที่ 1 และรูปแบบที่ 2 ในส่วนของโฮสจะต้องเป็น Windows server เท่านั้น และจากการที่โฮสล่มไปเมื่อเดือนสิงหาคม 2565 ผมจึงมีความคิดที่จะเปลี่ยนระบบใหม่ให้รูปแบบคล้ายกันมากขึ้นโดยเฉพาะในส่วนของดาต้าเบสและให้สามารถใช้งานโฮสที่เป็นระบบลีนุกซ์(Linux)ได้ด้วย
     จึงได้ทดลองเปลี่ยนรูปแบบที่ 1.บอร์ดเก่าฉบับ อ.สุภาพ ไชยา เชิญเข้าไปเยี่ยมชมได้จากลิ้งที่อยู่ด้านบนของเว็บบอร์ดหรือลิ้งที่อยู่บนหน้าหลักครับ *โดยจะยังคงแสดงผลแบบอ่านได้อย่างเดียว
หากพบปัญหาหรืออยากให้เปลี่ยนแปลงสิ่งใดแสดงความคิดเห็นกันมาได้เลยครับ :cool:

รายการโครงการ :yuush:
- PHP หน้าเว็บบอร์ดจากข้อมูลฉบับ อ.สุภาพ ไชยา  [แล้วเสร็จ]
- Sitemap กระทู้บอร์ด อ.สุภาพ ไชยา [แล้วเสร็จ]
- PHP หน้าเว็บบอร์ดจากข้อมูลฉบับอ.yeadram  [แล้วเสร็จ]
- Sitemap กระทู้บอร์ดอ.yeadram   [80%]
- ย้ายรูปภาพที่ใช้ในกระทู้บอร์ดอ.yeadram
- แก้ลิ้งก์บอร์ดเก่าที่มีในบอร์ด SMF ให้ลิ้งก์ไปยังหน้า PHP ใหม่

*การทำ Sitemap นั้นเพื่อให้สามารถใช้ระบบค้นหาด้วย Google เป็นหลักครับ :fake smile: ส่วนระบบค้นหาในเว็บด้วยตัวเองนั้นขอใว้หลังสุดนะ :XD:

ปล.ลิ้งก์หน้าเว็บบอร์ดฉบับดั้งเดิม
บอร์ดเก่า อ.Yeadram  --> https://www.thai-access.com/yeadram.asp
บอร์ดเก่า อ.สุภาพ ไชยา --> https://www.thai-access.com/chaiya.asp
โพสต์นี้ได้รับคำขอบคุณจาก: OddyWriter

3
ตอนนึ้แก้ปัญหาได้แล้วค่ะ
โดยลบโมดูล mousehook ออกไปไม่ต้องใช้เลย เพราะ64bit ไม่จำเป็นต้องใช้ mousehook แล้วค่ะ
โพสต์นี้ได้รับคำขอบคุณจาก: OddyWriter

4
รายงานการต่ออายุโดเมนเป็นที่เรียบร้อยครับ :yuush:

เวลามันช่างผ่านไปไวยิ่งนัก :zzz:
โพสต์นี้ได้รับคำขอบคุณจาก: OddyWriter

5
อ้างถึง
สิ่งที่หนูต้องการคือจะแยกเอาเฉพาะ ข้อความแรก มาใช้เท่านั้น
โดยหนูคิดวางแผนว่าจะดักจับเอาช่วงที่เขาเริ่มเว้นวรรคหรือช่วงที่เขาเริ่มใส่วงเล็บ ประมาณนี้ค่ะอาจารย์

ใช้การสร้างฟังชั่นในการแสดงผลในคิวรี่นะครับ
วิธีการ
1 สร้าง Module ใส่ Code
โค๊ด: [Select]
Public Function GetString(FieldTarget As String) As String
Dim CuttingString As String

If Not (InStr(FieldTarget, "(") = 0) Then
CuttingString = Left(FieldTarget, InStrRev(FieldTarget, "(") - 1)
ElseIf Not (InStr(FieldTarget, " ") = 0) Then
CuttingString = Left(FieldTarget, InStrRev(FieldTarget, " ") - 1)
ElseIf Not (InStr(FieldTarget, "") = 0) Then
CuttingString = FieldTarget
End If

GetString = Trim(CuttingString)
End Function

2.ที่คิวรี่ใส่แบบนี้
โค๊ด: [Select]
คำทักทาย: GetString([ทักทาย])
โพสต์นี้ได้รับคำขอบคุณจาก: OddyWriter

6
ห้อง MS Access / Textbox ถ้าค่าแสดงเป็น #TYPE!
« เมื่อ: 27 ก.ย. 64 , 18:12:02 »
เมื่อค่า Textbox แสดงเป็น #TYPE! เราจะทำให้เป็น Visible = False ได้อย่างไรครับ
โพสต์นี้ได้รับคำขอบคุณจาก: OddyWriter

7
จากที่เว็บบอร์ดได้เพิ่มฟังก์ชั่นให้สามารถเล่นไฟล์คลิบวีดีโอได้นั้น แต่ไฟล์แนบถูกจำกัดขนาดให้ไม่เกิน 5120KB และเพื่อเป็นการลดขนาดตามความเหมาะสม(ประหยัดค่าเช่าพื้นที่ :shout:)
จึงขอนำเสนอเว็บไซต์สำหรับบีบอัดวิดีโอออนไลน์เอาใว้ลดขนาดก่อนแนบหรือใช้ประโยชน์อื่นกันได้ตามสะดวกครับ :yuush:

ลิงค์ >> https://compress-video-online.com/th link <<

คลิบแนะนำการใช้งาน
โพสต์นี้ได้รับคำขอบคุณจาก: OddyWriter

8
ขออนุญาตตอบคุณ 001jetnipit นะคะ
เห็นว่าคุณได้ทำฟอร์มป็อปอัพไว้แล้ว ลองทำอย่างนี้ดูนะคะ

ที่อีเวนต์ เมื่อเปิด ของฟอร์มป็อปอัพ ใส่คำสั่งนี้ลงไป (ต้องเป็นฟอร์มป็อปอัพนะคะ)
 DoCmd.RunCommand acCmdAppMinimize

และที่อีเวนต์ เมื่อปิด ของฟอร์มป็อปอัพ ใส่คำสังนี้ลงไปเพื่อคืนค่าเดิมค่ะ
 DoCmd.RunCommand acCmdAppRestore
หรือ
 DoCmd.RunCommand acCmdAppMaximize

ลองประยุกต์ใช้ดูนะคะ
โพสต์นี้ได้รับคำขอบคุณจาก: OddyWriter

9
ทำการย้ายชุดคำสั่ง"แนบไฟล์"ออกมาใว้ข้างนอกด้านล่างกล่องข้อความเพื่อให้ใช้งานได้ง่ายขึ้นแล้วนะครับ :prettiness:

โพสต์นี้ได้รับคำขอบคุณจาก: OddyWriter

10
จากการไล่ดูพบว่าในบางตารางท่านมีการใช้ชื่อฟิวล์เป็นภาษาไทยครับ เช่น คิวรี่ ManCustomer เชื่อมตาราง CodePAT ในนั้นมีฟิวล์ภาษาไทย
แต่ลองแก้ชื่อฟิวล์ภาษาไทยในทุกตารางแล้วก็ยังใช้ไม่ได้ จึงดึงข้อมูลทั้งหมดไปใส่ในไฟล์ใหม่ถึงจะใช้งานได้ครับ

สรุปที่ผมแก้คือ แก้ชื่อฟิวล์ภาษาไทยในทุกตารางเป็นภาษาอังกฤษ(a1,a2,a.../c1,c2,c...) --> สร้างไฟล์ใหม่แล้วดึงตาราง,คิวรี่,หน้าฟอร์มไปใส่ = combo box ทุกตัวขึ้นรายการตามที่พิมพ์
โพสต์นี้ได้รับคำขอบคุณจาก: OddyWriter

11
ห๊ะ! ไปเห็นได้ไง
อ๊ะ! ผมก็ทำงานที่นี้ไงครับ  :miao:
โพสต์นี้ได้รับคำขอบคุณจาก: OddyWriter

12
สวัสดีครับ ขอคำแนะนำครับ

ตอนนี้ผมมีปัญหาคือ เปิด record เดียวกัน คนนึงใส่ข้อมูลอีกคนดูอย่างเดียว แล้วถ้าคนใส่ข้อมูล save และปิด record ก่อนคนดู กลายเป็นว่า record นั้นจะไม่มีข้อมูลเพราะคนดูยังไม่มีข้อมูลครับ

มีวิธีอื่นที่ป้องกันและแก้ปัญหานี้ไหมครับ??
โพสต์นี้ได้รับคำขอบคุณจาก: OddyWriter

14
ผมลองมาหลายวิธีแล้ว ทั้งเก็บในคลาวด์ต่าง ๆ ทั้ง sql server / google sql / mysql
วิธีเอาไว้ในพื้นที่คลาวด์ไม่แนะนำเพราะช้า ยิ่งฐานข้อมูลใหญ่ขึ้น ยิ่งช้า เสี่ยงเกิดข้อผิดพลาดของข้อมูล

แนะนำแบบเม้นบนครับ
ถ้าใช้แบบออฟไลน์ วางไว้ที่เครื่องเซิฟเวอร์แล้วใช้งานแบบแชร์ไฟล์

ถ้าใช้แบบออนไลน์สำหรับ work from home ผมใช้ odbc+mysql ฐานข้อมูลบนเว็บไซต์ วิธีนี้ทำงานเร็วใกล้เคียงกับแบบออฟไลน์
ข้อแนะนำ
- เลือกโฮสดี ๆ ถ้าล่มบ่อยก็จะมีปัญหา
- ต้องปรับปรุงโค้ดนิดหน่อย
โพสต์นี้ได้รับคำขอบคุณจาก: OddyWriter

15
ห้อง MS Access / : หาค่า Min จาก Query Access
« เมื่อ: 19 พ.ค. 63 , 21:46:49 »
ได้ความรู้ใหม่ครับอาจารย์สันติสุข คือการกำหนดเงื่อนไข ในวงเล็บไว้ก่อน F0 แล้วค่อยแสดงผล
ขอบคุณครับ
 :love: :love: :miao:

ผมเพิ่ม NZ() Function เพื่อให้ ฟิลล์ ที่มีค่า 0 ทุกฟิลล์ แสดง 0 ครับจะได้สมบูรณ์ยิ่งขึ้น

select ID, F1, F2, F3 , nz(min(F0),0) as FMin
from
(              select ID, F1, F2, F3, iif(F1 = 0, NULL, F1) as F0 from T
  union all select ID, F1, F2, F3, iif(F2 = 0, NULL, F2) as F0 from T
  union all select ID, F1, F2, F3, iif(F3 = 0, NULL, F3) as F0 from T)
group by ID, F1, F2, F3
order by ID
โพสต์นี้ได้รับคำขอบคุณจาก: OddyWriter

16
ห้อง MS Access / : หาค่า Min จาก Query Access
« เมื่อ: 19 พ.ค. 63 , 16:12:25 »
สมมุติเทเบิล T มีฟิลด์ ID, F1, F2, F3

select ID, F1, F2, F3 , min(F0) as FMin 
from 
(              select ID, F1, F2, F3, iif(F1 = 0, NULL, F1) as F0 from T
  union all select ID, F1, F2, F3, iif(F2 = 0, NULL, F2) as F0 from T
  union all select ID, F1, F2, F3, iif(F3 = 0, NULL, F3) as F0 from T)
group by ID, F1, F2, F3
order by ID
โพสต์นี้ได้รับคำขอบคุณจาก: OddyWriter

หน้า: [1] 2 3