แสดงกระทู้

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 ... 6
1
รีเลชั่นน่าจะเป็นแบบนี้ครับ

2
โปรแกรมเครื่องลูก ก็ปิดเครื่องมือต่างๆ เมนูบาร์ ปิดการกด shift ค้าง แล้วก็สร้างเป็น .mde ก็น่าจะได้
ถ้าใช้ Access Runtime ไม่รู้ว่าพวก ActiveX ต่างๆ มันจะทำงานได้หรือป่าว
ถ้าโปรแกรมไม่มี ActiveX ก็แล้วไป  :cool:

4
ก็ลงทะเบียน ActiveX ด้วยโค๊ด bat file ดังนี้
1.คัดลอกไฟล์ .dll หรือ .ocx ไปไว้ที่ system32 หรือ sysWOW64 แล้วแต่ bit
2.รีจีสเตอร์ regsvr32.exe %systemroot%\SysWOW64\.ocx

ประมาณนี้ครับ

ถ้าทำแล้วติดขัด ให้ทำใน safe mode

ถ้าทำใน safe mode ยังไม่ได้อีก ก็เป็นที่วินโดว์แล้วล่ะครับ

5
ตามหลัก คนต้องมีที่อยู่  ก็ควรจะบันทึกที่อยู่ก่อน  แล้วจึงให้สามารถมาบันทึกคนได้

ทำแบบนี้เหมือนทำพร้อมๆ กัน เราก็คีย์ข้อมูลมากขึ้นสิครับ

5คน หรือ 10คน อยู่บ้านเดียวกัน ยังต้องมาคีย์ที่อยู่ทุกคนอีก (มันไม่ลดภาระ)  :cool:

6
ห้อง MS Access / : characters found after end of SQL statement
« เมื่อ: 03 ธ.ค. 62 , 14:57:37 »
 :dizzy: :dizzy: :dizzy: :dizzy:

7
ทำคล้ายวันลา อาศัยฟอร์มและคิวรี่ร่วมกัน  https://www.thai-access.com/index.php?action=dlattach;topic=775.0;attach=705

8
ลองใช้ =cstr([ฟิลด์])

9
ห้อง MS Access / : Access Message Box ไม่ขึ้น
« เมื่อ: 15 พ.ย. 62 , 11:11:43 »
ผมทดสอบดูแล้ว ผ่านนะครับ พิมพ์ตัวเลขแล้วกด Enter มันก็เตือนเลย  :question: :question: :question:

10
ห้อง MS Access / : Access Message Box ไม่ขึ้น
« เมื่อ: 15 พ.ย. 62 , 10:25:55 »
Report อาจมากกว่าหรือเท่ากับ5 มั๊งครับ

หรือ ให้เปลี่ยนชื่อตัวแปร Report เป็นชื่ออื่นดูครับ เช่น Reportx

11
คงประมาณนี้ คร่าวๆ

12
เครื่องหมาย  %  น่าจะเปลี่ยนเป็น  *  แทนครับ

13
ต้องรีบใช้ ก่อนจะเปลี่ยนมาเป็นระบบสนับสนุนการพัฒนา เหมือนหลายๆ ค่าย
...ต้องทำให้เสพติดก่อน แล้วค่อยเก็บตังค์เวอร์ชั่นต่อไป  :cool: :love: :grin:

14
ห้อง MS Access / : access 2003 to windows 10 64 bit
« เมื่อ: 04 พ.ย. 62 , 08:47:45 »
Control Panel > Region >Formate ต้องเป็น Thai (Thailand) Currnet language ต้องเป็น Thai (Thailand)

Option Compare Database
      Private Const LOCALE_SSHORTDATE = &H1F
      Private Const WM_SETTINGCHANGE = &H1A
      Private Const HWND_BROADCAST = &HFFFF&
#If VBA7 Then
      Private Declare PtrSafe Function SetLocaleInfo Lib "kernel32" Alias "SetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String) As Boolean
      Private Declare PtrSafe Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
      Private Declare PtrSafe Function GetSystemDefaultLCID Lib "kernel32" () As Long
#Else
      Private Declare Function SetLocaleInfo Lib "kernel32" Alias "SetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String) As Boolean
      Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
      Private Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long
#End If
     
Function setdate() 'ใช้เปลี่ยนรูปแบบวันที่
    Dim dwLCID As Long
            dwLCID = GetSystemDefaultLCID()
           
        If SetLocaleInfo(dwLCID, LOCALE_SSHORTDATE, "dd/MM/yyyy") = False Then
            MsgBox "รูปแบบวันที่ไม่ใช่ dd/MM/yyyy", vbCritical, "Error"
        End If
            PostMessage HWND_BROADCAST, WM_SETTINGCHANGE, 0, 0
End Function

กระทู้ถามว่าไงเนี๊ย   :shout: :shout: :shout:

15
น่าจะเป็นที่วินโดว์ครับ แจกจ่าย Library ไม่เพียงพอ หรือ ไม่ได้

16
Me.QU_No = "QU" & Right([txtDateTH], 2) & Right("00" & DMax("[QU_No]", "[T_Quot v7]", "Left([QU_No],4) = 'QU'") & Right([txtDateTH], 2) + 1, 2)

แค่ใส่เครื่องหมายผิดที่ครับ

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