แสดงกระทู้

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 ... 10
1
ห้อง MS Access / : Err Code ไม่รู้จะแก้ตรงไหน
« เมื่อ: 19 ม.ค. 66 , 19:23:14 »
วิธีการ 1: ดาวน์โหลด Comdlg32.dll และติดตั้งด้วยตนเอง
  • คัดลอกไฟล์ไปยังไดเร็กทอรีการติดตั้งโปรแกรมหลังจากที่ไม่มีไฟล์ DLL
  • หรือย้ายไฟล์ DLL ไปยังไดเร็กทอรีของระบบของคุณ (C:\Windows\System32 และสำหรับ 64 บิตใน C:\Windows\SysWOW64\)
  • ตอนนี้คุณต้องรีบูตเครื่องคอมพิวเตอร์

วิธีการ 3: ติดตั้งหรือติดตั้ง Microsoft Visual C ++ Redistributable Package ใหม่
  • ข้อผิดพลาด Comdlg32.dll อาจปรากฏขึ้นเนื่องจาก Microsoft Visual C ++ Redistributable Package คุณควรตรวจสอบการอัปเดตและติดตั้งซอฟต์แวร์ใหม่ ใช้ Windows Updates ค้นหาการดำเนินการนี้ เมื่อคุณพบ Microsoft Visual C ++ Redistributable Package คุณสามารถอัปเดตหรือลบเวอร์ชันที่ล้าสมัยและติดตั้งโปรแกรมใหม่ได้

ที่มา : Download Comdlg32.dll for Windows 10, 8.1, 8, 7, Vista and XP - 32 Bit and 64 Bit link
https://windll.com/th/dll/microsoft-corporation/comdlg32 link
https://www.exefiles.com/th/dll/comdlg32-dll link  / WinThruster เป็นโปรแกรมที่เว็บเขาโฆษณาจะลองดูไหมแล้วแต่นะครับ
โพสต์นี้ได้รับคำขอบคุณจาก: Un, มาลี

2
ห้อง MS Access / : การใช้ Nas synology เป็นที่เก็บ Database Access
« เมื่อ: 09 ธ.ค. 65 , 10:46:42 »
ใช้ Nas synology เป็นตัวเก็บ database ของ access แนวเหมือนเป็น BackEnd ส่วนวิธีเชื่อมต่อ VPN ตามคลิบก็แนะนำให้ใช้ OpenVPN ลองตั้งค่าใช้งานดูครับ

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

3
ห้อง MS Access / : คำสั่งก๊อปปี้ไฟล์เป็นรูปภาพ
« เมื่อ: 01 ธ.ค. 65 , 15:40:41 »
เท่าที่พอจะหาทางบันทึกเป็นไฟล์รูปภาพได้คือต้องใช้โปรแกรมเสริมเช่น Snagit แต่ขึ้นตอนการใช้งานจะยาวตัวอย่างคือ
->ทำ Report -> ที่ Report ตั้งค่าให้ปริ้นไปที่ Snagit และกำหนดขนาดตามต้องการ
และเมื่อกดปริ้น Report ->Snagit จะรับไฟล์ภาพมาเราต้องไปสั่งบันทึกชื่อ/นามสกุล/ที่วางไฟล์เองที่โปรแกรมSnagitอีกที

หรือที่จริงโปรแกรม Snagit มันก็เป็นโปรแกรมที่ใว้สำหรับจับภาพหน้าจออยู่แล้วดังนั้นเมื่อเรากด Printsceen ตามด้วยคลิ๊กเม้า...ภาพก็จะถูกส่งมาให้ Snagit ทันทีจากกด Ctrl+S เพื่อสั่งบันทึก /ลองดูครับ
 :yuush: :yuush:
โพสต์นี้ได้รับคำขอบคุณจาก: Un

4
ห้อง MS Access / : ใช้คำสัง Refresh หรือ Requery แต่มันไม่ทำงาน ช่วยตอบหน่อยครับ
« เมื่อ: 15 พ.ย. 65 , 13:01:12 »
ตัวอย่าง Me.Recalc หรือ Me.???.Requery ผมจะสั่งให้มันทำงานเมื่อทำอะไรสักอย่างก่อน(ผมใช้ Me. นำหน้า)

