แสดงกระทู้

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 5 6 ... 18
37
จากเท่าที่ดูท่านต้องทำให้มีการแยกรอบการทำงานให้ออกเป็นชุดที่ชัดเจนกว่านี้ เช่น
StatusDateDataNameMCDOWNTIMEรอบ
setup10/10/2022PLR
Down10/10/2022PLR01
Down10/10/2022PLR1001
Down10/10/2022PLR2001
Run10/10/2022PLR
Run10/10/2022PLR
Down10/10/2022PLR02
Down10/10/2022PLR1202
Down10/10/2022PLR1502

ทีนี้ค่อยนำค่าสูงสุดของแต่ละรอบมาบวกกัน 200+150=350 เป็นต้น
ปล.เป็นแค่แนวคิดในการออกแบบนะครับ ส่วนชุดคำสั่งในการหาผลรวมของค่าสูงสุดนั้นผมไม่รู้เลย :dizzy:

38
Module  Write_TFB
Function PathFile() As String
PathFile = "C:\HP\"
End Function

Sub Write_TFB()
 '*************** dim TextHeader
Dim H_Prefix As String
Dim H_Contract_No As String
Set strm = CreateObject("ADODB.Stream")

'dbConnect.dbConnect     '<--- เครื่องผม Error เลยปิดใว้

H_Prefix = "H"
H_Contract_No = Format(Forms!Form1!Text0, "0000000000")

With strm
   .Open
   .Type = 2
   .Charset = "UTF-8"
   .WriteText H_Prefix & H_Contract_No
   .SaveToFile PathFile & "HP_" & ".txt", 2
   .Close
End With

MsgBox "Gen Text Complete :)"

End Sub


Code ในปุ่ม
Call Write_TFB
    MsgBox "finish"
'-------------------------

39
ตัวอย่างชุดคำสั่งส่งออก textfile utf-8
โค๊ด: [Select]
Private Sub Command12_Click()
Set strm = CreateObject("ADODB.Stream")
With strm
   .Open
   .Type = 2
   .Charset = "UTF-8"
   .WriteText "ข้อความ"
   .SaveToFile "c:\ชื่อไฟล์.txt", 2  '2 บันทึกทับไฟล์เก่าได้
   .Close
End With
MsgBox "Gen Text Complete :)"
End Sub

40
จัดไปตามนั้นครับ :yuush:
เพราะการที่จะให้โปรแกรมหนึ่งไปสั่งปิดโปรแกรมอื่นนั้นโดยปรกติก็ไม่สามารถที่จะทำได้ครับ(ยกเว้นสั่งปิดเครื่อง :XD:)

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



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


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

43
ไปทดลองทำมาได้โค้ดตามนี้ครับ / 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

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

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

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


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

46
ถ้าคิดจะทำเหมือนกับ 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

47

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

48
แถมวิธีที่แสดงในคิวรี่เฉยๆ ชื่อที่แสดง: [ชื่อฟิลด์] เช่น ไอดี:[ID] , เลขบัตร:[ID_Card] , รหัส:[Code ]

49
ลองเข้าทางนี้ดูก่อนว่าได้หรือไม่ หรือปุ่มลัดกด Alt + 11


ถ้าเข้าได้แล้วลองไปกดเข้าที่เคยเกิด ปัญหาอีกทึว่าหายไหม

หรือกด Alt + F11

50
วิธีแก้ให้สีไม่สลับกันคือตั้งค่า Alternate Back Color = No Color ตามรูปตัวอย่างครับ

ของท่านกดที่"ส่วนรายละเอียด"จะตั้งค่าได้ครับว่าสี1/สี2จะเอาสีไหนหรือไม่เอาสีอะไรเลยก็ได้ครับ

51
ใช้ตัวลูกน้ำ , แล้วก็เพิ่มตัวปิดท้ายไปด้วย ,"-")
โค๊ด: [Select]
=IIf([ptts1_Exp]-Date()<90,IIf([ptts1_Exp]-Date()>30,"หมดอายุภายใน 3 เดือน","-"),"-")
ที่มา https://www.thai-access.com/index.php?topic=567.msg2498#msg2498

53
อยากทราบวิธีทำ @tag all member in group ครับ :question:

54
ห้อง MS Access / : export to excel
« เมื่อ: 22 มิ.ย. 64 , 11:36:53 »
เปิดทั้งหมดตามภาพท่าน PNR ดูครับ
ตรง Tool >> Reference
เพิ่มตัว MS OFFICE XX Object libary ด้วยครับ ตามภาพ


หน้า: 1 2 [3] 4 5 6 ... 18