แสดงกระทู้

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

หน้า: [1] 2 3
1
สาเหตุเกิดเจ้าฟอนต์ที่มีวงเล็กว่า Detail แหละ แต่จะให้แก้ทุกฟอร์มก็คงเหนื่อยน่าดู

มาดูการแก้ปัญหาด้วยการตั้งค่าตามคลิปนี้นะครับ

https://youtu.be/sQHN_8-bWj4
โพสต์นี้ได้รับคำขอบคุณจาก: PookPuy

2
โปรแกรมแจกฟรี (ส่งท้ายปีเก่า ต้อนรับปีใหม่) นี้ ใช้ชื่อว่า Q2RFree

เหมาะสำหรับผู้ทำอาชีพอิสระที่จำเป็นต้องออกพวกใบเสนอราคา/ใบแจ้งหนี้/ใบเสร็จ

ตัวโปรแกรมใช้ระบบ MS Access มีความสามารถดังนี้
1. เก็บข้อมูลลูกค้าได้
2. เก็บข้อมูลการออกเอกสารทุกรายการได้
3. สำเนารายการจากเอกสารที่มีอยู่ได้ สำหรับกรณีทำงานเดิมอีกครั้ง หรือจะสำเนาจากใบเสนอราคาไปเป็นใบแจ้งหนี้แล้วต่อด้วยใบเสร็จก็ได้
4. สามารถใส่ Logo ได้ (อย่าลืมไปจดทะเบียนเครื่องหมายการค้าก่อนนะครับ)
5. ถ้ายังไม่มี Logo ก็สามารถออกเอกสารแบบที่ไม่มี Logo ได้
6. เปลี่ยนสีหัวเอกสารได้ จะแดง/เขียว/น้ำเงิน/ชมพู/ฟ้า/เหลือง ได้หมด ไม่มีสีดำ เพราะทำแล้วดูไม่ได้
7. ทุกเอกสารมีให้เลือก 2 แบบ ตามความชอบ

ดาวน์โหลดได้เองเลยที่ลิงก์ด้านล่างนี้
https://1drv.ms/u/s!ArcuGeSfhpiQhwGsRn9TPBxFIpp-?e=c1NGeI

สุดท้ายอย่าลืมอ่านคู่มือก่อนนะครับ
ติดปัญหาอะไรอีเมลมาถามได้ ตอบทุกอีเมลแน่นอน ถ้าไม่ตอบก็รอหน่อย เมลอาจตกไปอยู่ใน Jung Mail

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

3
หากรู้ url เป้าหมายที่จะทำการใส่แล้วดาวโหลดไฟล์ได้เลย เราสามารถเขียนฟังก์ชั่นสำหรับ Download ไฟล์นั้นด้วย VBA โดยไม่ต้องเปิดเว็บเบราว์เซอร์ (web browser) เพื่อดาวน์โหลด

'----------------Code Start----------------
Public Function DownloadFileB(ByVal URL As String, ByVal DownloadPath As String, ByRef Username As String, ByRef Password, Optional Overwrite As Boolean = True) As Boolean
On Error GoTo Failed
    Dim WinHttpReq As Object
    Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
    WinHttpReq.Open "GET", URL, False, Username, Password
    WinHttpReq.send
    If WinHttpReq.Status = 200 Then
        Dim oStream As Object: Set oStream = CreateObject("ADODB.Stream")
        oStream.Open
        oStream.Type = 1
        oStream.Write WinHttpReq.responseBody
        oStream.SaveToFile DownloadPath, Abs(CInt(Overwrite)) + 1
        oStream.Close
        DownloadFileB = Len(Dir(DownloadPath)) > 0
        Exit Function
    End If
Failed:
    DownloadFileB = False
End Function
'-----------------Code End-----------------
 
<การใช้งาน>
DownloadFileB("ที่อยู่ url เป้าหมาย", "ที่อยู่พาธและชื่อไฟล์ที่ต้องการเซฟ", "ชื่อผู้ใช้(ถ้ามี)", "รหัสผ่าน(ถ้ามี)", เขียนทับไฟล์เดิม ) As Boolean
 
