แสดงกระทู้

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

หน้า: [1] 2 3 4 ... 19
1
ที่ผมใช้ครับ 1.ผมเช่าเซิร์ฟเวอร์
               2.ฐานข้อมูล MySQL
               3.ใช้ mysql connector odbc เป็นตัวเชื่อม access กับฐานข้อมูลครับ


คุณแดนชัยเช่าอยู่เซิร์ฟเวอร์ไหนพอแนะนำได้ไหมครับเพราะเซิร์ฟเวอร์เช่าส่วนใหญ่เขาจะปิดกั้นลิ้ง MySQL จากด้านนอกจะเปิดให้ลิ้งได้แต่ MS SQL (เซิร์ฟเวอร์เว็บโฮส Thai-access ที่ใช้อยู่ตอนนี้เป็นเช่นนั้น)

2
เป็น online ได้ไหมครับ กรณีไม่อยู่ในวง แลนเดียวกัน
ได้ครับ
1.ถ้าทำเซิฟเองใช้วิธีตามอาจารย์แล้วทำระบบ VPN หรือ DDNS เพิ่มเข้าไป
2.ถ้าเช่าเซิฟหรือมี sql เซิฟเวอร์ออนไลน์อยู่แล้วก็นำไอพี,ชื่อผู้ใช้,รหัสผ่านมา
3.เครื่องลูก,เครื่องที่รัน access ไม่ว่าเซิฟจะแบบ1.หรือแบบ2.วิธีทำตามคลิปคล้ายกันเลยครับ

3
ได้ครับวิธีทำตามคลิปอ.Access-Creator

4
เจอวิธีจากกระทู้เก่าไม่รู้ตอนนี้ยังใช้ได้อยู่ไหมนะครับ https://www.thai-access.com/Topic_post.asp?TopicID=4586

5
ห้อง MS Access / : ไอคอนในโปรแกรม
« เมื่อ: 24 มิ.ย. 65 , 14:25:40 »
ผมทำลิ้งเข้า netflix ก็เปลี่ยนรูปไอค่อนโครมเป็น N ครับ
.ico สามารถทำ Multi-size in one icon อยู่ในไฟล์เดียวได้เลย
เว็บแปลง https://icoconvert.com/ link

6
1.โปรแกรมตัวอย่างการสร้างฟอร์มล็อคอินและเมนูที่เปลี่ยนไปตามผู้ใช้ โดย อ.สันติสุข

2.หน้าฟอร์มไม่สามารถกำหนดการอ่านเขียนตามผู้เข้าใช้งานได้ ใช้วิธีทำหน้าฟอร์ม2ชุดมีชุดหนึ่งที่อ่านได้อย่างเดียวจะให้ใครเปิดอ่านก็เอาไปใส่ในหน้าเมนูตามข้อ1.

7
แวะมาแจมว่า ไม่สมควรใช้ชื่อฟิวล์ name

8
ผมไปทดลองหาผลลัพธ์เป็นจำนวนวันก็เอาวันที่มาคำนวนได้ผลตรงนะครับ เช่น
1/1/22 - 1/1/21 = 365
1/1/21 - 1/1/20 = 366
1/1/22 - 1/1/20 = 731

9
โมดูลที่ผมใช้
โค๊ด: [Select]
Function BahtText(ByVal sNum)
Dim sNumber, sDigit, sDigit10
Dim nLen, sWord, sWord2
Dim sByte, I, J

sNumber = Array("", "หนึ่ง", "สอง", "สาม", "สี่", "ห้า", "หก", "เจ็ด", "แปด", "เก้า")
sDigit = Array("", "สิบ", "ร้อย", "พัน", "หมื่น", "แสน", "ล้าน")
sDigit10 = Array("", "สิบ", "ยี่สิบ", "สามสิบ", "สี่สิบ", "ห้าสิบ", "หกสิบ", "เจ็ดสิบ", "แปดสิบ", "เก้าสิบ")
sNum = Replace(FormatNumber(sNum, 2), ",", "")
nLen = Len(sNum)

