แสดงกระทู้

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

หน้า: [1] 2 3 4 ... 7
1
ถ้าหมายถึงการใช้คำสั่งภาษา SQL ของ Server ให้สร้างฟิลด์สร้างตารางใหม่ โดยสั่งผ่านโปรแกรม MS Access เลย จะต้องใช้ในส่วนของ Query Pass-Through แล้วเขียนภาษา SQL ของ Server ได้ครับ

2
การยกเลิกการตั้งค่า Security Warning Macro Setting ของ Ms Access ให้ใช้งานคำสั่ง VBA ได้
 
1. คลิ๊กเมาส์ขวาที่ Desktop เลือกเมนู New > Text Document
 
2. จะได้ไฟล์ New Text Document.txt เปล่าๆมา คลิ๊กๆเปิดไฟล์ขึ้นมา ใส่โค๊ดนี้ลงไป
'----------------Code Start----------------
On Error Resume Next
 
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
Dim objVer
Set objVer = CreateObject("Access.Application")
 
Dim strRegPath
Dim Application_Version
Application_Version = objVer.Version 'Return 14.0, 15.0, etc.
 
strRegPath = "HKEY_CURRENT_USER\Software\Microsoft\Office\" & Application_Version & "\Access\Security\VBAWarnings"
If WshShell.RegRead(strRegPath) <> 1 then
    If MsgBox("Click OK to Enable all macros.", vbQuestion + vbOKCancel, "Security VBA Warnings") = vbOK Then
        WshShell.RegWrite strRegPath, 1, "REG_DWORD"
    End If
Else
    'WScript.echo "กำหนดใช้งาน Macros ไว้อยู่แล้ว"
    MsgBox "กำหนดใช้งาน Macros ไว้อยู่แล้ว", ,"Security VBA Warnings"
End If
Wscript.Quit

3. จากนั้นไปที่เมนู File > Save As: เป็นชื่ออะไรก็ได้แต่นามสกุล vbs เช่น Macro.vbs และ Encoding: ANSI เซฟ แล้วปิดโปรแกรม notepad ไป
 
4. จะเห็นไฟล์ชื่อ Macro.vbs อยู่บน Desktop คลิ๊กๆเพื่อเรียกไฟล์ จะมีหน้าต่างข้อความ Click OK to Enable all macros. ให้กด OK ไปจนเสร็จ จะเป็นการแก้ค่ารีจีสตี้ในเครื่องเรื่องของการแจ้งเตือน หรือต้องการกำหนดแก้ไขอย่างอื่นก็แก้โค้ดเอาได้เลยครับ

5. ส่งไฟล์ไปให้เครื่องอื่นโดยรูปแบบ .zip แล้วลองให้เค้ารันไฟล์ที่ทำนี้ดูครับ

ลองปรับใช้ดู หวังว่าคงช่วยได้

3
ห้อง MS Access / : โปรแกรม Access error Query " is corrupt
« เมื่อ: 21 พ.ย. 62 , 13:53:29 »
ลองวิธี Uninstall ตัวอัพเดทออกตามวิธีนี้ดูว่าได้ไม๊ครับ
http://fmsinc.com/MicrosoftAccess/Errors/query_is_corrupt/index.htm link

4
หาได้ครับ ก็เขียนแบบนี้
InStr(1,[NameTH],"เอเ")

5
มันเป็นการเลือกใช้รูปแบบภาษาไทยใน MS Access ที่จะไม่สามารถนับสระในการค้นหาเพียงอย่างเดียวได้
เปลี่ยนจากการใช้ฟังก์ Like() เป็น InStr() แทน โดยลักษณะการใช้งานเปรียบเทียบได้ดังนี้:
[NameTH] Like "*เ*" >>>  InStr(1, [NameTH], "เ") > 0
[NameTH] Like "เ*"  >>>  InStr(1, [NameTH], "เ") = 1
[NameTH] Like "*เ"  >>>  InStr(1, [NameTH], "เ") = Len([NameTH]) หรือ InStr(Len([NameTH]), [NameTH], "เ") > 0

