แสดงกระทู้

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

หน้า: [1] 2 3 4
1
ห้อง MS Access / : Err Code ไม่รู้จะแก้ตรงไหน
« เมื่อ: 23 ม.ค. 66 , 15:34:30 »
ลองทำผ่าน safe mode  และลงทะเบียน Comdlg32.dll ด้วย cmd commands ครับ

สำหรับ 32บิต
cd\
C:
cd C:\windows\sysWOW64
regsvr32.exe %systemroot%\SysWOW64\Comdlg32.dll

หรือ สำหรับ 64บิต
cd\
C:
cd C:\windows\System32
regsvr32.exe %systemroot%\System32\Comdlg32.dll
โพสต์นี้ได้รับคำขอบคุณจาก: Un

2
ห้อง MS Access / : Err Code ไม่รู้จะแก้ตรงไหน
« เมื่อ: 20 ม.ค. 66 , 10:40:24 »
#If Win64 Or VBA7 Then    ก็  Win64
โพสต์นี้ได้รับคำขอบคุณจาก: Un

3
ห้อง MS Access / : หา function ใน query ที่จะตัดตัวอักษร
« เมื่อ: 20 ม.ค. 66 , 10:39:05 »

Left([ฟิลด์1],InStr([ฟิลด์1],"คำค้น")-1)
โพสต์นี้ได้รับคำขอบคุณจาก: aphichet.p@gmail.com

4
ห้อง MS Access / : Err Code ไม่รู้จะแก้ตรงไหน
« เมื่อ: 20 ม.ค. 66 , 08:57:28 »
#If Win64 Or VBA7 Then
    Private Declare PtrSafe Function GetKeyState Lib "user32.dll" (ByVal nVirtKey As Long) As Integer
#Else
    Private Declare Function GetKeyState Lib "user32.dll" (ByVal nVirtKey As Long) As Integer
#End If

ใส่  PtrSafe   กับไม่ใส่
โพสต์นี้ได้รับคำขอบคุณจาก: Un

5
ห้อง MS Access / : เปิดฟอร์ม A ครั้งใดให้อยู่ในลำดับหน้าต่างที่ 2 ทุกครั้ง
« เมื่อ: 13 ม.ค. 66 , 23:15:17 »
DoCmd.OpenForm "B"  (สถานะ ผุดขึ้น = Yes  โมดุล = No)
DoCmd.OpenForm "A"  (สถานะ ผุดขึ้น = No  โมดุล = No)

ถ้าทำสถานะแบบนี้  ฟอร์ม B  จะทับซ้อน A อยู่  หรืออาจเปลี่ยน โมดุล = Yes  ลองดูครับ

ไม่รู้ว่าต้องการแบบซ้อนทับ หรือ แบบเรียงแบบอีกฟอร์ม1อยู่ซ้าย  ฟอร์ม2 อยู่ขวา
โพสต์นี้ได้รับคำขอบคุณจาก: kitisak

6
ห้อง MS Access / SendKeys "{HOME}" และ SendKeys "{END}" บนฟิลด์ Text
« เมื่อ: 04 ม.ค. 66 , 15:18:30 »
เหมือนจะง่าย  แต่กว่าจะเข้าใจ  นำมาฝากครับ  วินโดว์ 7 ขึ้นมา ใช้ SendKeys "{HOME}" และ  SendKeys "{END}" ไม่ได้แล้ว

Option Compare Database

#If Win64 Or VBA7 Then
    Private Declare PtrSafe Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
    Private Declare PtrSafe Function GetKeyState Lib "user32.dll" (ByVal nVirtKey As Long) As Integer
#Else
    Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
    Private Declare Function GetKeyState Lib "user32.dll" (ByVal nVirtKey As Long) As Integer
#End If

    Private Const VK_HOME = &H24
    Private Const VK_END = &H23
    Private Const VK_F2 = &H71
   
Private Sub Command2_Click() 'SendKeys HOME
    Me.Text0.SetFocus
    keybd_event VK_F2, 1, 0, 0
    keybd_event VK_F2, 1, KEYEVENTF_KEYUP, 0
    keybd_event VK_HOME, 1, 0, 0
    keybd_event VK_HOME, 1, KEYEVENTF_KEYUP, 0
End Sub

Private Sub Command3_Click() 'SendKeys END ใช้ F2 แทน
    Me.Text0.SetFocus
    keybd_event VK_F2, 1, 0, 0
    keybd_event VK_F2, 1, KEYEVENTF_KEYUP, 0
End Sub
โพสต์นี้ได้รับคำขอบคุณจาก: UnKnown, Un