If sNum = ".00" Then BahtText = "ศูนย์"
For I = 1 To nLen - 3
J = (15 + nLen - I) Mod 6
sByte = Mid(sNum, I, 1)
If sByte <> "0" Then
If J = 1 Then sWord = sDigit10(sByte) Else sWord = sNumber(sByte) & sDigit(J)
BahtText = BahtText & sWord
End If
If J = 0 And I <> nLen - 3 Then BahtText = BahtText & "ล้าน": BahtText = Replace(BahtText, "หนึ่งล้าน", "เอ็ดล้าน")
Next
If Left(sNum, 1) = "1" Then BahtText = Replace(BahtText, "หนึ่งล้าน", "เอ็ดล้าน")
If Left(sNum, 2) = "11" Then BahtText = Replace(BahtText, "สิบหนึ่งล้าน", "สิบเอ็ดล้าน")
If Len(BahtText) > 0 Then BahtText = BahtText & "บาท"
If nLen > 4 Then BahtText = Replace(BahtText, "หนึ่งบาท", "เอ็ดบาท")
sNum = Right(sNum, 2)
If sNum = "00" Then
BahtText = BahtText & "ถ้วน"
Else
If Left(sNum, 1) <> "0" Then BahtText = BahtText & sDigit10(Left(sNum, 1))
If Right(sNum, 1) <> "0" Then BahtText = BahtText & sNumber(Right(sNum, 1))
BahtText = BahtText & "สตางค์"
If Left(sNum, 1) <> "0" Then BahtText = Replace(BahtText, "หนึ่งสตางค์", "เอ็ดสตางค์")
End If
End Function


10
รูปภาพที่อัพไปกด"Copy BBCode"มาวางในกระทู้ครับ



11
เอาไปลองดูครับ
 
หมายเหตุ รายการปีและเดือนที่ให้คลิกเลือกอยู่ในตาราง / เครื่องผมใช้ปีเป็น ค.ศ. เครื่องที่ท่านนำไปใช้เป็นแบบไหน/มีปีอะไรให้เลือกบ้างก็แก้ให้ตรงกับของท่านครับ


https://support.microsoft.com/th-th/topic/ฟังก์ชันสำหรับการคำนวณและการแสดงค่า-วันที่-เวลา-ใน-access-3c1cdb15-aa0e-8575-ca91-1b2c0b6c7d94 link

12
ไปทดลองทำมาได้โค้ดตามนี้ครับ / F_Bill_v7_Item ชื่อฟอร์มย่อยผม

โค๊ด: [Select]
Private Sub Percent_AfterUpdate()
        If Me.Percent >= 5 Then
            Me.F_Bill_v7_Item.Form.Check466 = True
        Else
            Me.F_Bill_v7_Item.Form.Check466 = False
            MsgBox "น้อยกว่า 5%"
        End If
End Sub

13
ผม Setup windows ใหม่ และ ติดตั้ง microsoft office ตัวใหม่ครับ office 2021 แล้ว barcode มันอ่านออกมาแบบนี้ึครับ

แนวเหมือนล้างเครื่องล้างข้อมูลใหม่แล้วไม่ได้ลง font barcode ตัวนั้นหรือเปล่าครับนี่

14
ลองแก้ Ctl.BackColor เป็น StatusSamsung_Age.BackColor = RGB(0, 255, 0) ดูครับ
StatusSamsung_Age คือชื่อ
หรือไม่ก็คงตรงที่มีคำสั่งให้ Exit For (ผมไม่รู้จักหรือเคยใช้ :question:)


ปล.ส่วนที่เป็นโค้ดก็อบมาวางเลยก็จะดีนะ :dizzy:

15
ถ้าคิดจะทำเหมือนกับ Autonumber คือ 1,2,3,4,... ก็ใช้มันไปไม่ต้องคิดอะไร
แต่ถ้าจะแบบว่ามีตัวหนังสือหรือปีเดือนวันมาเกี่ยวข้องหาดูการทำ running number มีเยอะมากครับ

ตัวอย่าง
https://www.thai-access.com/index.php?topic=416.msg1892#msg1892
https://www.thai-access.com/index.php?topic=1006.msg4419#msg4419

16

ถ้าเกี่ยวข้องกับวิธีแก้ชื่อฟิลด์ของผมมันดันมีผลกับทุกอย่างที่เรียกใช้คิวรี่นี้ก็ต้องไปแก้ชื่อฟิลด์ที่เรียกไปใช้เป็นชื่อที่ตั้งใหม่ด้วยอ่ะนะ :sweat:
แถมวิธีที่แสดงในคิวรี่เฉยๆ ชื่อที่แสดง: [ชื่อฟิลด์] เช่น ไอดี:[ID] , เลขบัตร:[ID_Card] , รหัส:[Code ]

หน้า: [1] 2 3 4 ... 19