7
เราก็สามารถสร้างเงื่อนไขต่อไปได้ครับว่า ถ้าฟิลด์ TerminateDate มีค่าก็ให้เทียบค่าวันที่ฟิลด์นี้ แต่ถ้าไม่มีค่าก็เทียบค่าวัน ที่วันที่ปัจจุบัน
คำนวณวัน
CompanyHiringDate_Day:
IIf(isnull([TerminateDate]),
IIf(DateDiff("d",DateAdd("m",DateDiff("m",[CompanyHiringDate],Date()),[CompanyHiringDate]),Date())<0,DateDiff("d",DateAdd("m",DateDiff("m",[CompanyHiringDate],Date())-1,[CompanyHiringDate]),Date()),DateDiff("d",DateAdd("m",DateDiff("m",[CompanyHiringDate],Date()),[CompanyHiringDate]),Date())),
IIf(DateDiff("d",DateAdd("m",DateDiff("m",[CompanyHiringDate],[TerminateDate]),[CompanyHiringDate]),[TerminateDate])<0,DateDiff("d",DateAdd("m",DateDiff("m",[CompanyHiringDate],[TerminateDate])-1,[CompanyHiringDate]),[TerminateDate]),DateDiff("d",DateAdd("m",DateDiff("m",[CompanyHiringDate],[TerminateDate]),[CompanyHiringDate]),[TerminateDate])))

ทำในส่วนของ เดือน และ ปี ด้วย ประมาณนี้ครับ

8
ลองใช้เว็บเบราเซอร์ดูไม๊ครับ
https://youtu.be/bEY-l75nGqM?t=1332 link

9
ลองดูที่คลิปนี้นะครับ เผื่อช่วยได้
https://youtu.be/YGIhU4KJFDc?t=486 link

10
ผมเคยลองเขียนแบบการใส่เป็นรหัสผ่านด้วยหน้าจอทัชสกรีน ลองดูเป็นไอเดียได้นะครับ
วีดีโอตัวอย่างหน้าจอทัชสกรีน link

11
ทำคลิปให้ดูนะครับ เผื่อช่วยได้

Youtube link

12
ลองคำสั่งแบบ API ดูไม๊ครับ เผื่อช่วยได้

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

การใช้งานแทน Sendkey

    keybd_event &HD, 0, 0, 0
    keybd_event &HD, 0, &H2, 0

จะเป็นการส่งคีย์ ENTER

13
เป็นกับทุกไฟล์หรือเปล่าครับ
หากเป็นกับทุกไฟล์ แสดงว่าเป็นที่ตัวโปรแกรม ให้ลองลง Service pack ใหม่สุด ของตัว office 2007 น่าจะเป็น Pack 3 ลองหาใน Google ดูครับ
หากเป็นแค่ไฟล์นั้นไฟล์เดียว แล้ว Decompile ไม่หาย ลองสร้งไฟล์ใหม่เปล่าๆ แล้วค่อยๆก๊อปปี้ Object ต่างๆ ของไฟล์เก่ามาใส่ไฟล์ใหม่ให้ครบดู
เป็นไอเดียประมาณนี้ครับ

14
ลองทำ Decompile ดูครับว่าหายไม๊
https://youtu.be/knFHRm-bwos link

15
อื่ม! มันบอกยากนะครับ เพราะมีหลายอย่างเหมือนกัน แนะนำให้ลองไปรันบน 32bit ทดสอบดูก่อนเลยครับ แล้วถ้ามันมีปัญหาอะไรมันก็ฟ้องเอง แล้วค่อยมาแก้กัน บางทีอาจใช้ได้เลยก็ได้ เพราะถ้าจะเขียนให้ใช้ประสิทธิภาพแบบ 64bit จริงๆ ต้องตั้งใจเขียนเหมือนกันครับ โค้ดที่เราใช้กันหรือหาได้ทั่วไปส่วนใหญ่ก็รัน 32bit แทบทั้งนั้น

16
แนะนำช่องใน YouTube ที่ผมดูนะครับ

ช่อง: prasertcbs
สอน Excel เบื้องต้น link
สอนเทคนิคการใช้งาน Excel link
Excel เสริม link

ช่อง: Duangporn Toy
List Excel link

ช่อง: Saralee Pruksaritanon
List Excel link

ช่อง: เทพเอ็กเซล : Thep Excel link

ช่อง: Somkiat Foongkiat link

ลองค่อยดูนะครับ เข้าใจไม่เข้าใจบ้าง ให้ผ่านหูผ่านตาก่อน ฝึกทำโจทย์บ่อยๆช่วยได้ครับ

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