โค๊ด: [Select]
Private Sub Cus_ID_Click()
        Cus_Tax_ID.Value = Cus_ID.Column(9)
        Cus_Name.Value = Cus_ID.Column(1)
        Cus_addess.Value = Cus_ID.Column(2) & "  " & Cus_ID.Column(3) & Cus_ID.Column(4) & "  " & Cus_ID.Column(5) & "  " & Cus_ID.Column(6) & Cus_ID.Column(7) & "  " & Cus_ID.Column(8) '& "."
        Cus_Note2.Value = Cus_ID.Column(10)
        Percent.Value = Cus_ID.Column(11)
        Me.F_Bill_v7_Item.Form.T902 = Me.Percent
    Me.Recalc
End Sub
Private Sub Cus_ID_AfterUpdate()
    Me.Cus_ID = Format(Me.Cus_ID.Value, "00000")
    Me.Recalc
End Sub
Private Sub Cus_ID_Enter()
    Me.Cus_ID = Format(Me.Cus_ID.Value, "00000")
    Me.Recalc
End Sub
โค๊ด: [Select]
Private Sub Ang1_GotFocus()
    Me.Ang1.Requery
End Sub
Private Sub Ang2_GotFocus()
    Me.Ang2.Requery
End Sub
Private Sub Ang3_GotFocus()
    Me.Ang3.Requery
End Sub
Private Sub Ang4_GotFocus()
    Me.Ang4.Requery
End Sub
Private Sub Ang5_GotFocus()
    Me.Ang5.Requery
End Sub
Private Sub Ang6_GotFocus()
    Me.Ang6.Requery
End Sub
โพสต์นี้ได้รับคำขอบคุณจาก: Pongsak

5
ห้อง MS Access / : สอบถามหาค่าหลายๆช่วงของตารางมารวมกันครับ
« เมื่อ: 28 ต.ค. 65 , 16:12:50 »
จากเท่าที่ดูท่านต้องทำให้มีการแยกรอบการทำงานให้ออกเป็นชุดที่ชัดเจนกว่านี้ เช่น
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:
โพสต์นี้ได้รับคำขอบคุณจาก: arampong

6
ห้อง MS Access / : สร้าง .text เป็น Format UTF8 สามารถทำได้ไหมครับ
« เมื่อ: 21 ต.ค. 65 , 11:34:50 »
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"
'-------------------------
โพสต์นี้ได้รับคำขอบคุณจาก: sjs

7
ห้อง MS Access / : สร้าง .text เป็น Format UTF8 สามารถทำได้ไหมครับ
« เมื่อ: 20 ต.ค. 65 , 13:26:51 »
ตัวอย่างชุดคำสั่งส่งออก 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
โพสต์นี้ได้รับคำขอบคุณจาก: patipat

8
ห้อง MS Access / : Running sum ค่าคงเหลือเบิกจ่ายวัสดุ แบบมีเงื่อนไข
« เมื่อ: 25 ก.พ. 65 , 12:59:24 »
รูปภาพที่อัพไปกด"Copy BBCode"มาวางในกระทู้ครับ


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

9
ห้อง MS Access / : สร้างกล่องรายการปี และเดือน ให้ผู้ใช้งานคลิกเลือกทำงาน
« เมื่อ: 20 ก.พ. 65 , 18:48:24 »
เอาไปลองดูครับ
 
หมายเหตุ รายการปีและเดือนที่ให้คลิกเลือกอยู่ในตาราง / เครื่องผมใช้ปีเป็น ค.ศ. เครื่องที่ท่านนำไปใช้เป็นแบบไหน/มีปีอะไรให้เลือกบ้างก็แก้ให้ตรงกับของท่านครับ

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

10
ห้อง MS Access / : ใช้ For Each ตรวจสอบ Textbox เพื่อเปลี่ยนสีตามคำที่กำหนด ติดปัญหานิดนึงครับ
« เมื่อ: 26 ต.ค. 64 , 18:03:55 »
ลองแก้ Ctl.BackColor เป็น StatusSamsung_Age.BackColor = RGB(0, 255, 0) ดูครับ
StatusSamsung_Age คือชื่อ
หรือไม่ก็คงตรงที่มีคำสั่งให้ Exit For (ผมไม่รู้จักหรือเคยใช้ :question:)