<ตัวอย่าง>
DownloadFileB("https://wallpapersflix.com/cool/wp-content/uploads/2020/07/Cool-Wallpaper-PC.jpg", "C:\TEMP\Pic.jpg", "", "")
โพสต์นี้ได้รับคำขอบคุณจาก: PookPuy

4

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

5
ห้อง MS Access / : Form access show record not updateable
« เมื่อ: 16 ก.ย. 64 , 09:44:45 »
คือตัว Access น่ะ มัน Share กันอยู่แล้วครับ
การเปิด Exclusive Mode คือการกำหนดไม่ให้ให้ทำการแก้ไขฟอร์มหรือ Table Design ได้ถ้ามีคนอื่นใช้ฟอร์มหรือตารางนั้นอยู่ ต้องเหลือผู้ใช้แค่คนเดียวในช่วงเวลานั้น

สาเหตุที่ให้เปิด Exclusive ก็เพื่อลดเงื่อนไขไม่ให้ระบบถูกกวนระหว่างใช้งานครับ

ตอนนี้ผมว่าคุณลองตัดทีละประเด็นก่อนดีกว่าครับ เพราะดูเหมือนมันจะมี 3-4 ส่วนมาเกี่ยวพันกันใน 1 ช่วงเวลา
1. ลองใช้ไฟล์ Backend ที่อยู่ในเครื่องเดียวกันก่อน อย่างเพิ่งไปวางบน Server ถ้าใช้งานได้ แสดงว่าไฟล์ไม่มีปัญหา
2. เอาไฟล์ Backend ไปวางบน Server แล้วลองใช้งานดู มีปัญหามั๊ย ถ้ามีก็แสดงว่าเป็นที่ Server
3. สมมติว่าไฟล์ Backend ใช้งานได้ ก็ให้ตัดไฟล์ Backend ออกไป ลองทำ ODBC กับ Oracle ดู ใช้งานได้มั๊ย
4. ถ้าทั้ง 3 ข้อไม่มีปัญหา ก็ค่อยเอา Backend กับ Oracle มารวมกัน ถ้าติดปัญหาแสดงว่ามีการตั้งค่าอะไรบางอย่างไม่เหมาะสม

เวลาแก้ปัญหาพวกนี้ ต้องเช็คทีละจุดครับ
โพสต์นี้ได้รับคำขอบคุณจาก: PookPuy

6
https://www.thai-access.com/index.php?topic=1213.msg5343#new
โพสต์นี้ได้รับคำขอบคุณจาก: PookPuy

7
ได้ข้อมูลมาจากเฟสบุ๊กเพจ "โปรแกรมเมอร์ไทย Thai programmer" ครับ

https://goalkicker.com/?fbclid=IwAR1TjcRyaWd6r_xdj510qNJOu_3B2c9EV_AWjkJ0_lyZqxdBS3bYFHCZERo

แนะนำเพิ่มเติมว่า สำหรับคนที่ชอบเขียนโปรแกรม ให้ศึกษาวิชา Data Structure (ส่วนนึงอยู่ในหนังสือ Algorithms) และ Algorithms เพราะจะช่วยให้ขยับโลกทัศน์ในการวิเคราะห์และหาวิธีตอบโจทย์ที่ซับซ้อนยิ่งขึ้นได้
โพสต์นี้ได้รับคำขอบคุณจาก: PookPuy

8
อยากทำฟอร์ม access
 ข้อความใน textbox ก่อนกรอกข้อมูล แล้วพอกดที่ text ให้ข้อความหาย เห็นกับ ช่องค้นหาของเว็บนี้ครับ
ไม่รู้ว่าเรียกแบบนี้ว่าอะไรครับ



สมมุติ มี textbox ชื่อ text0 นะครับ เราจะใช้ 3 event

Private Sub Form_Current()
    Me.Text0.ForeColor = RGB(200, 200, 200)
    Me.Text0.Value = "My Program Custom Search"