7
ห้อง MS Access / : สร้างรายการใน Combo box
« เมื่อ: 29 ธ.ค. 65 , 14:11:41 »
โพสต์นี้ได้รับคำขอบคุณจาก: kitisak

8
ห้อง MS Access / : อยากให้ ก่อนที่จะกดปุ่มพิมพ์รายงาน สถานะต้องได้รับอนุมติก่อน
« เมื่อ: 23 ธ.ค. 65 , 14:29:21 »
ตามนี้ครับ
โพสต์นี้ได้รับคำขอบคุณจาก: MAKI

9
ห้อง MS Access / : ต้องการส่งเมลล์ให้ได้หลายคน จากตารางเมลล์ที่มีอยู่
« เมื่อ: 16 ธ.ค. 65 , 11:59:15 »
ถามเองตอบเองอีกแล้ว :cry: :sweat: :dizzy: :ouch:


งมไปจนได้ ดำน้ำไป  คือ Loop ให้ชื่อเมลล์ ต่อกัน โดยใช้  ,  คั่น  แล้วเอาค่าไปใส่ .To = ค่าที่ Loop
โพสต์นี้ได้รับคำขอบคุณจาก: UnKnown

10
ห้อง MS Access / : เมื่อครบ 3 ครั้งต่อวันให้แจ้งเตือน
« เมื่อ: 28 พ.ย. 65 , 19:03:41 »
โพสต์นี้ได้รับคำขอบคุณจาก: naekkhung

11
ห้อง MS Access / : สอบถามหาค่าหลายๆช่วงของตารางมารวมกันครับ
« เมื่อ: 31 ต.ค. 65 , 23:55:51 »
จากข้อมูลที่ให้มา ถ้าเอาไปเรียง ลำดับจากน้อยไปหามาก  มันจะเรียงได้ยังไงครับ  ข้อมูลเดียวกัน เหมือนกันทุกแถว  มันต้องสร้างฟิลด์เพื่อระบุการทำงานก่อนหลังด้วยครับ เป็นไปได้ช่องวันที่ ควรเก็บวันที่ ที่มีเวลาเข้าไปด้วย  Now()  หรืออาจจะสร้างฟิลด์ ID  ขึ้นมา
โพสต์นี้ได้รับคำขอบคุณจาก: arampong

12
ห้อง MS Access / : กด Taskbar แล้วไม่ให้แสดงพื้นหลัง แสดงแต่ฟอร์มอย่างเดียว
« เมื่อ: 13 ม.ค. 65 , 15:22:51 »
ผมก็ได้มานานแล้ว แต่ไม่ได้ทำใช้
โพสต์นี้ได้รับคำขอบคุณจาก: aek

13
ห้อง 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

ทำโค๊ดแบบนี้  เอาไว้ไปรันกับเวอร์ชั่นเก่า และใหม่ได้เลย
โพสต์นี้ได้รับคำขอบคุณจาก: PNR

14
ห้อง Ms Access อื่นๆ / แจกตัวอย่างการ Loop เพื่อลำดับ แยกตามชื่อ
« เมื่อ: 12 พ.ย. 63 , 13:41:37 »
ก่อนอื่นต้องขอขอบคุณอาจารณ์ทุกท่านนะครับ ที่ได้แก้ไขปัญหาต่างๆ ในการทำ Code  ....
สำหรับโพสนี้ ก็หวังว่าท่านที่ต้องการทำแบบผม กำลังมองหาวิธีการต่างๆนานา (เหมือนผม)
จะได้รับประโยชน์ครับ
โพสต์นี้ได้รับคำขอบคุณจาก: SakDa, PNR

15
ห้อง MS Access / : มีฟอร์มหลักรหัสงานฐานA ฟอร์มย่อยกรองข้อมูลคิวรี่Bอยากให้กรองเฉพาะกลุ่ม
« เมื่อ: 28 ส.ค. 63 , 08:33:49 »
ตอนเลือกเสร็จ  ต้องมีคำสั่งให้ซับฟอร์มรีเฟรซ หรือ รีคิวรี่ ด้วยครับ
โพสต์นี้ได้รับคำขอบคุณจาก: SakDa

16
ห้อง MS Access / : สร้างฟอร์มเพิ่มข้อมูลระหว่างข้อมูล 2 ตาราง
« เมื่อ: 04 ก.พ. 63 , 15:39:18 »
รีเลชั่นน่าจะเป็นแบบนี้ครับ
โพสต์นี้ได้รับคำขอบคุณจาก: Misstract

หน้า: [1] 2 3 4