55
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.
56
ห้อง MS Access / ต้องการให้ปุ่มอยู่กลางจอ
« เมื่อ: 28 พ.ย. 65 , 15:24:41 »
ผมต้องการให้ปุ่มอยู่กลางจอ โดยอ้างอิงกับความละเอียดของจอ(pixcel) มีโค๊ดแนะนำมั๊ยครับ
57
ห้อง MS Access / : สร้างไฟล์ MDE และ ACCDE ไม่ได้
« เมื่อ: 23 พ.ย. 65 , 21:31:55 »
ถามเองตอบเอง เจอปัญหาแล้วครับ ค้นใน Google พบวิธี ด้วยการตรวจสอบโค๊ด VBA ด้วย Debug > Compile พบว่าผิดพลาด ทำการแก้ไข แล้วแปลงเป็น .accde ได้แล้ว
58
ห้อง MS Access / สร้างไฟล์ MDE และ ACCDE ไม่ได้
« เมื่อ: 23 พ.ย. 65 , 20:51:55 »
ผมมีโปรเจ็ค Access2003 32บิต ผมสร้างไฟล์ MDE ด้วย Access2003 32บิต ได้สำเร็จ แต่...
1.เงื่อนไขของ MDE นี้เปิดใน Access 64บิตไม่ได้ แต่ผมต้องการเปิดใน Access 64บิต จึงทำ...
2.แปลงไฟล์ จาก .mdb เป็น .accdb 64บิต ด้วย Access2013 64บิต ไฟล์ใหม่นี้เปิดได้ปกติ
3.แปลงจาก .accdb เป็น .accde ด้วย Access2013 64บิต ขั้นตอนนี้ ไม่สามารถสร้างได้
Access บอกเหตุผลนั่นโน่นนี่ ว่าไม่สามารถแปลงเป็น .accde ได้
แต่ Access2003 32บิต กลับทำเป็น .MDE ได้
....ท่านใดมีประสบการณ์วิธีการช่วยแนะนำด้วยครับ ต้องการมาก เลย 64บิต
แต่ก่อนไม่ได้คิดจะสร้างเป็น MDE/accde ป้องกันด้วยการเข้ารหัส
....แต่จุดอ่อนของการเข้ารหัส มัน "แฮ็ก" ได้ เลยจะทำเป็น MDE/accde แทน ในการแจกจ่ายโปรเจ็ค
หรือใครมีวิธีอื่นๆ ในการป้องกันโค๊ดของโปรเจ็ค ช่วยแนะนำด้วยนะครับ
ขอขอบคุณล่วงหน้าครับ
1.เงื่อนไขของ MDE นี้เปิดใน Access 64บิตไม่ได้ แต่ผมต้องการเปิดใน Access 64บิต จึงทำ...
2.แปลงไฟล์ จาก .mdb เป็น .accdb 64บิต ด้วย Access2013 64บิต ไฟล์ใหม่นี้เปิดได้ปกติ
3.แปลงจาก .accdb เป็น .accde ด้วย Access2013 64บิต ขั้นตอนนี้ ไม่สามารถสร้างได้
Access บอกเหตุผลนั่นโน่นนี่ ว่าไม่สามารถแปลงเป็น .accde ได้
แต่ Access2003 32บิต กลับทำเป็น .MDE ได้
....ท่านใดมีประสบการณ์วิธีการช่วยแนะนำด้วยครับ ต้องการมาก เลย 64บิต
แต่ก่อนไม่ได้คิดจะสร้างเป็น MDE/accde ป้องกันด้วยการเข้ารหัส
....แต่จุดอ่อนของการเข้ารหัส มัน "แฮ็ก" ได้ เลยจะทำเป็น MDE/accde แทน ในการแจกจ่ายโปรเจ็ค
หรือใครมีวิธีอื่นๆ ในการป้องกันโค๊ดของโปรเจ็ค ช่วยแนะนำด้วยนะครับ
ขอขอบคุณล่วงหน้าครับ
59
ห้อง MS Access / : สอบถามหาค่าหลายๆช่วงของตารางมารวมกันครับ
« เมื่อ: 31 ต.ค. 65 , 23:55:51 »
จากข้อมูลที่ให้มา ถ้าเอาไปเรียง ลำดับจากน้อยไปหามาก มันจะเรียงได้ยังไงครับ ข้อมูลเดียวกัน เหมือนกันทุกแถว มันต้องสร้างฟิลด์เพื่อระบุการทำงานก่อนหลังด้วยครับ เป็นไปได้ช่องวันที่ ควรเก็บวันที่ ที่มีเวลาเข้าไปด้วย Now() หรืออาจจะสร้างฟิลด์ ID ขึ้นมา
60
ห้อง MS Access / : สอบถาม Funtion WM_LOGPIXELSY ของอาจารย์ TTT ครับ
« เมื่อ: 25 ต.ค. 65 , 19:26:12 »
ทำแบบนี้ครับ ประมาณนี้ ใส่ PtrSafe กับ ไม่ใส่
#If Win64 Or VBA7 Then
Private Declare PtrSafe Function GetKeyboardLayout Lib "user32" (ByVal dwLayout As LongLong) As LongLong
#Else
Private Declare Function GetKeyboardLayout Lib "user32" (ByVal dwLayout As Long) As Long
#End If
#If Win64 Or VBA7 Then
Private Declare PtrSafe Function GetKeyboardLayout Lib "user32" (ByVal dwLayout As LongLong) As LongLong
#Else
Private Declare Function GetKeyboardLayout Lib "user32" (ByVal dwLayout As Long) As Long
#End If
61
ห้อง MS Access / : สร้าง .text เป็น Format UTF8 สามารถทำได้ไหมครับ
« เมื่อ: 21 ต.ค. 65 , 11:33:31 »
DoCmd.TransferText acExportDelim, , "ชื่อตารางหรือคิวรี่", "C:\text.txt", True, , 65001
65001 คือ รูปแบบ UTF8
874 คือ ไทย
65001 คือ รูปแบบ UTF8
874 คือ ไทย
62
ห้อง MS Access / : สอบถามคำสั่งปิดโปรแกรมภายนอกที่เปิดอยู่ครับ
« เมื่อ: 27 ก.ย. 65 , 22:46:55 »
Dim oServ As Object
Dim cProc As Variant
Dim oProc As Object
Set oServ = GetObject("winmgmts:")
Set cProc = oServ.ExecQuery("Select * from Win32_Process")
For Each oProc In cProc
'Rename EXCEL.EXE in the line below with the process that you need to Terminate.
'NOTE: It is 'case sensitive
If oProc.Name = "EXCEL.EXE" Then
MsgBox "KILL" ' used to display a message for testing pur
oProc.Terminate 'kill exe
End If
Next
Dim cProc As Variant
Dim oProc As Object
Set oServ = GetObject("winmgmts:")
Set cProc = oServ.ExecQuery("Select * from Win32_Process")
For Each oProc In cProc
'Rename EXCEL.EXE in the line below with the process that you need to Terminate.
'NOTE: It is 'case sensitive
If oProc.Name = "EXCEL.EXE" Then
MsgBox "KILL" ' used to display a message for testing pur
oProc.Terminate 'kill exe
End If
Next
63
ห้อง MS Access / : กด Taskbar แล้วไม่ให้แสดงพื้นหลัง แสดงแต่ฟอร์มอย่างเดียว
« เมื่อ: 13 ม.ค. 65 , 15:22:51 »
ผมก็ได้มานานแล้ว แต่ไม่ได้ทำใช้
64
ห้อง MS Access / Loop ในคิวรี่ที่มีเงื่อนไขพารามิเตอร์จากฟอร์มแล้ว Error ต้องแก้ไขยังไงครับ
« เมื่อ: 13 ม.ค. 65 , 15:16:49 »65
ห้อง MS Access / : สอบถามโค้ดจากกระทู้เก่าใช้ไม่ได้กับ Access ปัจจุบัน
« เมื่อ: 19 ส.ค. 64 , 12:33:21 »
#If Win64 Or VBA7 Then
Private Declare PtrSafe Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
#Else
Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
#End if
ทำโค๊ดแบบนี้ เอาไว้ไปรันกับเวอร์ชั่นเก่า และใหม่ได้เลย
Private Declare PtrSafe Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
#Else
Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
#End if
ทำโค๊ดแบบนี้ เอาไว้ไปรันกับเวอร์ชั่นเก่า และใหม่ได้เลย
66
ห้อง Ms Access อื่นๆ / แจกตัวอย่างการ Loop เพื่อลำดับ แยกตามชื่อ
« เมื่อ: 12 พ.ย. 63 , 13:41:37 »
ก่อนอื่นต้องขอขอบคุณอาจารณ์ทุกท่านนะครับ ที่ได้แก้ไขปัญหาต่างๆ ในการทำ Code ....
สำหรับโพสนี้ ก็หวังว่าท่านที่ต้องการทำแบบผม กำลังมองหาวิธีการต่างๆนานา (เหมือนผม)
จะได้รับประโยชน์ครับ
สำหรับโพสนี้ ก็หวังว่าท่านที่ต้องการทำแบบผม กำลังมองหาวิธีการต่างๆนานา (เหมือนผม)
จะได้รับประโยชน์ครับ
67
ห้อง MS Access / Access เชื่อมต่อ MySQL มันช้าจัง
« เมื่อ: 04 พ.ย. 63 , 15:31:19 »
ปัจจุบันผมใช้ ODBC 8.0 เชื่อมต่อกับ MySQL 5.6 ในข้อมูลจำนวนหลักแสน-ล้าน รู้สึกว่ามันจะประมวลผลช้า แต่สังเกตว่า Navicat ประมวลผลเร็วกว่า ไม่ทราบว่ามีวิธีอะไรยังไง ให้ Access ประมวลผลได้ใกล้เคียง Navicat ได้บ้างครับ มีเครื่องมือไหนพอช่วยได้บ้าง
68
ห้อง MS Access / : ต้องการ Loop ชื่อตาราง ชื่อฟิลด์ โดยใช้ชื่อจากตาราง tbTarang1 ดังรูป
« เมื่อ: 14 ต.ค. 63 , 20:40:34 »
ขอบคุณครับ ตามต้องการเลย
69
ห้อง MS Access / ต้องการ Loop ชื่อตาราง ชื่อฟิลด์ โดยใช้ชื่อจากตาราง tbTarang1 ดังรูป
« เมื่อ: 14 ต.ค. 63 , 13:16:45 »70
ห้อง MS Access / ต้องการ Loop เพื่อ update ข้อมูลจาก tb2 มายัง tb1 ดังรูป
« เมื่อ: 28 ส.ค. 63 , 11:12:22 »71
ห้อง MS Access / : มีฟอร์มหลักรหัสงานฐานA ฟอร์มย่อยกรองข้อมูลคิวรี่Bอยากให้กรองเฉพาะกลุ่ม
« เมื่อ: 28 ส.ค. 63 , 08:33:49 »
ตอนเลือกเสร็จ ต้องมีคำสั่งให้ซับฟอร์มรีเฟรซ หรือ รีคิวรี่ ด้วยครับ
72
ห้อง MS Access / : สอบถาม วิธีการทำให้หน้ายกยอดคงเหลือไม่ค้าง
« เมื่อ: 30 ก.ค. 63 , 14:04:18 »
[qry_สินค้าเข้าออกคงเหลือ].[วันที่] > T1.[วันที่]
ผมแค่สงสัยว่า T1 ก็คือ qry_สินค้าเข้าออกคงเหลือ
แล้วทำไม ตัวมันเองถึง Where ตัวมันเอง
ผมแค่สงสัยว่า T1 ก็คือ qry_สินค้าเข้าออกคงเหลือ
แล้วทำไม ตัวมันเองถึง Where ตัวมันเอง