ปล.ส่วนที่เป็นโค้ดก็อบมาวางเลยก็จะดีนะ :dizzy:
โพสต์นี้ได้รับคำขอบคุณจาก: 001Jetnipit

11
ห้อง MS Access / : ใส่ชื่อฟิลด์เป็นภาษาไทยใน Query
« เมื่อ: 19 ส.ค. 64 , 15:31:44 »
อ้างจาก: 001Jetnipit ที่ 19 ส.ค. 64 , 15:25:06

ถ้าเกี่ยวข้องกับวิธีแก้ชื่อฟิลด์ของผมมันดันมีผลกับทุกอย่างที่เรียกใช้คิวรี่นี้ก็ต้องไปแก้ชื่อฟิลด์ที่เรียกไปใช้เป็นชื่อที่ตั้งใหม่ด้วยอ่ะนะ :sweat:
อ้างจาก: UnKnown ที่ 19 ส.ค. 64 , 15:09:33
แถมวิธีที่แสดงในคิวรี่เฉยๆ ชื่อที่แสดง: [ชื่อฟิลด์] เช่น ไอดี:[ID] , เลขบัตร:[ID_Card] , รหัส:[Code ]
โพสต์นี้ได้รับคำขอบคุณจาก: PNR, 001Jetnipit

12
ห้อง MS Access / : ใส่ชื่อฟิลด์เป็นภาษาไทยใน Query
« เมื่อ: 19 ส.ค. 64 , 15:09:33 »
แถมวิธีที่แสดงในคิวรี่เฉยๆ ชื่อที่แสดง: [ชื่อฟิลด์] เช่น ไอดี:[ID] , เลขบัตร:[ID_Card] , รหัส:[Code ]
โพสต์นี้ได้รับคำขอบคุณจาก: 001Jetnipit

13
ห้อง MS Access / : ปุ่มลัด เรียก Visual Basic คือปุ่มไหนคะ
« เมื่อ: 14 ส.ค. 64 , 14:25:57 »
อ้างจาก: PNR ที่ 10 ส.ค. 64 , 17:23:01
ลองเข้าทางนี้ดูก่อนว่าได้หรือไม่ หรือปุ่มลัดกด Alt + 11


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

หรือกด Alt + F11
โพสต์นี้ได้รับคำขอบคุณจาก: I love movies

14
ห้อง MS Access / : ถ้าต้องการทำใบเสร็จหรือใบแจ้งหนี้จากบิลภาษีต้องทำไงคะ
« เมื่อ: 13 ส.ค. 64 , 12:09:25 »
อ้างจาก: UnKnown ที่ 19 พ.ค. 64 , 17:48:11
วิธีแก้ให้สีไม่สลับกันคือตั้งค่า Alternate Back Color = No Color ตามรูปตัวอย่างครับ

ของท่านกดที่"ส่วนรายละเอียด"จะตั้งค่าได้ครับว่าสี1/สี2จะเอาสีไหนหรือไม่เอาสีอะไรเลยก็ได้ครับ
โพสต์นี้ได้รับคำขอบคุณจาก: I love movies

15
ห้อง MS Access / : สอบถามการใช้ And ในเงื่อนไข If else ใน VBA
« เมื่อ: 23 ก.ค. 64 , 16:31:29 »
ใช้ตัวลูกน้ำ , แล้วก็เพิ่มตัวปิดท้ายไปด้วย ,"-")
โค๊ด: [Select]
=IIf([ptts1_Exp]-Date()<90,IIf([ptts1_Exp]-Date()>30,"หมดอายุภายใน 3 เดือน","-"),"-")
ที่มา https://www.thai-access.com/index.php?topic=567.msg2498#msg2498
โพสต์นี้ได้รับคำขอบคุณจาก: 001Jetnipit

16
ห้อง MS Access / : ใครมีตัวอย่างโปรแกรมตัดสต๊อคสินค้าหรือขายหน้าร้านไหมครับ
« เมื่อ: 05 ก.ค. 64 , 18:03:42 »
แจกโปรแกรมเก็บข้อมูลการเบิกจ่ายสต็อก Version 9 (ทั้งรุ่นปกติและบาร์โค้ด) link
สนใจส่งข้อความหา อ.OddyWriter ครับ
โพสต์นี้ได้รับคำขอบคุณจาก: Eik Q Sang

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