End Sub

Private Sub Text0_Exit(Cancel As Integer)
If IsNull(Me.Text0) Then
    Me.Text0.ForeColor = RGB(200, 200, 200)
    Me.Text0.Value = "My Program Custom Search"
 End If
End Sub

Private Sub Text0_GotFocus()
If Me.Text0.Value = "My Program Custom Search" Then
 Me.Text0.Value = Null
 Me.Text0.ForeColor = RGB(0, 0, 0)
 End If
End Sub

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

9
มือถือเข้าไม่ได้เลยครับช่วงนี้ ต้อง clear cache ทุกครั้ง ถึงเข้าได้ครับ
โพสต์นี้ได้รับคำขอบคุณจาก: PookPuy

10
Refresh ปุ๊บ มาปั๊บ
ใช้ Chrome/Windows 10/มีทั้งบน-ล่าง


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

11
มีในโทรศัพย์ ครับ จะแสดงตอนกดจะตอบคำถาม และด้านล่างของหน้าเว็บ Chromeโทรศัพย์ ส่วนในคอม ไม่แสดง
โพสต์นี้ได้รับคำขอบคุณจาก: PookPuy

12
access 2007,2010,2013 32 bit ใช้ทั้งฐานข้อมูล access และ mysql ครับ
โพสต์นี้ได้รับคำขอบคุณจาก: PookPuy

13
เป็นเรื่องของ Data Type ครับ
ถ้าฟิลด์นี้เกิดจากการคำนวณ ต้องกำหนดประเภทของข้อมูลด้วย ประมาณ CDbl หรือไงนี่แหละ ไม่แน่ใจ จำไม่ได้
โพสต์นี้ได้รับคำขอบคุณจาก: PookPuy

14
ถ้าให้เห็นด้วยว่าใครตอบสุดท้ายก็จะดีครับ จะได้รู้ว่ากระทู้ที่เราตอบมีการเคลื่อนไหวหรือไม่
โพสต์นี้ได้รับคำขอบคุณจาก: PookPuy

15
ลองแล้วครับอาจารย์..ใช้ได้ดีเลยครับ...ต่อไปดูผ่านมือถือจะสะดวกกับผู้ใช้งานยิ่งขึ้นไปอีกครับ..ขอบคุณครับ


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

16
ก็ OK นะครับ

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

17
สรุปรายงานวันนี้ก่อนนะครับ
1. คุณ Pookpuy สั่งหนังสือ ความทรงจำสีแดง ราคา 100 บาท (+ค่าส่ง 30 บาท) ส่งหนังสือให้แล้ว
2. คุณ PNR บริจาค 1,070 โอนแล้ว
3. คุณ Apirak สั่งหนังสือ Access 2010 Missing Manual ราคา 600 (+ค่าส่งลงทะเบียน 65 บาท) รับโอนเรียบร้อย ส่งแล้ว
4. คุณ Jee007 บริจาค 500 โอนแล้ว
5. คุณ Chai บริจาค 500 โอนแล้ว
6. คุณ Prajak บริจาค 200 โอนแล้ว
7. คุณ Looktarn สั่ง Excel เร็วเว่อร์ 299 (+ค่าส่ง 30) โอนแล้ว

ยอดรวม 3,269 บาท

เดี๋ยวจะโอนให้ Web Master ต่อไป โดยจากที่คุยกับเว็บมาสเตอร์คือ เมื่อจ่ายค่า Host+Domain จะแจ้งที่หน้าเว็บครับ

ขอบคุณทุกท่านที่ให้ความช่วยเหลือเว็บนี้ครับ

ปล. แก้ไขยอดโอนคุณ PNR และคุณ Looktarn
โพสต์นี้ได้รับคำขอบคุณจาก: PookPuy

18
โอนเงินให้แล้วนะครับ 200 บาทครับ ไม่ซื้อหนังสือครับ
โพสต์นี้ได้รับคำขอบคุณจาก: PookPuy

หน้า: [1] 2 3